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CP/M 3.0 Anwender-Handbuch C 128 
2. Quarlal 1986. ca. 250 Seiten 








H. Ponnath 


Grafik-Programmierung C 128 
Februar 1986, 196 Seiten inkl. Disk 


Markt&fechnik Markt&Technik 


Die Programmierung von Grafik gehört zu den Wenn Sie Ihren Com PC schon 
. | LIE Es E27 ET Grafik s = 
interessantesten Aufgaben, dıe man mit dem FE En on ganz gut im Grıfl habe ıg ein- 


ET EST ES 7 2 07.772000 


steigen wollen in de M en, dıe dasllei- 
Sprites # Shapes %# Animation 


Commodore 128 PC lösen kann. Dieses Buch 





hilft Ihnen dabei! Das Thementfeld ist weit ge- RW RT ER stungsstarke Betrret ‚PM30bıetet, 
spannt und behandelt unter anderem: hoch- sollten Sıe mal ınc nn es sagt 
auflösende und Mehrfarben-Grafik ım C 128- Ihnen alles uber de € Datenverar- 
Modus. Alle BASIC 7.0-Befehle dazu werden beitungsanlage. M t nIer- 


ul 


detailliert besprochen und ihre Möglichkeiten sprachen und Betnedssyste 





und Grenzen gezeigt: die Programmierung von und über das Betriebssy PMsı 

Sprites und Shapes; nützliche Assemblerpro- dem C 128 PC Au 

gramme (z.B. eine OLD- und eine MERGE- der CP M-Belenle 

Funktion, die die modulare Programmierung ebensowenig wie dıe 

unterstützt); die Videochips VIC und VDC und der Struktur CPM 28 Im 
ihre Programmierung, eine Technik zur Erzeu- Kapitel uber dasP CP Mer- 
gung von selbstmodifizierenden Programmen. fahren Sie dann. wre PM-Betnebs- 
Best.-Nr. MT 90202 system andert. «k erz “ Stal- 


ISBN 3-89090-202-2 liert und mit ihr arbeıtet 


DM 52,-/sFr. 47,80/0S 405,60 





P Rosenbeck 
Das Commodore 128- 


Handbuch 
1985, 383 Seiten 


Dieses Buch sagt Ihnen alles, 
was Sie über Ihren C128 wis- 
sen müssen: die Hardware, 
die drei Betriebssystem-Modi 
und was die CP/M-Fähigkeit 
für Ihren Computer bedeutet. 
Aber Sie werden irgendwann 
Lust verspüren, tiefer in Ihren 
C128 einzusteigen. Auch da- 
für ist gesorgt: an einen 
Assemblerkurs, der Ihnen zu- 
gleich die Funktionsweise 
des eingebauten Monitors 
nahebringt, schließen sich 
Kapitel an, die mit Ihnen auf 
Entdeckungsreise ins Innere 
der Maschine gehen. Daß die 
Reise spannend wird, dafür 
sorgen die Beispiele, aus de- 
nen Sie viel über die Interna 
des Systems lernen können - 
bis hin zur Grafik-Program- 
mierung. 

Best.-Nr. MT 90195 

ISBN 3-89090-195-6 

DM 52.-/sFr. 47,80/6S 405,60 


J. Hückstädt 
BASIC 7.0 auf dem 


Commodore 128 
1985, 239 Seiten 


Das neue BASIC 70 des 
C128 eröffnet mit seinen ca. 
150 Befehlen ganz neue Di- 
mensionen der BASIC-Pro- 
grammierung. Es ermöglicht 
dem Anfänger den einfachen 
und effektiven Zugriff auf die 
erstaunlichen Grafik- und Ton- 
möglichkeiten des C128; der 
Fortgeschrittene findet die 
nötigen Informationen für 
(auch systemnahe) Profi-Pro- 
grammierung mit strukturier- 
ten Sprachmiitteln 

An praxisnahen Beispielen 
(wie 2.B der Dateiverwaltung) 
zeigt der Autor auf, wie man 
die für den 12Ber typischen 
Merkmale und Eigenschaften 
(Sprites, Shapes, hochauflö- 
sende Grafik, Musikprogram- 
mierung und Geräusche) opti- 
mal nutzt! 

Best.-Nr. MT 90149 

ISBN 3-89090-149-2 

DM 52.-/sFr. 47,80/0S 405,60 


Markt & Technik-Fachbücher 
erhalten Sie bei Ihrem Buchhändler 


Bestellungen im Ausland bitte an den 
Buchhandel oder an untenstehende Adressen. 
Schweiz: Markt & Technik Vertriebs AG, 
Kollerstrasse 3, CH-6300 Zug, = 042/41 5656 
Österreich: Ueberreuter Media Handels- und 
Verlagsges. mbH, Alser Straße 24, 1091 Wien, 


= 0222/48 15 38-0 


Irtümer und Änderungen vorbehalten. 


R Schineis, M Braun, 
N Demgensky 


C128-ROM-Listing: 
Operating System 
März 1986, 450 Seiten 


Dieses Buch ist für alle Pro- 
grammierer und Anwender 
gedacht, die mehr über ihren 
Commodore 128 PC wissen 
wollen: Eine Einführung in die 
Organisation und Wirkungs- 
weise eines Mikrocomputers 
sowie eıne detaillıerte Be- 
schreibung der Mikroprozes- 
sorfamilie 65XX bzw. 8502, 
Aufbau und spezielle Hard- 
wareeigenschaftendesC 128 
mit Beispielprogrammen. Ein 
umfangreiches, vollständig 
kommentiertes Assemblerli- 
sting mit Cross-Referenziiste 
(Verweistabelle) umfaßt das 
kompiette Betriebssystem mit 
dem 40/80-Zeichen-Editor 
sowie allen Kernel-Routinen. 
Best.-Nr. MT 90221 

ISBN 3-89090-221-9 

DM 49.-/sFr. 45,10/08S 382,20 
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Dr. P. Albrecht 
dBASE II für den 


Commodore 128 PC 
1985, 280 Selten 


Das vorliegende Buch gibt 
nach einer kurzen Einführung 
in den Komplex »Datenban- 
ken« eine Anleitung für den 
praktischen Umgang mit 
dBASE II. Schon nach Beherr- 
schung weniger Befehle ist 
der Anwender in der Lage. 
Dateien zu erstellen, mit Infor- 
mationen zu laden und auszu- 
werten. 

Best.-Nr. MT 838 

ISBN 3-89090-189-1 

DM 49.-/sFr. 45.10/6S 382,20 


Dr. P. Albrecht 

Multiplan für den 
Commodore 128 PC 
September 1985, 226 Seiten 
Best.-Nr. MT 836 


ISBN 3-89090-187-5 
DM 49,-/sFr. 45,10/6$ 382,20 





Markt&dechnik 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 





G. Jürgensmeier 


WordStar 3.0 
mit MailMerge für den 


Commodore 128 PC 
1985, 435 Seiten 


WordStar ist ein umfangre 
ches und leistungsfähiges 
Textverarbeitungsprogramm 
Doch bedeutet dies nicht un- 
bedingt. daß es auch einfach 
zu bedienen ist. Hier setzt die- 
ses Buch an: Es macht in vor- 
bildiicher Weise mil allen 
Möglichkeiten von WordStar 
und MailMerge vertraut und 
ıst damit eıne ideale Ergän- 
zung zum Handbuch 

Besi..Nr. MT 780 

ISBN 3-89090-181-6 

DM 49,.-/sFr. 45,10/0S 382,20 


Besi.-N? MT 90196 
ISBN 3-89090-196-4 
DM 52.-I/sFr. 47.80@S 405.60 
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Die Floppy 1570/1571 
2. Quartal 1986. ca. 400 S. 


v 


Inder Floppy 1571 wurde ein 
völlig neues Floppy-Konzept 
verwirklicht: diese Floppysta- 
tion ıst in der Lage. mehrere 
verschiedene Diskettentor- 
mate zu verarbeiten Dieses 
Buch soll es sowohl dem Ein- 
steiger als auch dem lortge- 
schriftene Programmierer 
ermoglichen die vielfaltigen 
Moglichkeiten dıeses neuen 
Gerates voll auszuschöpfen. 
Sämtliche Betriebsarten und 
Diskettenformate werden 
ausführlich erläutert. 

Best.-Nr. MT 90185 

ISBN 3-89090-185-9 

DM 52.-/sFr. 47,80/0S 405,60 





as ist beileibe keine indiskrete 
Frage nach Ihrem Privatleben. 
Pascal ist eine Programmier- 
sprache! Oder halten Sie's lieber mit 
Basic? Jeder, der sich intensiv mit sei- 
nem Computer beschäftigt, lernt 
schnell die Grenzen des eingebauten 
Basic kennen. Leicht zu verstehen und 
einfach zu programmieren - und eine 
unübersehbare Zahl von Listings zum 
Abtippen in fast allen Computermagazi- 
nen, die es am Markt gibt, machen 
Basic zu einer Bastion auf dem Heim- 
computermarkt. Aber das muß nicht 
sein. Andere Programmiersprachen 
holen noch vielmehr aus Ihrem Compu- 
ter heraus. Bloß, wie soll man sich in 
dem Babylon der Computersprachen 
zurechtfinden? C, B, Pascal, Forth, 
Ada..., die Namen der verschiedenen 
Sprachen und Dialekte sind Legion. 

Welche Alternative muß man ergrei- 
fen, wenn man der eingebauten Com- 
putersprache überdrüssig ist? Um 
diese Frage zu beantworten, haben wir 
für Sie dieses Sonderheft zusammen- 
gestellt. 

Am beliebtesten - oder am meisten in 
der Schule und Universität verlangt - 
sind zur Zeit Pascal, C und Forth. Zu die- 
sen drei Sprachen finden Sie deshalb 
jeweils einen großen Einsteiger-Kurs. 
Lernen, das beschränkt sich aber nicht 
nur auf die Theorie. Deshalb sind alle 
Artikel mit vielen Beispiellistings zum 
Abtippen versehen. Denn nur, wer 
selbst ausprobiert, lernt die neue Spra- 
che verstehen und effektiv einzuset- 
zen. Vom Spiel bis zu Anwendungen, 
die das Leben eines Programmierers 
erleichtern, finden Sie alles, was das 
Herz begehrt. 

Einen Forth- und einen Pilot-Inter- 
preter zum Abtippen haben wir auch für 
Sie aufgetrieben. Denn nicht jeder will 
gleich teures Geld für eine Sprache 
ausgeben, mit der er sich dann viel- 
leicht doch nicht anzufreunden vermag. 
Also erst mal reinschnuppern und an- 


zahle, 
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fangen in einer neuen Sprache zu pro- 
grammieren. 

Damit Sie wissen, was es alles an 
Sprachen für Ihren Computer zu kaufen 
gibt, finden Sie auf über fünf Seiten alle 
Sprachen, die für Heimcomputer im 
Handel sind. Viele davon haben wir 
getestet und wir sagen Ihnen, mit wel- 
cher Sie Ihren Commodore 64, Schnei- 
der CPC, Atari ST oder irgendeinen 
anderen Computer am besten füttern. 

Anspruchsvolle Exoten - wie bei- 
spielsweise Prolog und Lisp - dürfen 
natürlich nicht fehlen in einem Heft, das 
sich »Programmiersprachen«s auf die 
Fahne geschrieben hat. Uber künstli- 
che Intelligenz, was immer das heißen 
mag, erfahren Sie also auch einiges. 

Programmiersprachen sind ein wei- 
tes Thema, das mehr als nur ein Heft fül- 
len würde. Deshalb sind wir auf Ihr Inter- 
esse gespannt. Schreiben Sie uns, ob 
Sie mehr über »Fremdsprachen« für 
Ihren Computers lesen wollen. Denn 
wie jede Ausgabe von Happy-Compu- 
ter orientieren sich auch unsere Son- 
derhefte am Interesse unserer Leser. 
Wir wollen schließlich über das berich- 
ten, was Sie lesen wollen - Sie, unser 
Leser. 

In diesem Zusammenhang möchte 
ich allen danken, die mir bei der Zusam- 
menstellung dieser Ausgabe geholfen 
haben. Besonders den Lesern unter 
Ihnen, die uns ihr Wissen zur Verfügung 
gestellt haben. Machen Sie bitte weiter 
so mit. 

Zu diesem Sonderheft haben wir für 
einige Computer jeweils eine »Program- 
miersprachen-Schnupper-Diskette« zu- 
sammengestellt. Auf ihnen finden Sie 
Programme, die die verschiedenen Fä- 
higkeiten der Sprachen offenbaren. Viel 
Spaß damit! Bei den Listings hingegen 
müssen Sie darauf achten, daß nicht 
jeder Compiler alles kann. Aber auspro- 
bieren hilft immer - und schult das Ver- 
ständnis für das Programmieren. 

Ihr Andreas Hagedorn 


SONDERHEFT 5/86 
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Vor Jahren gab es nur eine Handvoll Programmiersprachen. 
Inzwischen steht man ratlos vor einer Vielzahl von Sprachen und 
ihren Dialekten. Unsere Marktübersicht gibt eine Hilfestellung 
bei der Auswahl. 
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Ein Spitzenreiter in jeder Beziehung: Turbo-Pascal. Eln enorm 
niedriger Preis, die Vorzüge hoher Geschwindigkeit und dennoch 
hohen Komtforts machen diese Pascal-Version unschlagbar. 19 





Wer kennt sie nicht: Pascal, die Sprache, die strukturierte Pro- 
grammierung populär machte. Was alles dazugehört, wie Pro- 
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96 
TT 
104 
110 
112 C ist eine faszinierende Sprache, die immer mehr ins Gespräch 
115 kommt. Mit Recht, denn sie bietet sowohl die vorbildliche Struktu- 
rierung von Pascal, als auch hohe Geschwindigkeit durch optima- 
len Aufbau ihres Codes. 78 
116 
122 
124 I 
126 — 
5 a —— 
ni — 
u = 
TG 
142 Abos 
| | 
Forth, die Sprache, die ursprünglich von der NASA entwickelt 
wurde, setzt sich zunehmend auch auf dem privaten Sektor 
144 durch. Leistungsfählg, jedoch mit einem ungewöhnlichen Kon- 
zept, ist sie recht einfach zu erlernen. 110 
148 
149 
156 
162 
Hier geht es um Prolog, Lisp und Logo, die sogenannten Program- 
9 miersprachen für Künstliche Intelligenz und die »5. Computer- 
Generation«. Diese Sprachsysteme unterstützen die Fähigkeit, 
von Programmen dazuzulernen. 149 
SONDERHEFT 5186 





























Wer den Computer zu seinem 
Hobby oder Beruf macht, steht in 
mehrerer Hinsicht vor einer 
schwierigen Wahl. Er muß sich 
zwischen einer Vielzahl von Peri- 
pherie, Betriebssystemen und 
Programmiersprachen entschei- 
den. Hier zeigen wir Ihnen die 
wichtigsten Programmierspra- 
chen, ihre Entwicklungsge- 
schichte und was sie können. 


2: braucht Spra- 
che. Wenn sich zwei Men- 
schen miteinander unterhal- 
ten, benutzen sie dazu das gespro- 
chene Wort oder, sofern sie nicht die 
gleiche Sprache verstehen, Hände und 
Füße. Dieses Prinzip läßt sich nicht 
ohne weiteres auf die Verständigung 
zwischen Mensch und Computer 
anwenden. Kommunikation ist der 
Datenaustausch zwischen mehreren 
Parteien, die einander verstehen müs- 
sen, jedoch ist ein Computer im Urzu- 
stand alles andere als verständig. Er 
besitztlediglich eine mehr oder weniger 
große Anzahl von Fähigkeiten, die er 
sehr schnell ausführen, aber nicht selb- 
ständig koordinieren kann. 





Programmiersprachen sind, im Ge- 
gensatz zur weitverbreiteten Meinung, 
kein Mittel, um sich mit dem Computer 
zu unterhalten. Sie dienen lediglich 
dazu, dem Computer über eine Kette 
von Befehlen mitzuteilen, was er Schritt 
für Schritt zu tun hat. Programmierung 
wurde lange Zeit unter dem Hauptau- 
genmerk der Mensch-Maschine-Kom- 
munikation betrachtet. Der wichtigste 
Aspekt lag darin, zu Problemlösungen 
unter möglichst effizienter Nutzung der 
Maschinenkapazität zu gelangen. Seit 
Computer in jüngster Zeit eine stärkere 
Verbreitung erfahren haben, rückte 
jedoch ein zweiter Gesichtspunkt 


6 


immer mehr in den Vordergrund: Die 
Programme werden komplexer und der 
Wartungsaufwand (Korrektur oder 
Erweiterung eines Programms) immer 
größer. Dadurch, daß an vielen Pro- 
grammen große Teams über lange Zeit- 
räume hinweg arbeiten, geraten Pro- 
grammiersprachen auch mehr und 
mehr zum Kommunikationsmittel zwi- 
schen diesen Gruppen von Menschen. 
Das bedeutet, daß ein guter Program- 
mierer immer seine Programme auch 
für seine Nachwelt verständlich gestal- 
ten, und seine Kunsttertigkeit nicht mit 
der Anwendung von Programmiertricks 
unter Beweis stellen sollte Einem 
potentiellen Benutzer, der das Pro- 
gramm lesen und eventuelländern muß, 
sollte die Funktionsweise möglichst 
schon beim Lesen klar werden. 

Statt »Programmiersprache« wäre die 
Bezeichnung »Kommandosequenz« ei- 
gentlich richtiger. Was dem Computer 
befohlen wird, führt er geduldig und 
beliebig oft aus, einzige Bedingung ist 
ein fehlerfreies Programm. Einige Psy- 
chologen behaupten denn auch, die 
Beliebtheit von Computern sei darauf 
zurückzuführen, daß viele Menschen 
ihre diktatorischen Triebe beim Pro- 
grammieren ausleben! 

Wenden wir uns der Frage zu, die 
wohl jeden Computeranwender irgend- 
wann einmal bewegt, nämlich, was 
denn welche Programmiersprache 
wohl zu leisten vermag. 

im Laufe der Computergeschichte, 
die seit den ersten Relaisrechnern Kon- 
rad Zuses nicht mehr als ein halbes 
Jahrhundert zählt, wurde eine Unzahl 
Programmiersprachen, Spracherweite- 
rungen und Dialekte entwickelt. Dabei 
standen immer zwei Überlegungen im 
Vordergrund. Zum einen mußten die 
Hardwarevoraussetzungen berück- 
sichtigt werden. Zum anderen orien- 
tieren sich die Programmentwickler an 
den zu bearbeitenden Problemstellun- 
gen und den Bedürfnissen der Anwen- 
der. Je nach Computertyp und Pro- 
blemstellung werden vom Programmie- 
rer verschiedene Programmstrukturen 
(Module, Bilockkonzept, Verbundty- 


pen), spezialisierte Befehle und unter- 








schiedliche Datentypen (Integer, Real, 
Complex, String, etc.) benötigt. Auf die- 
ser Grundlage entwickelten sich neben 
den bekannten Sprachen eine unüber- 
schaubare Anzahl Exoten, die meistens 
nur in einzelnen Universitäten einge- 
setzt wurden. 


Vielfalt = Freud 
oder Leid? 


An kaum einem Punkt scheiden sich 
die Geister in der Computerszene so 
stark wie in der Auswahl der Beurteilung 
der Programmiersprachen. Wer den 
Heimcomputer zu seinen Hobbies 
zählt, lernt in aller Regel zunächst fleißig 
Basic. Schließlich gehört ja der Basic- 
Interpreter zum Lieferumfang. Im Laufe 
der Zeit werden die eigenen Pro- 
gramme immer länger und unübersicht- 
licher, die einzelnen Programmteile 
sind durch ein unentwirrbares Geflecht 
von GOTO-Anweisungen miteinander 
verknotet (böse Zungen sprechen des- 
halb von »Spaghetti-Code«). 

Mit dem wachsenden Bedürfnis nach 
Strukturierung, die in Basic nur jemand 
mit viel Selbstdisziplin erreicht, und 
nach Geschwindigkeit, die für Basic ein 
Fremdwort ist, sieht man sich nach Aus- 
wegen um. Dabei fühlt sich die eine 
Gruppe wie magisch von dem Begriff 
Assembler angezogen und begibt sich 
auf die unterste Sprachebene, um 
fortan in mühseliger Kleinarbeit Byte für 
Byte zu programmieren. Hiermit wird 
zwar ein Höchstmaß an Geschwindig- 
keit möglich, aber die Übersichtlichkeit 
kommt nach wie vor zu kurz. Die zweite 
Gruppe der Programmier-Gemeinde 
wendet sich deshalb modernen Hoch- 
sprachen zu, wie Pascal, Forth, Modula, 
Comal, Ada, C und so weiter. Diese 
Sprachen zwingen den Programmierer 
dazu, seine Programme modular (dies 
bedeutet, einzelne Aufgaben werden in 
»Paketen« oder »Modulen« zusammen- 
gefaßt) zu gestalten. Durch die so 
erreichte Übersichtlichkeit lassen sich 
Programme später von jedermann, 
Sprachkenntnisse vorausgesetzt, 
nachvollziehen und ändern. Zudem 





sind einige dieser Sprachen sehr 
assemblernah, wie zum Beispiel Forth, 
womit auch Geschwindigkeit kein Pro- 
blem mehr ist. Moderne Programmier- 
sprachen unterstützen also Programm- 
strukturen und gehen ebenso mit 
Daten- und Kontrollstrukturen problem- 
gerecht um. 

Dennoch werden im professionellen 
Bereich (Universitäten, Verwaltung) 
»klassische« Sprachen bevorzugt, wie 
PL/1, Cobol und Fortran. Es sprechen 
auch gute Gründe dafür: So sind die 
neueren Programmiersprachen oftmals 
auf der vorhandenen Hardware noch 
nicht verfügbar, oder sie vertragen sich 
mit bereits vorhandenen Softwarekom- 
ponenten nicht. Ein anderer Faktor sind 
die Vorkenntnisse des Wartungsperso- 
nals und und und .... Jeder Informatik- 
student, jeder Praktiker kann diese 





Reihe beliebig fortsetzen. Und schließ- 
lich ist gute Software immer noch der 
Triumph des Programmierers, nicht der 
der Programmiersprache. 

Seit das Betriebssystem CP/M auf 
Computern wie dem Commodore 128, 
Schneider CPC, oder dem Atari ST 
einen neuen Frühling erlebt, werden 
diese Klassiker neuerdings auch auf 
Heimcomputern interessant. Sehr 
wahrscheinlich wird sich ein breiter 
Anwenderkreis hierfür finden. Welcher 
Programmierer begrüßt es nicht, wenn 
er seine Produkte teilweise in der 
»guten Stube« austesten kann? 

Eine Sonderstellung unter den Pro- 
grammiersprachen nehmen die Spra- 
chen für »künstliche Intelligenz« (Kl) 
ein. Deren bekannteste Vertreter hei- 
Ben Lisp und Prolog. KlI-Sprachen 
bauen auf einem grundlegend neuen 
Konzept auf, bei dem der Programmie- 
rer dem Computer im Dialog sein Pro- 








blem mitteilt. Wegen des hohen Spei- 
cherbedarfs sind KlI-Programme auf 
Microcomputern nur sehr einge- 
schränkt einsatzfähig. Dies wird sich 
jedoch bald ändern. Man darf gespannt 
sein, wie sich Kl auf den 16-Bit- 
Computern entwickeln wird, die janicht 
nur in punkto Schnelligkeit, sondern 
auch im Speicherangebot einen ganz 
neuen Standard setzen. Der Künstli- 
chen Intelligenz ist in diesem Sonder- 
heft ein eigener Beitrag gewidmet. 

Fassen wir zusammen: Sinnvoll las- 
sen sich die Programmiersprachen in 
vier Gruppen unterteilen: 


1. Assemblersprachen: Sie bieten 
den Vorteil, daß sie die Möglichkeiten 
der Hardware optimal ausnutzen. 
Assembler versteht jeder Prozessor 
unmittelbar. Jede höhere Programmiier- 


sprache muß beim Programmablauf 
erst in Assemblercode übersetzt wer- 
den und ist deshalb weniger universell. 
Gegen Assembler sprechen die müh- 
selige Programmierung, die Gebunden- 
heit an Prozessor und Hardware sowie 
die schwierige Wartung. 

2. Klassische Hochsprachen: Sie 
sind zur Zeit am weitesten verbreitet, 
aber genügen wegen ihrer altertümli- 
chen Konzeption den Anforderungen 
moderner Programmierung nicht mehr. 

3. Moderne Hochsprachen: Sie kön- 
nen sich gegendie »Alteingesessenen« 
nur langsam durchsetzen. Sie bieten 
Strukturierungshilfen, ausgeprägte 
Möglichkeiten der Datenbeschreibung, 
und unterstützen die Selbstdokumenta- 
tion des Programmtextes durch eine 
angemessene Verbalisierung. 

4. Kl-Sprachen sind heutzutage 
noch Gegenstand intensiver Forschun- 
gen und stellen eine völlig neue und 
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andersartige Klasse von Programmier- 
sprachen dar. In diesem Beitrag wollen 
wir uns deshalb nicht weiter mit ihnen 
beschäftigen. 

Wie Sie gesehen haben, ist der Spra- 
chenwald immer noch sehr dicht, auch 
wenn man sich auf die Auswahl der 
wichtigsten Programmiersprachen 
beschränkt. Ein bedeutendes Auswahl- 
Kriterium sind die qualitativen Merk- 
male. Bevor wir diese besprechen, 
noch zu einigen zentralen Begriffen: 

Algorithmus - Jedem Programm lie- 
gen ein oder mehrere Lösungsverfah- 
ren zugrunde, oft auch als Algorithmus 
bezeichnet. Ein solcher Algorithmus ist 
definiert als eindeutige und vollständige 
Vorschrift zur Lösung einer Problem- 
klasse mit einer Abfolge von Schritten, 
die in einem endlichen Zeitraum ausge- 
führt werden. 

Daten heißen dabei die Objekte, die 
der Algorithmus bearbeitet. 

Programm nennt man folgerichtig die 
maschinengerechte Aufbereitung der 
Daten und des Algorithmus. Diese Auf- 
bereitung geschieht mit Hilfe einer 
künstlichen Sprache, eben der Pro- 
grammiersprache. Diese setzt sich 
aus einer Menge von Zeichen zusam- 
men, die ihrerseits nach bestimmten 
Regeln zusammengesetzt werden kön- 
nen. Die somit geschaffenen Sprach- 
elemente werden von der Maschine 
unmittelbar (als Maschinensprache) 
oder unter Zuhilfenahme von Überset- 
zungsprogrammen (als Hochsprache) 
»verstanden«e. Der Übersetzer stellt 
nichts weiter dar, als einen speziellen 
Algorithmus, der in der Lage ist, alle 
Befehle einer Hochsprache in den ent- 
sprechenden Assemblercode zu trans- 
formieren. Er ist grob vergleichbar mit 
einer Bibliothek von kleinen Assembler- 
Unterprogrammen, wobei jedem Befehl 
der Hochsprache eines dieser Unter- 
programme zugeordnet ist. 


Compiler und 
Interpreter 


Übersetzungsprogramme gliedern 
sich in zwei Typen, die die gleiche Auf- 
gabe auf unterschiedliche Weise erfül- 
len. Als erstes sind die Compller zu 
nennen. Sie tauchten auch in der 
geschichtlichen Entwicklung zuerst 
auf. Der Compiler übersetzt den Pro- 
grammtext (Quellcode) in einem oder 
mehreren Durchgängen (Passes) kom- 
plett in Assemblercode (Objektcode). 
Der Compiler selbst wird daher beim 
Programmlauf nicht mehr benötigt. 
Natürlich benutzt man für unterschiedli- 
che Computer, mit verschiedener Hard- 
ware und Maschinensprache auch 
unterschiedliche Compiler. 


/ 


Der zweite im Bund der Dolmetscher 
nennt sich Interpreter. Er ist der fleißi- 
gere von beiden. Zunächst muß der 
Quellcode direkt im Arbeitsspeicher 
des Computers abgelegt werden. 
Sodann beginnt das Interpretieren. Das 
heißt nichts weniger, als daß der Inter- 
preter während des Programmlaufs 
Befehl für Befehl holen muß. Natürlich 
ist diese Vorgehensweise in höchstem 
Maße unökonomisch und langsam. 
Während ein Compiler die ersten drei 
der genannten vier Arbeiten nur genau 
einmal ausführen muß, beschäftigen sie 
den Interpreter bei jeder Programmwie- 
derholung aufs neue. 

Zu Beginn des Computerzeitalters, 
als Rechenzeit noch sehr teuer war, 
wurden daher ausschließlich Compiler 
entwickelt. Interpreter konnten sich 
erst mit höheren Prozessorleistungen 
durchsetzen. Sie werden auch heute 


noch in Profikreisen wegen ihres 
gemächlichen Arbeitstempos ver- 
schmäht. 
Die Qualität 
® 
von Programmier- 
sprachen 


Um beurteilen zu können, welche 
Eigenschaften gute Programmierspra- 
chen charakterisieren, wenden wir uns 
zunächst der Frage zu, welche Anfor- 
derungen an ein hochwertiges Pro- 
gramm zu stellen sind. 

Die Forderung nach Fehlerfreiheit 
erscheint auf den ersten Blick banal. 
Die Erfahrung zeigt nämlich, daß 
100%ig korrekte Programmsysteme ab 
einem gewissen Umfang kaum noch 
möglich sind. Hat ein Programm eine 
gewisse Komplexität erreicht, istes fast 
unmöglich, seine Korrektheit zu bewei- 
sen, also Testdurchläufe zu finden, die 
tatsächlich alle Eventualitäten berück- 
sichtigen. Als Maß für die Korrektheit 
eines Programmes wird deshalb häufig 
von der Zuverlässigkeit gesprochen. 
Diese gibt die Wahrscheinlichkeit an, 
mit der ein Programm für eine Zahl von 
Anwendungsfällen in einer bestimmten 
Zeitspanne fehlerfrei arbeitet. Gerade 
die jüngste Vergangenheit hat hierfür im 
Bereich der Mikrocomputer einige 
negative Beispiele geliefert. So konn- 
ten Fehler in einigen Betriebssystemen 
oftmals erst nach der Auslieferung der 
neuen Geräte beseitigt werden. 

Verständlichkeit deckt sich mit Forde- 
rungen nach Lesbarkeit, Überschau- 
barkeit und Selbstdokumentation. Pro- 
gramme sollten sich, sobald sie eine 
gewisse Länge überschreiten, in funk- 
tionelle Einheiten gliedern. Andernfalls 
wird der Programmierer oft, noch wäh- 
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rend er an ein und demselben Pro- 
gramm arbeitet, an der selbst produ- 
zierten Unordnung scheitern. Man dif- 
ferenziert unter dem Aspekt der Ver- 
ständlichkeit zwischen der statischen 
und der dynamischen Programmstruk- 
tur. Die statische Strukturgestaltung 
dient dem Ziel, ein übersichtliches Lay- 
out des Programmtextes zu gestalten. 
Hiermit wird der menschlichen Wahr- 
nehmung Rechnung getragen, die sehr 
stark auf optischen Wahrnehmungen 
beruht. Ergänzend trägt die dynami- 
sche Strukturierung dazu bei, daß Pro- 
grammabläufe unmittelbar aus dem 
Quelltext ersichtlich werden. 

Ein Faktor der an diese Zusammen- 
hänge anknüpft, ist die Anderbarkeit 
von Programmen. Wartungsfreundlich- 
keit bedeutet einerseits, daß Pro- 
gramme leicht an modifizierte Aufga- 
benstellungen angepaßt werden kön- 
nen. Andererseits spielt die Portabilität 
eine Rolle, wenn ein Programm zum Bei- 
spiel in einer neuen Softwareumge- 
bung lauffähig gemacht werden soll. 

Universalität sollte es einem guten 
Programm ebenfalls ermöglichen, ähn- 
liche Aufgabenstellungen und Abwand- 
lungen zu lösen. 

Im Zusammenhang mit der Benutzer- 
freundlichkeit sollten Programme einen 
Dialog mit dem Benutzer ermöglichen 
und Eingabefehler abfangen, ohne fal- 
sche Ergebnisse oder gar Systemab- 
stürze zu liefern. 

Effizienz hat im Laufe der Entwick- 
lung stark an Bedeutung verloren. Zu 
Zeiten, da Speicherplatz noch Mangel- 
ware war, galten die kürzesten Pro- 
gramme als die besten. Das ging natür- 
lich zu Lasten der Übersichtlichkeit. 
Effizienzstreben wird heute daher nur 
noch mit Skepsis betrachtet. 

Die hier genannten Qualitätsmerk- 
male stehen offensichtlich in positiver 
und negativer Wechselwirkung zuein- 
ander. So geht Übersichtlichkeit mei- 
stens zu Lasten der Effizienz, verbes- 
sert dagegen aber die Änderbarkeit. 

Beginnen wir jetzt damit, die Anforde- 
rungen an eine ideale Programmier- 
sprache zu formulieren. Die Qualität 
einer Computersprache läßt sich 
danach beurteilen, inwieweit sie die 
Entwicklung von Programmen unter- 
stützt, die den uns bekannten Anforde- 
rungen entsprechen. Die folgenden 
skizzierten Merkmale müssen im engen 
Zusammenhang miteinander betrach- 
tet werden. 

Beginnen wir mit einem Punkt, der 
besonders den Einsteiger interessie- 
ren wird: 

Die Erlernbarkeit einer Sprache hängt 
wesentlich von deren Struktur und 
Umfang ab. Sie ist sehr viel einprägsa- 
mer, wenn die Zahl der Schlüsselwörter 
gering und das Sprachkonzept durch- 
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gängig ist. Ebenso gewährleistet eine 
einfache Benutzung, wenn der Pro- 
grammierer sein Problem bequem mit 
einer breiten Palette von Ausdrucks- 
möglichkeiten lösen kann. 

Die Einheitlichkeit ist ein ebenso 
wichtiger wie unscharfer Begriff. Er soll 
im großen und ganzen bedeuten, daß 
für eine bestimmte Leistung möglichst 
nur genau ein Sprachmittel zur Verfü- 
gung steht. 


Kompaktheit steht mit Einfachheit in 
Einklang. Hierbei ist nicht von der 
»Würze der Kürze« die Rede, sondern 
vielmehr von der Mächtigkeit der 
Sprachkonzepte. Der Bauplan der Spra- 
che muß eine geringe Anzahl verschie- 
dener Grundkonzeptionen aufweisen, 
wie mathematische Operationen, Ein- 
und Ausgabe, Datenstrukturierung. 
Andererseits soll Kompaktheit ein 
gewisses Maß an Redundanz (= alles 
was man in der gleichen Sprache auf 
andere Weise auch darstellen kann) an 
der richtigen Stelle nicht verhindern. 
Dies fördert die Verständlichkeit und 
Zuverlässigkeit. Beispielsweise sind 
Datentypen im Grunde genommen 
redundant, doch wer möchte sich 
schon mit einer Sprache herumschla- 
gen, die ausschließlich den Datentyp 
»Zeichen« kennt? 

Die Sprache Basic wird von vielen als 
katastrophal eingestuft. Das hat einen 
guten Grund: Die Forderung nach Loka- 
lität wird von Basic so gut wie gar nicht 
unterstützt. Mit diesem Begriff ist 
gemeint, daß die Teile einer bearbeite- 
ten Aufgabe, die logisch zusammenge- 
hören, auch im Programmtext in physi- 
scher Nachbarschaft stehen sollten. 
Die berühmt-berüchtigten Sprungbe- 
fehle bewirken jedoch das genaue 
Gegenteil. 

Ein ganz anderes Kriterium ist die 
Sicherheit der Programmiersprache. 
Dazu zählt das Unterstützen der Fehler- 
freiheit eines Programmes durch 
Sprachelemente. »On Error Goto« ist 
ein solcher weitverbreiteter Befehl. Des 
weiteren sind Sprachelemente zu nen- 
nen, die die Testphase des Programms 
fördern. 

Der »Wildwuchs« der Implementie- 
rungen (= Anpassungen eines 
bestimmten Computers) bei Program- 
miersprachen, insbesondere bei den 
älteren, ist hinlänglich bekannt. Dia- 
lekte, Erweiterungen, aber auch Ein- 
schränkungen beeinträchtigen die Por- 
tabilität von Programmen im besonde- 
ren Maße. Mit der Standardisierung 
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Das Angebot dieser Ausgabe: 


Programmiersprachen: 


Wer sich näher mit Programmiersprachen beschäftigen will, für den haben wir 
eine Schnupper-Diskette zusammengestellt. Auf ihr finden Sie die für Ihren Com- 
puter interessantesten Programme dieser Ausgabe. 

Außerdem haben wir unser Archiv durchstöbert. Routinen aus früheren Ausga- 
ben von Happy-Computer, 84er und Computer Persönlich, die in Pascal, C oder 


Forth geschrieben sind, haben wir gleich mit auf die Diskette geschrieben. Keine 
Angst, daß Sie diese Programme ohne Beschreibung nicht gebrauchen kön- 
nen. In der Datei »README« finden Sie die notwendige Beschreibung. Die 
Schnupper-Diskette gibt es für die Schneider-Computer, den Commodore 64 
und den Commodore 128. Im 84er-Modus des C 128 können sie natürlich auch 
die 84er-Diskette verwenden. 


Diskette für Schnelder-Computer, Best.-Nr. LH 86S5 SD, DM 34,90° (aFr. 28,5016S 349,-) 
Diskette für C 84, Best.-Nr. LH B6S5 CD, DM 29,90° (sFr. 24,9016S 299,-) 
Diskette für C 128, Best.-Nr. LH 86S5 8D, DM 29,90° (sFr. 24,90/8S 288,-) 


Programme aus früheren Ausgaben: 


HappyComputer, Ausgabe 5/86 
Commodore 84, Commadora 128 
Radiah-Two. 

Ein Kletter- und Sammelispiel für den C64. 
Ultraboot. 

Ergänzung zu »Ultraload Pluse. 104 zusätzliche 
Blöcke auf der Diskette. 

Simple Sound. 

Eine kleine Soundbibliothek bietet Klänge für 
jede Gelegenheit. 

Aus Ausgabe 4/86. 


Quadrophenla. 

Spiel des Monats für dan Commodore 64 
Kurven. 

Mathematische Kurven auf dem C 128 schnall 
programmiert. (Läuft nicht Im C64-Modus!) 
Kalander. 

Ein Kalender für die Jahre bis 2000. 
Auto-Boot 128. 

Das Programm nutzt die Fähigkeit das C 128, 
CP/M-Programmea automatisch zu booten 
(laden). (Nicht für C64). 

Widerstände. 

Eine Utility, die Ihnen hilft, Widerstandswerle 
aus Farbskalan in numerische Werte umzurech- 
nen. Aus Ausgabe 5/88. 


Disketie für den C 84/C 128 
Bestell-Nr. LH 8805 CD 
DM 28,890° /aFr. 24,90/8S 299, 





HappyComputer, Ausgabe 4/88 

Schneider CPC 

D-Mon. 

Daten auf Diskette Byte Iür Byte lasan und än- 
dern. Fehlerhafte Dateienkorrigieranundretten. 





GOTO XY (nur CPC 484). 

Eine mächtige RSX-Befehlserweiterung, die 
erlaubt, das Ziel von GOTO-GOSUB-Belehlen 
mit Hille einer Variablen zu bestimmen. 


Accept. 

Ein komtortabler Ersatz für den normalen 
INPUT-Befehl. mit dem sich jetzt die maximale 
Eingabe-LAnge begrenzen läßt. 


Turbo-Screen (nur CPC 484). 

Mit dieser RSX-Erweiterung machen Sie der 
Bildschirmausgabe im Modus 2 Beine 

Aus Ausgabe 2/86. 


Explora. 
Mit diesem Prüfsummen-Generator entlällt die 
lästige und zeitaufwendige Fehlersuche 


Stack-Manlpulatian (nur CPC 484). 
Basic-Programmierung mit vier RSX-Befehlen. 
Aus Ausgabe 3/86. 


Tool-Basale. 
44 neue ASX-Befehle für Grafik-, Sprite-. Dis- 
ketten- und Kassatten-Programmlierung. 


Achtas Bit. 

Endlich Abhilfe für den Umstand, daß der 
Schneider CPC über die Drucker- Schnittstelle 
nur sieben Datenbits ausgib! 


Mard im Computar. 
Das DFU-Spiel mit Adventure-Charakter. 
Aus Ausgabe 4/86 


Besi.-Nr. LH 8804 SK (Kaasatie) 
DM 28,90° IaFr. 24,80/8S 299, 
Besi.-Nr. LH 8804 SD (Diskette) 
DM 29,90° JaFr. 24,90/4S 298, 


- = = 


Happy-Computer, Ausgabe 3/86 
Commodore 64/Commodare 128 
Copter-Fight,. Husky-Basic, Unser Sonnengy- 
stem, Wahlautomai, Softpaint 

Bestell-Nr. LH 8803 CD 

DM 29,90° JaFr. 24,90/5S 298, 





Happy-Computer, Ausgabe 2/86 
Commodore 64 

Oval Pattern, Börse, Poster Hardcopy,. 
Kassetten-Designer, Super-Sprite, Transbit 
Alle 6 Programme auf Diskette für den 
Commodore 64/128. 

Bestell-Nr. LH 8802 CD 

DM 29,90°laFr. 24,9018S 299,2 





Happy-Computer, Ausgabe 1/86 
Commodore 84/Commodore 128 ‘ 
Taxi. Aus Ausgabe 1/88. 

Musik und Farbe. Aus Ausgabe 12/85. 
SDB-Sprite Mover. Aus Ausgabe 1/86. 
ES-AE. Aus Ausgabe 1/86. 

Ultraload. Aus Ausgabe 1/86. 

Error 84. Aus Ausgabe 1/86. 

Scroll 84. Aus Ausgabe 1/88. 
Schatzsuche. Aus Ausgabe 12/85. 
SLAD. Aus Ausgabe 12/84. 

Alle 8 Programme auf Diskette für den 
Commodore 84/128 

Bestell-Nr. LH 8601 CD 

DM 28,80° IeFr. 24,9018S 299, 





HappyComputer, Ausgabe 12/85 
Alarl B00XLI1I0XEIBOO 
Bestell-Nr. LH 8512 B 

DM 29,80° /aFr. 24,90/8S 299, 


HappyComputer, Ausgabe 12/85 
Scehnaelder CPC 

Diskette für den Schnelder CPC. 
Bestell-Nr. LH 8512 G (Kassette) 
DM 29,80° /aFr. 24,90/8S 299, 
Bestell-Nr. LH 8512 D (Disketie) 
DM 34,80*° sFr. 28,50/8S 349, 


Happy-Computar, Ausgabe 11/85 
Commodore 84 

Bestell-Nr. LH 8611 A 

DM 29,90° /aFr. 24,00/8S 299, 


HappyComputer, Ausgabe 10/85 
Sinclalr Spectrum 

Bastall-Nr. LH 8510 D 

DM 19,80° /aFr. 17.-18S 1998, 
Alarl BOOXL 

Basiall-Nr. LH 8510 B 

DM 29,80° /aFr. 24,9016S 299, 


Happy-Computer, Ausgabe 9/85 
Commodore 64 

Bestell-Nr. LH 8508 A (Diskette) 
DM 28,80° JaFr. 24,90/5S 298, 


HappyCompufter, Ausgabe 8/85 
Schnelder CPC 464 

Bestell-Nr. LH 8508 G (Kassette) 
DM 29,90° laFr. 24,00/8S 298, 


HappyCompufer, Ausgabe 7/85 
Commodore 84 

Bestell-Nr. LH 8507 A (Diskette) 
DM 28,80° sFr. 24,9016S 2998, 


HappyComputer, Ausgabe 6/85 
Commodore 64 

Bestell-Nr. LH 8506 A (Diskette) 
DM 29,90° sFr. 24,90/8S 298, 


HappyComputer, Ausgabe 5/86 
Schnelder CPC 484 

Bestell-Nr. LH 8505 G (Kaaaetie) 
DM 29,90° /sFr. 24,00/8S 298, 


HappyComputer, Ausgabe 4/85 
Commodore 64 

Bestell-Nr. LH 8504 A (Diskatie) 
DM 29,90° /sFr. 24,90/8S 299, 


HappyComputer, Ausgabe 3/85 
Schnelder CPC 464 

Bestell-Nr. LH 8503 G (Kassette) 
DM 29,90° /JaFr. 24,90/8S 299, 


Happy-Sonderhefte 


Sonderheft 4/86: Schnelder 
Bestell-Nr. LH 86S4 K (Kassette) 
DM 29,90° IsFr. 24,090/6S 299, 
Bestell-Nr. LH 86S4 D (Diakstie) 
DM 34,90° IsFr. 29,5018S 349, 


Sonderheft 3/86: 68000 
Bestell-Nr. LH 86S3 D (Dieketie) 
DM 29,80° JaFr. 24,9018S 299, 


Sondarheft 2/88: ATARI 
Bestell-Nr. LH 86S2 D (2 Disketien) 
DM 34,90° IsFr. 29,5018S 349, 


Sondarheft 1188: Schneider 
Bestell-Nr. LH 86S1 D (Diskette) 
DM 34,90° laFr. 28,50/8S 348, 
Bestell-Nr. LH 868S1 K (Kanaette) 
DM 28,90° /aFr. 24,00/8S 299, > 


Sondarhefli 2/85: Schnelder 
Bestell-Nr. LH 85S2 D (3° -Diaketle) 
DM 34,90° /aFfr. 29,50/6S 349, 
Bestell-Nr. LH 85S2 V (514° -Diaketie) 
DM 34,90° /aFır. 298,5018S 348, 
Bestell-Nr. LH 85S2 K (Kassatie) 

DM 298,80° /aFr. 24,80/8S 208, 


Sondarhait 1/85: Spectrum 
Bestell-Nr. LH 85S1 D (Kanaelle) 
DM 198,90*° /aFr. 17.-18S 199, 


* inkl. MwSt Unverbindliche Preisempfehlung 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, 


oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 
Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 





befassen sich daher nationale und 
internationale Institute. Die wichtigsten 
sind das Deutsche Institut für Normung 
(DIN), das American National Standards 
Institute (ANSI) und die International 
Organization for Standardization (ISO). 
Die Benutzer akzeptieren allerdings die 
Standards unterschiedlich. So sind 
Standards von Basic nahezu unbe- 
kannt, während sie sich bei Sprachen 
wie Pascal oder Fortran zunehmend 
durchsetzen. 

Was für die Effizienz bei Programmen 
gesagt wurde, verkehrt sich bei den 
Sprachen in das genaue Gegenteil: Für 
den Übersetzer istsie von großer Wich- 
tigkeit. Zum einen sollte der Überset- 
zungsvorgang effizient sein, da bei der 
Fertigstellung eines Programmes die 
Zahl der Testläufe meistens sehr hoch 
ist. Der wichtigere Grund aber ist, daß 
das erzeugte Maschinenprogramm im 
Hinblick auf Rechenzeit und Speicher- 
bedarf optimiert werden sollte. Soge- 
nannte »Optimierende Übersetzer« 
sind teilweise in der Lage, das erzeugte 
Maschinenprogramm effizienter zu 
gestalten, als dies der Benutzer durch 
Programmiertricks erreichen kann. 


Von Zuse bis Ada 


Wir besitzen nun ein gutes Hand- 
werkszeug, um Programmiersprachen 
nach den wichtigsten Gesichtspunkten 
theoretisch zu beurteilen. Fassen wir 
zusammen: Die entscheidenden Anfor- 
derungen an eine Sprache heißen 
Strukturierungshilfen, Selbstdokumen- 
tation, Datenbeschreibung, Benutzer- 
freundlichkeit und Zuverlässigkeit. 
Doch was nützt all die graue Theorie, 
wenn wir die Sprachen nicht kennen? 
Im folgenden werden daher die wichtig- 
sten unter den bisher behandelten 
Aspekten und im Rahmen _ ihrer 
geschichtlichen Entwicklung vorge- 
stellt. 

Die Entstehung der Programmier- 
sprachen orientiert sich immer auch an 
den Voraussetzungen der Hardware. 
Dies gilt insbesondere auch für die 
Gründerijahre. 

Als geistiger Urvater der Rechen- 
maschinen mit Programmsteuerung 
darf der Engländer Charles Babbage 
gelten. Er begann 1833 mit der Kon- 
struktion digitaler Rechenautomaten. 
Er legte seinen Maschinen aus Zahnrä- 
dern, Kurbeln und Hebeln zwei wichtige 
Erfindungen zugrunde, nämlich die 
Lochkartensteuerung und das Prinzip 
eines dekadischen Zählrades mit auto- 
matischem Zehnerübertrag. Babbages 
Projekte waren aber wegen fertigungs- 
technischer Schwierigkeiten nur in der 
Theorie funktionsfähig. Erst Elektro- 
mechanik und später die Elektronik 
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machten die Rechenautomaten lang- 
sam zu Computern. 

Der erste Rechenautomat der Welt 
mit Programmsteuerung wurde 1941 
von Konrad Zuse in Betrieb genommen. 
Die Zuse Z3 war ein Relaisrechner, der 
bereits mit Dualzahlen arbeitete und zur 
Darstellung Gleitkommazahlen 
benutzte. Mit der Z3 waren neben den 
vier Grundrechenarten auch das Zie- 
hen von Quadratwurzeln und das 
Potenzieren möglich. Ein Nachbau des 
historischen Modells, das im Krieg zer- 
stört wurde, steht im Deutschen 
Museum in München. Der erste pro- 
grammierbare Rechner Amerikas ent- 
stand 1944. Er wurde von dem Mathe- 
matiker Howard H. Aiken mit Unterstüt- 
zung von IBM entwickelt und auf den 
Namen »Mark I« getauft. Er war jedoch 
ein Ungetüm von 16 m Länge und 35 
Tonnen Gewicht und zudem langsamer 
als die früher entwickelte Z3. 

Der Phase der Relaisrechner setzte 
der Einsatz von Elektronenröhren rasch 
ein Ende. Der bekannte ENIAC war die 
erste vollelektronische Rechenanlage 
der Welt und wurde 1945 in den USA 
fertiggestellt. Er erreichte gegenüber 
den Relaisrechnern bereits die 
2000fache Rechengeschwindigkeit. 


Während die Lochkarte nur eine 
starre Programmsteuerung ermög- 
lichte (keine Schleifen, keine logischen 
Entscheidungen) begann man bald, 
sich über die flexible Speicherprogram- 
mierung Gedanken zu machen. Als 
erstem gelang es dem Amerikaner John 
Neumann das genannte Problem auf 
einem Rechner zu verwirklichen. Der 
bereits 1944 von Neumann konzipierte 
Computer (EDVAC) erfüllte folgende 
Forderungen: Das Programm mußte, 
wie auch die zu verarbeitenden Daten, 
in der Maschine gespeichert werden. 
Außerdem benötigte man bedingte 
Befehle wie Vorwärts- und Rückwärts- 
verzweigungen. Jeden Befehl konnte 
zudem die Maschine selbst, wie jeden 
anderen Operanden ändern. 

Befehle bestanden aus einem 
Operations- und einem Adreßteil. Im 
Operationstel wird eine Angabe 
gemacht was zu tun ist (zum Beispiel 
Ausführung einer Multiplikation), der 
Adreßteil zeigt an, wo sich die zu verar- 
beitenden Daten befinden und wohin 
sie anschließend zu übertragen sind. 
Hier ist also die Rede von den ersten 
Assemblersprachen, an deren Grund- 
prinzipien sich bis heute nicht geändert 
hat. 

Der Schritt von der starren Pro- 
grammsteuerung zum flexiblen Pro- 
gramm leitete die Wende vom Rechner 
zur Datenverarbeitung ein. Die Röhren- 
computer der ersten Generation 


erreichten mit dem SSEC (Selective 
Sequenz Electronic Calculator) Ende 








der vierziger Jahre einen Höhepunkt. 
Dieser besaß nicht weniger als 12000 
Elektronenröhren und etwa 21500 
Relais und wurde von 36 Lochstreifen- 
lesern gesteuert. Er führte die Berech- 
nungen der Mondbahn durch, die 20 
Jahre später im Apollo-Raumfahrtpro- 
gramm verwertet wurden. Mit dem Ein- 
zug der Transistortechnik und später 
mit den integrierten Schaltkreisen 
wuchsen fortan Rechnerleistung und 
Speicherkapazität immer schneller. 
Dies war die Voraussetzung für die 
Schaffung der höheren Programmier- 
Sprachen. 


Die frühen Jahre 
„= Foriran 


Fortran ist die älteste der hier behan- 
delten Hochsprachen und setzt einen 
Meilenstein in der Geschichte. Anfang 
der fünfziger Jahre wuchs die Zahl der 
Computer rasch. An Serienfertigung 
war noch nicht zu denken und es war 
jedes Gerät ein Einzelstück mit eigener 
Hardware und eigenem Assembler. So 
wurde bald der Wunsch nach einer Pro- 
grammiersprache laut, die übertragbar 
und einfach zu programmieren Sein 
sollte. 1952 wurde der Grundstein für 
Fortran gelegt, zu einer Zeit, da die Pro- 
grammierung nur wenigen Spezialisten 
und ausschließlich in Assembler mög- 
lich war. John W. Backus war einer der 
Federführenden, dem die Programmiier- 
gemeinde Fortran zu verdanken hat. 

Der Hauptgrund für die Entwicklung 
war die Schwerfälligkeit der Assembler- 
programmierung. 75 Prozent der 
Kosten eines Rechenzentrums verur- 
sachte damals die Fehlersuche. Ver- 
ständlichkeit war daher ein wesentli- 
ches Entwurfsziel. Dadurch, daß die 
teuere Hardware optimal ausgenutzt 
werden mußte, waren die Rahmenbe- 
dingungen für Fortran bereits vorge- 
zeichnet. Vorrangig wurden Sprachele- 
mente implementiert, die der Speicher- 
und Laufzeiteffiziienz nachkamen. 
Einige dieser Konzepte werden noch 
heute als sehr nachteilig angesehen - 
sind aber immer noch in Fortran enthal- 
ten. 

1955 erschien ein Programmier- 
handbuch, und zwei Jahre später 
wurde die erste Implementierung auf 
einer IBM 704 freigegeben. Damit 
stand Fortran erstmals einer breiten 
Zahl von Programmierern zur Verfü- 
gung. 

Der Name steht für FORmula TRANSs- 
lating system (Formelübersetzer). Und 
genau dort liegt auch der Anwendungs- 
schwerpunkt der Sprache. Rechneri- 
sche Probleme lassen sich in ihr leicht 
und natürlich ausdrücken. Damit wird 
































der Erlernbarkeit der Sprache Rech- 
nung getragen. Im ingenieurwissen- 
schaftlichen und mathematischen 
Bereich gilt Fortran auch heute noch als 
die wichtigste Programmiersprache. So 
bietet sie zum Beispiel neben den allge- 
mein gebräuchlichen Zahlentypen Real 
(Fließkommazahlen) und Integer 
(Ganze Zahlen) auch noch den Typ 
»Double Precision« für Rechnungen mit 
höherer Genauigkeit sowie »Logical« für 
boolsche Operationen. Großrechner- 
Versionen beinhalten zudem noch den 
Typ »Complex«, der in der theoreti- 
schen Elektrotechnik eine sehr wich- 
tige Rolle spielt. 

Das Format dieser Sprache ist streng 
zeilenorientiert und erlaubt normaler- 
weise nur einen Befehl je Zeile. Das 
hängt damit zusammen, daß Fortran 
zunächst als lochkartenorientierte 
Sprache entstand. Grundsätzlich 
mußte man damals für jede neue Anwei- 
sung eine neue Lochkarte (beziehungs- 
weise Zeile) verwenden. Wie auch in 
Basic, das später aus Fortran entstand, 
mußte bei den ersten Versionen viel mit 
dem Goto-Befehl umhergesprungen 
werden. Neuere Versionen wie Fortran 
V und Fortran 77 bieten demgegenüber 
schon strukturierende Sprachelemen- 
te wie IF....THEN.... ELSE... ENDIF. 

Nachdem die 1958 geschaffene Ver- 
sion Fortran Il eine mäßige Verbreitung 
gefunden hatte, entstand 1962 das in 
weiten Kreisen akzeptierte Fortran IV. 
Den fortschreitenden Auswüchsen 
immer neuer Versionen wurde 1966 
Einhalt geboten, mit einer Version, die 
größtenteils mit Fortran IV identisch 
war. Schließlich überarbeitete das ANSI 
Fortran 66 im Jahr 1977 nochmals und 
beseitigte einige eklatante Mängel. 

Unter CP/M ist Fortran derzeit für fast 
alle Mikrocomputer mit Z80-Prozessor 
erhältlich, ebenso wie eine Reihe von 
Fortran-Implementationen für MS-DOS- 
Computer. 


Cobol - 
die Geschäftige 


Die Programmiersprache Cobol ent- 
stand 1959 auf Initiative des US- 
Verteidigungsministeriums. Zu dieser 
Zeit begann Portran sich gerade auszu- 
breiten. Was noch fehlte, war eine Spra- 
che für den kommerziellen und kauf- 
männischen Einsatz. So entwickelte 
man Cobol mit dem Ziel, große Daten- 
bestände verarbeiten zu können und 
die Ein/-Ausgabe zu unterstützen. 
Insbesondere die ersten FPortran- 
Versionen waren hierfür ungeeignet. 
Ende der fünfziger Jahre wurde die 
Codasyl-Entwicklungsgruppe aus Ver- 
tretern der Computerindustrie und der 
amerikanischen Regierung gegründet. 








Schon 1960 stellte diese Gruppe die 
erste Version mit der Bezeichnung 
Cobol-60 vor. Sie war wesentlich an die 
weniger bekannte Sprache Comtran 
(COMmeercial TRANslator) angelehnt. 
Aufgrund der hastigen Entwicklung von 
Cobol innerhalb eines halben Jahres 
ergaben sich viele Ungereimtheiten, 
die sich teilweise durch alle Neuent- 
würfe hindurchschleppten und auch 
heute noch nicht ganz beseitigt sind. 
Cobol-61 war dann die Grundlage für 
alle späteren Versionen. Sie war zu 
Cobol-60 nicht kompatibel. 1965 
wurde als wesentliche Neuerung die 
Unterstützung von Massenspeichern 
und Tabellen mit eingebracht. 

Die Sprachelemente von Cobol sind 
je nach ihrer Funktion in Module zusam- 
mengefaßt. Das ANSI entwickelte bis 
1974 einen zwölf Module umfassen- 
den Standard, namentlich Cobol 
ANS-74. Er wurde 1980 nochmals ver- 
bessert. Den jeweils neuesten Stand 
veröffentlicht das CODASYL-Komitee 
im Abstand von drei Jahren. Der Stan- 
dard für die Bundesrepublik Deutsch- 
land ist in der DIN-Norm 66028 nach- 
zulesen. 

Die kurze Darstellung der Entwick- 
lungsgeschichte läßt erkennen, daß 
Cobol ebenfalls eine alte Sprache ist. 
Cobol-Programme müssen aus heuti- 
ger Sicht als mangelhaft angesehen 
werden. 

Ursprünglich verfolgte man wie bei 
keiner anderen Sprache das Ziel der 
Lesbarkeit des Programmtextes. Die 
Sprache sollte dann auch leicht erlern- 
bar sein. Der Programmtext erinnert 
stark an (englische) Prosa. Cobol- 
Programme simulieren nämlich die 
natürliche englische Sprache. So wird 
zum Beispiel jeder Befehl mit einem 
Verb eingeleitet. Die Grundrechenarten 
stehen nicht als Symbole, sondern als 
Befehlswörter (add, divide) zur Verfü- 
gung. Ebenso werden logische Opera- 
toren ausgeschrieben. Ein Beispiel: 
Wenn die Variable A größer ist als Null, 
soll der Variablen B die Summe der 
Variablen C und A zugeordnet werden. 
In Basic würde man das so formulieren: 
IF A>O THEN B= C+A 
Daraus wird in Cobol: 

IF A GREATER THAN ZERO ADD C TO 
A GIVING B. 

Daß so aus komplizierteren mathema- 
tischen Formeln monströse Gebilde 
werden, leuchtet ein. Dahöhere mathe- 
matische Funktionen in Cobol ganz feh- 
len, ist die Sprache für wissenschaftli- 
che Anwendungen völlig ungeeignet. 

Derartige Beispiele verdeutlichen, 
daß das Entwicklungsziel von Cobol 
nicht sinnvoll erreicht wurde. Dennoch 
ist Cobol auch heute noch die weltweit 
am stärksten verbreitete Programmier- 
sprache. Ganze Rechenzentren arbei- 





ten mit ihr. Die hohen Investitionen und 
die Gewöhnung des Personals an diese 
Sprache wird auch in Zukunft für ihrer 
Erhalt sorgen. Zudem erreicht auch 
noch keine neuere Programmierspra- 
che die Cobol-Domäne Datenorganisa- 
tion. 

Wer einen Mikrocomputer mit den 
Betriebssystemen CP/M oder MS-DOS 
(PC-DOS) besitzt, kann in Cobol ein- 
steigen. 


PL/I1 = 
von allem etwas 


Fortran und Cobol sind charakteri- 
stisch für die strikte Trennung in kom- 
merzielle und technisch-wissenschäaft- 
liche Anwendungen zu Beginn der 
sechziger Jahre. Daneben wurden 
Computer nur noch in Spezialgebieten 
eingesetzt. Im Laufe der Zeit traten aber 
die Merkmale der naturwissenschaft- 
lich-technischen Bereiche in den 
betriebswirtschaftlichen Anwendun- 
gen immer mehr hervor und umgekehrt. 
So waren die kommerziellen Anwender 
mehr und mehr auf Methoden aus der 
Statistik, Operations Research und 
Ökonomie angewiesen. Mathematiker 
und Ingenieure stellten zunehmend 
höhere Ansprüche an Datenverwaltung 
und an die Ein-/Ausgabeunterstützung. 

Als logische Konsequenz kamen die 
Anbieter den neuen Bedürfnissen mit 
einer universellen Hard- und Software- 
konfiguration nach. Hardwareseitig ent- 
wickelte IBM die Rechnerfamilie /360 
mit dem Betriebssystem OS/360. 
Diese Anlagen zählten sich bereits zur 
dritten Computergeneration (das heißt, 
die Schaltkreise waren in Hybridtechnik 
ausgelegt, einer unmittelbaren Vorstufe 
der integrierten Schaltkreise). 

Bei den Überlegungen zu einer 
neuen Sprache war man zunächst von 
Fortran ausgegangen. Die Organisation 
SHARE (Society for Help to Avert 
Redundant Effort), eine Vereinigung 
wissenschaftlicher IBM-Anwender, 
einigte sich mit der Firma IBM auf die 
Gründung eines Sprachkomitees. 
Zunächst war die Rede von Fortran Vi. 
Man gelangte aber schon nach kurzer 
Zeit zu der Erkenntnis daß die 
gewünschten Verbesserungen eine 
Kompatibilität mit Fortran unmöglich 
machten. Die Anlehnung an Fortran 
hätte außerdem die große Gruppe der 
kommerziellen Verwender abge- 
schreckt. So entschied man sich für die 
Entwicklung einer gänzlich neuen Spra- 
che. Deren wichtigsten Entwurfsprinzi- 
pien waren: allgemeine Einsetzbarkeit 
und weitgehende Ausdrucksfreiheit. 
Der Sprachaufbau sollte modular sein 
und Testhilfen sowie Möglichkeiten zur 
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Fehlerbehandlung bieten. Ein großen- 
teils gegenläufiges Ziel bestand in den 
Forderungen, den vollen Zugriff auf 
Hardware- und Betriebssystemleistun- 
gen bei gleichzeitiger Maschinenunab- 
hängigkeit zu gewähren. i 

Nach vielen drastischen Überarbei- 
tungen hatte sich der Sprachumfang bis 
1965 stabilisiert. Nachdem die Abkür- 
zung für NPL (New Programming Lan- 
guage) bereits vergeben war, einigte 
man sich schließlich auf PL/I (Program- 
ming Language one). Im August 1966 
wurde dann der erste Compiler für eine 
IBM /360 freigegeben. Schließlich ver- 
abschiedeten das ANSI und die ECMA, 
ein europäisches Standardisierungsko- 
mitee, einen vorläufig endgültigen Stan- 
dard. Die Verbreitung von PL/1 nahm 
zunächst rasch zu, wurde aber später 
den gesetzten Erwartungen nicht 
gerecht. 

Kommen wir nun zu der Sprache, die 
jeder, und wenn nur vom Hörensagen, 
kennt. Sie kann sich rein zahlenmäßig 
im Mikrocomputerbereich als die am 

In den Sprachumfang von PL/1 wur- 
den viele Konzepte aus Fortran, Cobol, 
Algol und Jovial übernommen (letztere 
werden hier wegen ihrer geringen Ver- 
breitung nicht behandelt). Leider 
gelang es nicht, sich bei der Auswahl 
nur auf die guten Eigenschaften der 
Vorgänger zu beschränken. Zudem ist 
der Sprachumfang riesig. Eine fast 
unüberschaubare Anzahl von Schlüs- 
selwörtern zwingt zu Maßnahmen, 
durch die der Programmierer auch mit 
Teilmengen der Sprache sinnvoll arbei- 
ten kann. Daher ergeben sich für die 
PL/1 -Syntax sehr freizügige Vorschrif- 
ten. Einerseits existiert keine Zeilen- 
struktur, Zwischenräume, Einrücken 
und Kommentare dürfen fast beliebig 
verstreut werden. Da passiert es dann 
auch nicht selten, daß beim Program- 
mieren das Format aus allen Fugen 
gerät. Außerdem sind die Schlüssel- 
wörter nicht reserviert, wohl wegen 
ihrer großen Anzahl. Gebilde wie 
IF ELSE=THEN THEN IF=ELSE; ELSE 
IF=THEN 
tragen wohl zur Verwirrung jedes hoff- 
nungsvollen Programmierers bei. Ein 
wesentlich angenehmerer Fortschritt 
ist andererseits das ausgeprägte 
Blockkonzept der Sprache. PL/1 orien- 
tiert sich wesentlich an Prozeduren. All- 
gemein kann gesagt werden, daß die 
Einarbeitung in PL/1 viel Zeit braucht. 
Wer damit trotz aller Warnungen begin- 
nen will, kann dies unter CP/M oder auf 
PC-Kompatiblen tun. 
weitesten verbreitete Sprache der Welt 
rühmen. Sie ist schon fast als Teil der 
Allgemeinbildung zu betrachten. Ganz 
anders als bei den »großen professio- 
nellen«e wurde die Entwicklung von 
Basic (Beginners All-purpose Symbolic 


[a 


i voM | 
Ib coMPUTER 


_) 
“ 





Instruction Code) nicht durch eine 
Industrie- oder Militärlobby getragen. 
Die Ausrichtung der Sprache kommt 
denn auch in ihrem Namen zum Aus- 
druck: Sie wendet sich an den Anfänger 
und soll für jeden Zweck geeignet sein. 


Basis für Einsteiger 
ee EEE — EEE ers. 5.1 5° Er —— 


Ihre geschichtliche Entwicklung 
erklärt viele Aspekte des Sprachkon- 
zepts. Basic wurde von Thomas Kurtz 
und John Kemeny von 1956 bis 1971 in 
den USA am Dartmouth College ent- 
wickelt. Ziel war es, Studenten, die sich 
nicht ausschließlich mit Ingenieurwis- 
senschaften beschäftigten, das Pro- 
grammieren zu erleichtern. So schlu- 
gen sich denn auch die Erfordernisse 
der allgemeinen Ausbildung einer Uni- 
versität in der Sprache nieder: Bei der 
angesprochenen Zielgruppe erschien 
ein eigener Programmierkurs nicht 
erforderlich. Vielmehr sollte das Pro- 
grammieren im Rahmen der Mathema- 
tikvorlesungen gelehrt werden. Hieraus 
erklärt sich auch die Ausrichtung von 
Basic auf mathematische Probleme. Die 
neue Sprache sollte leicht erlernbar 
und leicht zu benutzen sein. Dies war 
nach Meinung von Kurtz und Kemeny 
bei Fortran und Algol nicht der Fall. So 
erklärt sich auch, daß bei Basic nicht, 
wie bei PL/1, auf Bewährtes zurückge- 
griffen wurde. 

Im Gegensatz zu den bisher behan- 
delten Sprachen wurde Basic als voll- 
ständiges Programmiersystem konzi- 
piert. Der Benutzer kann im Dialog mit 
Basic arbeiten, ohne die Basic- 


Umgebung zu verlassen. Hierzu exi- 
stiert der »Direkt-Modus«, der das Edi- 
tieren, Ausführen und Speichern von 
Programmen unterstützt. 


Basic ist 
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zudem eine typische _Interpreter- 
Sprache, für die allerdings auch ver- 
schiedene Compiler erhältlich sind. 

Mit der Entwicklung des ersten Com- 
pilers begannen Kurtz, Kemny und eine 
Gruppe Studenten 1963. Im Mai 1964 
wurde dann das erste Basic-Programm 
ausgeführt; die erste Version kannte 
nur 14 Instruktionen. Diese Minimalaus- 
stattung wurde am Dartmouth College 
bis 1971 ininsgesamt sechs Versionen 
schrittweise vervollständigt. Seither 
nahmen die Autoren keine Veränderun- 
gen mehr vor. Das bedeutet natürlich 
nicht, daß Basic jemals eine wirkliche 
Standardisierung erfahren hätte. Im 
Gegenteil: Durch das Fehlen einer 
Interessenvertretung professioneller 
Anwender und durch die enorme Ver- 
breitung der Sprache wucherten die 
Basic-Versionen fast uferlos. Für 
nahezu jeden Mini- und Mikrocomputer 
und selbst auf Taschenrechnern ist 
Basic erhältlich. Da von Herstellerseite 
nach dem Motto verfahren wurde 
»jedem Topf ein anderer Deckel« ist 
Kompatibilität ein Fremdwort. Auch die 
Bemühungen der ECMA und ANSI in 
den letzten Jahren waren kaum von 
Erfolg gekrönt. Lediglich ein »Minimal 
Basic« wurde kompromißbereit zum 
Standard deklariert. Diese Teilmenge ist 
der ersten Sprachbeschreibung von 
1964 sehr ähnlich. Lediglich im Heim- 
computerbereich gelang es mit den 
MSX-Computern erstmals, einen wei- 
testgehenden Basic-Standard für 
Geräte verschiedener Hersteller zu 
schaffen. Haar in der Suppe war aber, 
daß die MSX-Computer wenig Verbrei- 
tung fanden. 

Ein Basic-Programm besteht aus 
nummerierten Zeilen in aufsteigender 
Folge. Dabei sind die Zeilennummern 
aus einem festgelegten Intervall zu 
wählen. Jeder Zeilennummer folgen 
eine oder mehrere Instruktionen. Die 


| 


> 


| 


Zeilennummern legen die logische Rei- 
henfolge der auszuführenden Anwei- 
sungen fest. Darüber hinaus dienen Sie 
als Orientierung für die Sprungbefehle. 
Beim Editieren des Programmtextes 
lokalisieren sie die Zeilen. Basic ist 
noch stärker zeilenorientiert als Fortran. 
Das geht so weit, daß eine Basic- 
Anwendung durch die Zeilenlänge 
begrenzt wird. In einigen Basic- 
Versionen sind Fortsetzungszeilen mit 
dem Zeichen »&« möglich. 

Als Datentypen sind in Basic nur 
numerische Daten und Zeichenketten 
vorgesehen. Eine Unterscheidung in 
ganzzahlig und Fließkomma, wie es von 
anderen Sprachen her bekannt war, 
wurde der Einfachheit wegen bewußt 
vermieden, ist aber dennoch auf vielen 
Computern implementiert. Für Daten- 
strukturen stehen nur ein- und mehrdi- 
mensionale Felder (Arrays) zur Verfü- 
gung. Deren Elemente können je nach 
Version entweder nur einzeln manipu- 
liert werden, oder es stehen spezielle 
Matrizenoperationen bereit. 

Die Sprunganweisungen sind, wie 
bereits erwähnt, vielen ein Greuel. Zwar 
bieten moderne Basic-Versionen viele 
Befehle, die das strukturierte Program- 
mieren unterstützen, sie erfordern aber 
genaue Vorausplanung eines Pro- 
gramms. Im Regelfall endet bei länge- 
ren Programmen ein »Drauflosprogram- 
mieren« im Chaos aus GOTO, GOSUB 
und FOR...NEXT. 

Des weiteren beinhaltet Basic, je 
nach Ausstattung und Computer, 
Befehle für die Ein-/Ausgabe, mathema- 
tische Funktionen, Grafik, Tonerzeu- 
gung und den Zugriff auf das Betriebs- 
system. Hierauf im einzelnen einzuge- 
hen würde zu weit führen. Es sei daher 
auf entsprechende Fachliteratur ver- 
wiesen. 


Pascal - strukturiert 


Ein moderner Klassiker unter den 
Programmiersprachen ist Pascal. Der 
Name ist ausnahmsweise keine Abkür- 
zung. Er wurde zu Ehren des französi- 
schen Mathematikers Blaise Pascal 
gewählt, der 1642 im Alter von 19 eine 
der ersten funktionsfähigen Rechen- 
maschinen konstruierte. 

Die Wurzeln dieser Programmierspra- 
che reichen in das Ende der sechziger 
Jahre zurück. Zu jener Zeit stellten 
Nikolaus Wirth und C.A.R. Hoare Über- 
legungen an, auf der Basis von Algol 60 
eine Nachfolgesprache zu entwickeln. 
Algol 60 bot schon damals ein zufrie- 
denstellendes Sprachkonzept. Das gilt 
besonders für die Strukturierung des 
Programmablaufs und des Programm- 


textes. Wegen dieser Vorteile wurde 
Algol zur Grundlage einer ganzen 
Klasse von Programmiersprachen, die 
bei Pascal beginnt und vorläufig von 
Ada gekrönt wird. Eine der Schwächen 
ist dagegen die unzureichende Daten- 
strukturierung. Ebenso wie Basic und 
Fortran kennt Algol 60 nur das Array. 
Die später folgende Version Algol 68 
war ähnlich wie PL/1 zu umfangreich 
und unhandlich. Mit der Entwicklung 
von Pascal verfolgte man das entge- 
gengesetzte Ziel. Der Schweizer Pro- 
fessor Nikolaus Wirth formulierte bei 
der Entwicklung der Sprache an der 
ETH Zürich die folgenden Schwer- 
punkte: Pascal sollte nur grundlegende 
Sprachkonzepte enthalten. Diese soll- 
ten natürlich definiert sein und das 
Erlernen des strukturierten Program- 
mierens als eine systematische Diszi- 
plin unterstützen. Des weiteren sollte 
sie sich effizient auf allen Computern 
implementieren lassen. 


Die erste vorläufige Version entstand 
1968. Die vollständige Beschreibung 
eines Compilers und der Sprache 
selbst war 1971 fertig. Das 1974 
erschienene Benutzerhandbuch »Pas- 
cal User Manual and Report« enthält 
eine Sprachdefinition, die heute als 
Wirth-Standard bezeichnet wird. Die 
verbreiteten Versionen Turbo- und 
UCSD-Pascal enthalten demgegen- 
über noch einige Erweiterungen, die 
vor allem Grafik und Zeichen-Strings 
betreffen. 

Durch die leichte Erweiterbarkeit von 
Pascal entstanden bald viele Dialekte. 
Deshalb und wegen der weltweiten 
Anerkennung der Sprache nahmen 
sich verschiedene Normeninstitute die- 
sem Problem an. Die ISO setzte 
schließlich 1980 einen Standard fest, 
der in der DIN-Norm 662586 nachzule- 
sen ist. Strukturierung bedeutet nicht 
nur, daß das Programm übersichtlich 
ist, sondern daß sich der Vorgang des 
Programmierensin verschiedene Aktio- 
nen aufteilt. Bevor man sich an den 
Computer setzt, sollte man das Pro- 
blem genau analysieren und in Aufga- 
benpakete zerlegen. Dann ist für jedes 
Paket ein Algorithmus zu bestimmen 
und in Pascal zu formulieren. Erst dann 
beginnt die Tipparbeit. Pascal- 
Programme entstehen also auf dem 
Papier und weniger am Bildschirm. 
Diese Vorgehensweise erreicht eine 
niedrige Fehlerquote und damit sinkt 
auch die Zahl der Übersetzerdurch- 
läufe, was bei einer typischen Compiler- 
sprache wie Pascal sehr angenehm ist. 

Ein Pascal-Programm ist klar geglie- 
dert in einen Vereinbarungs- und einen 
Anweisungsteil. Vereinbart werden 


zuerst alle Variablen, Konstanten und 
deren Datentypen. Im Anweisungsteil 
werden die Aufgabenpakete in Proce- 








dures formuliert. Jede Procedure ent- 
hält einen eigenen Namen. Das eigentli- 
che Hauptprogramm besteht dann nur 
noch aus dem Aufrufen der Procedures 
und steht im Programmtext ganz am 
Ende. 

Daß der GOTO-Befehl in Pascal ent- 
halten ist, verwundert eigentlich. Ange- 
sichts der Strukturbefehle IF....THEN- 
CASE kann man gut auf ihn verzichten. 
Der Vorrat an Datentypen eröffnet 
gegenüber Basic ganz neue Möglich- 
keiten. Man unterscheidet hier zwi- 
schen einfachen Typen, strukturierten 
Typen und Zeigertypen. Integer, Char, 
Boolean und Real zählen zu den einfa- 
chen Typen. Boolean bezeichnet eine 
Variable, der nur die Werte False oder 
True zugeordnet werden können. Array, 
Record, Set und File stehen als struktu- 
rierte Typen zur Verfügung. Set 
bezeichnet eine Menge. Auf diesen Typ 
sind die üblichen Mengenoperationen 
Vereinigung, Durchschnitt, Differenz, 
Untermenge und Elementüberprüfun- 
gen anwendbar. Record ermöglicht 
Verbundvariablen. Es lassen sich so 
unterschiedliche Variablentypen zu 
einer Variable zusammenfassen. 
Record war ursprünglich für kommer- 
zielle Anwendungen gedacht (Tabellen- 
darstellung). Demgegenüber werden 
mit dem Typ File nur Variablen eines ein- 
zigen Typs verkettet. Der Typ Zeiger 
(pointer) schließlich ermöglicht verket- 
tete Listen und deren bequeme Mani- 
pulation, sowie Baumstrukturen. Wem 
das noch nicht reicht, der kann sich in 
Pascal weitere einfache Datentypen 
selbst definieren. 

Pascal ist vielseitig und erzieht zum 
strukturierten Denken. Seine Verarbei- 
tung, vor allem im akademischen Be- 
reich, ist folgerichtig sehr hoch. So lie- 
gen denn auch für fast alle rechnereige- 
nen Betriebssysteme wie auch für 
CP/M und MS-DOS Pascal-Versionen 
vor. 


Forth — die etwas 
andere Sprache 


Forth entstand Anfang der siebziger 
Jahre. Charles H. Moore entwickelte 
die Sprache ursprünglich zur Steue- 
rung von Radioteleskopen. Er arbeitete 
dazu mit einem IBM-1130, einem Com- 
puter der dritten Generation. Das End- 
produkt war aber so mächtig, daß es 
Moores Computer als einen der vierten 
Generation erscheinen ließ. Er wollte 
der neuen Sprache daher den Namen 
Fourth geben. Namen mit mehr als fünf 
Buchstaben waren auf dem IBM jedoch 
nicht erlaubt. So wurde das »u« ein 
Opfer dieser technischen Unzuläng- 
lichkeit. 
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Forth ist interaktiv wie Basic. Das 
heißt, es existiert sowohl ein Interpreter 
als auch ein Compiler. Programme kön- 
nen somit erst im Direktmodus »häpp- 
chenweise« getestet und anschließend 
compiliert werden. Des weiteren ver- 
bindet Forth Merkmale der Assembler- 
sprachen mit denen der Hochspra- 
chen. 

Die Strukturierung in Forth entsteht 
durch die Definition immer neuer Worte. 
Der ohnehin schon große Sprachum- 
fang nimmt beim Programmieren stän- 
dig zu. Beliebige Befehle können zu 
einem neuen Befehl zusammengefaßt 
werden, der dann sofort wieder in wei- 
tere Befehle mit eingebaut werden 
kann. Schließlich steht für das gesamte 
Programm ein einziger Befehl am Ende 
dieser Kette. 

Selbstverständlich stellt Forth auch 
die Kontrollstrukturen zur Verfügung, 
die bereits für Pascal angesprochen 
wurden, wie IF.....ELSE....ENDIF, 
BEGIN... UNTIL, BEGIN..WHILE etc. 
Das berüchtigte GOTO fehlt hier ganz, 
ergäbe auch bei diesem Sprachkon- 
zept keinen Sinn. 

Grundlegendes Prinzip von Forth ist 
das Operieren mit dem Stapelspeicher 
(Stack). Dieser funktioniert nach dem 
LIFO-Prinzip (Last In, First Out). Alle 
Werte, die auf dem Stapel abgelegt wur- 
den, lassen sich nur in umgekehrter 
Reihenfolge wieder herunternehmen. 
Für einen problemlosen Ablauf dieses 
Systems sorgen eine ganze Reihe von 
Stack-Befehlen, mit denen sich Werte 
verschieben und vertauschen lassen. 
Sämtliche mathematischen Operatio- 
nen laufen in Forth über den Stack. Man 
bedient sich hierbei der Umgekehrten 
Polnischen Notation (UPN), die recht 
gewöhnungsbedürftig und Benutzern 
von HP-Taschenrechnern bekannt ist. 

Forth ist ein sehr offenes System und 
durch seine Assemblernähe universell 
einsetzbar. Fehlende Funktionen kön- 
nen jederzeit selbst programmiert wer- 
den. Zudem ist Forth sehr schnell. Das 
Erlernen der Sprache und die Über- 
sichtlichkeit der Programme können als 
noch ausreichend eingestuft werden. 
Auf jeden Fall fasziniert Forth jeden, 
der sich länger damit beschäftigt. Für 
alle verbreiteten Mikrocomputer exi- 
stieren mittlerweile eine oder mehrere 
Versionen. 


Logo — kinderleicht 


Seymour Papert, der als geistiger 
Vater der Sprache Logo gilt, arbeitete 
12 Jahre an der Verwirklichung dieser 
»Erziehungsphilosophie«. Er leitete ein 
eigens gegründetes Entwicklungsteam 
aus Programmierern und Lehrkräften 
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am MIT (Massachusetts Institute of 
Technology) in den USA. Man arbeitete 
damals ausschließlich auf den größten 
vorhandenen Datenverarbeitungsanla- 
gen. Dadurch fand ein wesentliches 
Konzept der KlI-Sprache Lisp in Logo 
Anwendung: die Listenprogrammie- 
rung. Listen sind einfach zu definieren 
und können per Befehl manipuliert, 
kombiniert und verglichen werden. Eine 
leicht programmierbare Dateiverwal- 
tung ist nur ein Anwendungsbeispiel 
dieser Technik. 

Bekannt wurde Logo vor allem durch 
die Schildkröte, ein kleines Zeichen- 
symbol der »Turtle-Graphics«. Mit ihr las- 
sen sich auf einfache Weise die tollsten 
Grafiken zaubern. Die Schildkröte krab- 
belt über den Bildschirm und hinterläßt 
dabei eine sichtbare Spur. 


Eine Schildkröte 


machte 
Logo bekannt 


Gesteuert wird mit einfachen Befeh- 
len wie FORWARD, BACK, LEFTTURN, 
RIGHTTURN. Zusätzlich muß noch die 
Länge der zurückgelegten Strecke und 
des Drehwinkels angegeben werden. 
Ebenso ist eine Standortabfrage der 
Turtle möglich. Logo-Programme 
ähneln in der Struktur dem Baukasten- 
prinzip der Forth-Programme. Mit Hilfe 
des Interpreters lassen sich einzelne 
Bausteine erproben und später zum 
eigentlichen Programm zusammenset- 
zen. Der Komfort ist dabei in Logo 
ungleich höher als in allen bisher 
genannten Sprachen. So kann der 
Anwender vorerst Begriffe wie Archi- 
vierung, Dateien und andere spezielle 
Funktionen der Datenverarbeitung links 
liegen lassen. Diese Vorteile gehen 
aber leider zu Lasten des Speicherplat- 
zes. 

Eng mit dem Prozedurkonzept ver- 
bunden ist die Rekursivität von Logo. 
Prozeduren sind in der Lage, sich selbst 
aufzurufen. Auf diese Weise lassen sich 
schnell reizvolle grafische Gebilde 
erzeugen und gewisse mathematische 
Zusammenhänge einfach ausdrücken. 
Rekursive Strukturen sind in Basic gar 
nicht und in vielen anderen Sprachen 
nur mit hohem Aufwand zu verwirkli- 
chen. 

In die Logo-Philosophie wurden 
Erziehungstheorien des Schweizer 
Philosophen Jean Piaget eingebracht. 
Dieser hatte zuvor das Lernverhalten 
von Kindern analysiert. Tatsächlich 


wirkt Logo besser auf die Denkweise 
eines Schülers als Basic oder Pascal. 
Bemängelt werden muß bei Logo haupt- 
sächlich die geringe Verarbeitungsge- 
schwindigkeit der Programme. Sie fällt 








aber bei einem Lernsystem nicht so 
stark ins Gewicht. 

Wegen des hohen Speicherbedarfs 
sind Logo-Interpreter auf Mikrocompu- 
tern nur als Ausschnitt des Gesamtsy- 
stems erhältlich. Dies wird sich mit 
wachsendem Speicherstandard jedoch 
bald ändern. 


en, 


Im Jahre 1973 ging Comal aus den 
Sprachen Basic und Pascal als ein 
neuer Ableger hervor. Später kamen in 
Comal noch Elemente von Logo hinzu, 
so zum Beispiel die Schildkrötengrafik. 
Zudem sind in Comal der Compiler und 
der Interpreter nicht getrennt vorhan- 
den, sondern es wurden deren beste 
Elemente in einer Zwischenstufe 
zusammengefaßt. Ein Comal-Pro- 
gramm besteht aus drei Schritten. Im 
ersten wird schon bei der Programm- 
eingabe die Syntax überprüft. Dieser 
Syntaxchecker ist selbst für den ohne- 
hin schon eingabefreundlichen Inter- 
preter ungewöhnlich komfortabel. Die 
Comal-Schlüsselworte werden sofort in 
sogenannte »loken« übersetzt, das sind 
Abkürzungen, die nur ein Byte bean- 
spruchen. Dieses Prinzip verwenden 
übrigens alle Interpreter. Der zweite 
Schritt beginnt nach dem Programm- 
start. In einer Art Compilerdurchlauf 
wird der Programmtext nach Variablen, 
Prozeduren, Funktionen und Sprüngen 
durchsucht. Die Ergebnisse dieser 
Analyse werden dann in einer geson- 
derten Liste zusammengefaßt. Man 
kann diesen Vorgang auch als eine Art 
automatische Deklaration ansehen. Im 
dritten Schritt, dem Programmlauf 
selbst, wird auf diese Liste ständig 
direkt zugegriffen. So ergeben sich 
gegenüber Basic, wo der Interpreter oft 
den ganzen Programmtext absucht, 
enorme Geschwindigkeitsvorteile. 

Die Comal-Syntax lehnt sich stark an 
die von Basic an. Im Direktmodus wur- 
den die meisten Befehle Wort für Wort 
übernommen. Das gleiche gilt für einige 
Befehle des Programm-Modus. Einige 
Comal-Versionen akzeptieren neben 
den eigenen Schlüsselworten sogar 
noch gleichbedeutende Basic-Befehle. 
Wer aus Basic zu Comal aufsteigt, ist so 
zwar vor Irrtümern einigermaßen sicher, 
jedoch wird dem Prinzip der Eindeutig- 
keit nicht gerade Rechnung getragen. 

Von Pascal wurde die Strukturiertheit 
übernommen, dessen strenge Syntax- 
vorschriften aber erfreulicherweise ver- 
mieden. Die typischen Kontrollstruktu- 
ren, die schon bei Pascal und Basic 
beschrieben wurden, sind ausnahms- 
los vorhanden. Die Lesbarkeit des Pro- 
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grammtextes wird zudem dadurch 
unterstützt, daß Comal beim Listen eine 
optische Gliederung vornimmt. 

Comal wird für fast alle gängigen 
Mikrocomputer angeboten. Erfreuli- 
cherweise stehen auch, ähnlich wie bei 
Forth, zahlreiche Public-Domain- 
Versionen zur Verfügung. Diese unter- 
scheiden sich von kommerziellen 
Sprachangeboten lediglich im Umfang. 
Es wird erwartet, daß Comal in Zukunft 
eine starke Verbreitung erfährt. Jüng- 
ster Anhaltspunkt für diese These ist 
der Beschluß der Kultusministerien, 
Pascal im Informatikunterricht allmäh- 
lich durch Comal zu ersetzen. 


C — die Zukunft? 


»C« - für diesen einen Buchstaben 
lassen viele Programmierer Pascal, 
Forth oder Fortran links liegen. Viele 
betrachten C als die Programmierspra- 
che schlechthin. Tatsächlich bietet C 
viele bestechende Vorteile, die sich von 
denen der anderen Hochsprachen 
unterscheiden. In C wurden bekannte 
Betriebssysteme wie Unix und GEM 
geschrieben. 

Die Entwicklung von C reicht bis an 
den Anfang der siebziger Jahre zurück. 
Die Namensgebung war ebenso kurios 
wie einfallslos. 1970 begann die Firma 
Digital Equipments mit der Entwicklung 
von Spezialsprachen, die die Program- 
mierung von Minicomputern unterstüt- 
zen sollten. Diese wurden einfach nach 
dem Alphabet benannt. B war also eine 
Weiterentwicklung von A und diente 
1971 dazu, Unix auf verschiedene 
Rechner zu übertragen. Bald darauf 
erkannten Dennis Ritchie und Ken 
Thompson, die damals bei Bell Labora- 
tories beschäftigt waren, die Leistungs- 
fähigkeit von B. Sie verbesserten diese 
Sprache bis 1973 entscheidend. Wie 
das Endprodukt heißt, wissen wir 
bereits. Unix wurde wenig später eben- 
falls auf C umgeschrieben. 

Wenn ganze Betriebssysteme in C 
gehalten sind, läßt sich die ungeheuere 
Effizienz dieser Sprache schon erah- 
nen. Das C-Compilat geht mit dem Spei- 
cher äußerst sparsam um, und ist 
zudem um den Faktor 50 schneller als 
vergleichbare Basic-Programme. 

Der eigentliche Befehlsvorrat von C 
ist denkbar klein. Er umfaßt nur 13 
Instruktionen. Bei der Erzeugung eines 
C-Programms wird der Quelltext zuerst 
mit dem mitgelieferten Editor oder einer 
Textverarbeitung geschrieben. Dieser 
dient dann als Eingabedatei für den 
Compiler. Bis hierher besteht also kein 
Unterschied zur Vorgehensweise mit 
den meisten anderen Compilerspra- 
chen. Der Compiler überprüft den Text 
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und übersetzt diesen mit den ihm 
bekannten Befehlen in eine Zwischen- 
datei und legt diese auf einen externen 
Speicher (zum Beispiel Diskette) ab. 
Anschließend beginnt das sogenannte 
»Linking«. Der Linker ordnet aus einer 
externen Bibliothek die noch fehlenden 
Befehle entsprechendem Assembler- 
code zu. So entsteht schließlich das 
lauffähige Programm, das fast so kom- 
pakt ist, als wäre es direkt in Maschi- 
nensprache geschrieben. Das Compi- 
lieren benötigt jedoch wegen des Zwi- 
schencodes je nach Geschwindigkeit 
des Speichermediums mehr Zeit, als 
die unmittelbare Übersetzung in 
Maschinensprache. 

Die Vorteile des Compiler-Linker- 
Prinzips wiegen diesen Nachteil bei 
weitem auf: C ist praktisch uneinge- 
schränkt portabel und die Linker- 
Funktion kann man selbst erweitern. C- 
Programme bieten neben der selbst- 
verständlichen Strukturierung einige 
ungewöhnliche aber vorteilhafte Eigen- 
schaften. So sind in Anlehnung an 
Assembler Befehle zum Inkrementieren 
und Dekrementieren vorhanden, Varia- 
ble können als Registervariable dekla- 
riert werden. Daß die Benutzung derar- 
tiger Sprachmittel einem Compiler das 
Leben leicht macht, ist klar. Einschrän- 
kungen entstehen jedoch bei Prozes- 
soren, die nur wenige Register aufwei- 
sen, wie beispielsweise die drei 8-Bit- 
Register des 6502, der nur A, X und Y 
zu bieten hat. 

Ein weiteres nennenswertes Stilmit- 
tel unter C sind Makros. Diese sind mit 
Unterprogrammen vergleichbar, die 
nicht angesprungen werden müssen, 
sondern jeweils erneut vom Compiler in 
den Objektcode eingebunden werden. 
Diese Technik bringt einen großen Zeit- 
vorteil, da Parameterübergaben und 
Sprünge entfallen. 

Im 8-Bit-Bereich ist C nur auf dem 
Z80 unter CP/M verbreitet. Eine Ver- 
sion für den © 64 stellt hier eine erfreuli- 
che Ausnahme dar. Für 16- und 
32-Bitter existieren aber umfangrei- 
chere Versionen. 


Ada — 
gekrönter Adel 


Adaist heute als Krönung bei der Ent- 
wicklung modularer Programmierspra- 
chen anzusehen. Die Sprache wurde 
erst in jüngster Zeit im Auftrag des welt- 
weit größten Softwaresponsors ent- 
wickelt, dem Pentagon. Der finanzielle 
und organisatorische Aufwand dafür 
war entsprechend riesig. Benannt ist 
die Sprache nach der jungen Gräfin Ada 
Byron, die um 1830 für Babbages 
(siehe oben) Rechenmaschinen ein 














nahezu komplettes Programm zur 
Berechnung der Bernoullischen Zahlen 
schrieb. 

Der Aufwand, der um Ada getrieben 
wurde, erklärt sich mit einer Kalkulation 


des US-Verteidigungsministeriums. 
Danach können zwischen 1983 und 
1999 etwa 24 Milliarden Dollar (!) ein- 
gespart werden, wenn eine einzige uni- 
verselle Programmiersprache die bis- 
herigen 450 (!!) Programmiersprachen 
ersetzen könnte. Ada ist ähnlich PL/1 
sehr umfangreich. Es wäre daher 
zwecklos auf einzelne Sprachele- 
mente einzugehen. Deshalb hier nur die 
grundsätzlichen Sprachkonzepte von 
Ada: 


- Das Modulkonzept von Ada ist 
äußerst umfangreich. Es stehen sowohl 
datenorientierte als auch funktions- 
orientierte Module zur Verfügung. 
Innerhalb der datenorientierten Pakete 
lassen sich fast beliebige Datentypen 
und Datenstrukturen realisieren. 

- Ähnlich wie in Pascal können Daten- 
strukturen geschachtelt werden. 
Umfangreichere Prozedur- und Funk- 
tionskörper werden ausgelagert, zum 
Beispiel um die Lesbarkeit der Pro- 
gramme zu erhöhen. 

- Sämtliche Kontrollstrukturen, von 
UNTIL bis hin zu CYCLE-Schleifen ste- 
hen zur Verfügung. Ferner sind alle line- 
aren und strukturierten Datentypen 
implementiert. 

- Ein automatischer Textformatierer 
(Pretty-Printer) wertet Schachtelungs- 
strukturen aus und sorgt für ein über- 
sichtliches Layout des Programmtex- 
tes. 

- Neben Parallelverarbeitung (Multi- 
tasking) gehören Konzepte wie die 
Parallel- und Ausnahmebehandlung zu 
den bemerkenswerten Fähigkeiten, auf 
deren Erklärung hier wegen der kom- 
plexen Zusammenhänge verzichtet 
wird. 

Im großen und ganzen wurden die 
gesetzten Ziele bei der Entwicklung 
von Adanach dem heutigen Erkenntnis- 
stand optimal erreicht. Die zu Anfang 
unter den Qualitätsaspekten genann- 
ten Stichworte wie Vollständigkeit, 
Zuverlässigkeit, Korrektheit, Übertrag- 
barkeit, Wartung und Fehlerbehandlung 
wurden weitestgehend realisiert. Die 
Einfachheit der Sprache ist als ausrei- 
chend zu betrachten, wenn auch die 
vollständige Einarbeitung in dieses 
System Jahre beansprucht. Ada ist für 
Mikrocomputer zur Zeit nur unter MS- 
DOS verfügbar und auch hier nur in 
einer abgespeckten Version. 

Wir sind nun mit dem Aufstieg im 
»modernen Turm zu Babel« fast an der 
Spitze angelangt. Nach unten blickend 
können wir die gebräuchlichsten Spra- 
chen beurteilen. 

(Matthias Rosin/ev) 
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Pascal gilt als hervorragend 
geeignete Computersprache für 
Lehre und Unterricht. Zwei 
Pascal-Systeme treten an, dem 
Atari ST auch den Schulbereich 
zu erschließen. Ist der ST reif 
fürs Abitur? 


omputer sind von Natur aus voll- 
kommen respektlos. Unbeküm- 
mert dringen sie in alle nur denk- 
baren Bereiche ein und zeigen selbst 
davor keine Scheu, in die geheiligten 
Gefilde des deutschen Schulwesens 
einzubrechen. Jedem Hüter humanisti- 
schen Bildungsgutes muß es wahrhaf- 
tig monochrom vor Augen werden, 
wenn sich seine ihm anvertrauten 
Zöglinge plötzlich mit einer seltsamen 
Sprache namens Pascal beschäftigen, 
statt wie gewohnt Latein oder Grie- 
chisch zu büffeln. Und das geschieht 
dann auch noch an diesen äußerst 
suspekten Computern. 





c 


Doch letztlich muß auch eine so alt- 
ehrwürdige Institution wie die Schule 
der modernen Zeit ihren Tribut zollen. 
Der Informatikunterricht und die Com- 
putersprache Pascal haben inzwischen 
einen festen Platz im Lehrplan erhalten. 
Die strenge Sprachstruktur und die Pro- 
blemorientierung machen Pascal ohne 
jeden Zweifel zu einer idealen Sprache 
für diesen Anwendungsbereich. Dabei 
ist Pascal weit entfernt davon, nur eine 
akademische Lehrsprache zu sein. In 
Pascal kann man nämlich »richtig« pro- 
grammieren und Programme erzeugen, 
die man verkaufen kann. Wer in der 
Schule Pascal lernt, hat also nicht nur 
für die Schule, sondern tatsächlich 
etwas für das Leben gelernt. 

Der AtariST hat sich in der kurzen Zeit 
seit seiner Markteinführung als ausge- 
sprochen sprachbegabt erwiesen. 
Neben Logo, C, Basic (hier stottert er 
noch ein klein wenig), Forth, Modula 
und verschiedenen anderen Sprachen, 
spricht und versteht er seit einiger Zeit 
auch Pascal. 

Auf dem Markt gibt es im Moment 
zwei Pascal-Systeme zu kaufen, das 
von Atari selbst vertriebene ST-Pascal 
(Preis: zirka 250 Mark) und das MCC- 
Pascal (Preis: 340 Mark) der engli- 
schen Firma Metacomco. Beide Pascal- 
Versionen stellen komplette Entwick- 
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lungssysteme dar, die auch die Pro- 
grammierung der grafischen Bediener- 
oberfläche GEM zulassen. Allerdings 
sind beide Systeme TOS-Applikatio- 
nen, also nicht in eine grafische Ober- 
fläche eingebunden. 

Zum Lieferumfang des ST-Pascal 
gehört neben einem 74-seitigen 
deutschsprachigen Handbuch in halt- 
barer Ringheftung eine 3'-Zoll- 
Diskette mit 23 Dateien. Der Besitzer 
eines Entwicklungspaketes Atari 520 
ST findet hier einige alte Bekannte vor, 
nämlich die GEM-Libraries AESBIND 
und VDIBIND sowie die Hilfsprogramme 
BATCHTTP, RM.PRG und WAIT.PRG 
aus dem C-Compiler-System von Digital 
Research. Der Pascal-Compiler be- 
steht aus einer gut 128 KByte großen 
Datei PASCAL.PRG. Dazu gehören die 
speziellen Pascal-Libraries PASLIB und 
PASGRA.O, und eine Textdatei 
ERRORSTXT mit den Standard- 
Fehlermeldungen des Pascal. Vervoll- 
ständigt wird das Angebot durch einige 
Steuerdateien zum Compilieren und 
Linken (die .BAT-Dateien), durch den 
Linker FASTLINK.PRG, eine Include- 
Datei SCREEN.INC mit den VT52-Steu- 
ercodes, einige Beispielprogramme als 
Pascal-Quelltext und durch den TOS- 
Editor EDITTTP. 

Der Editor ist ein Full-Screen-Editor 
mit Steuerung durch Cursortasten und 
Control-Codes. Die Funktionstasten 
sind nicht belegt. Ebenfalls vorhanden 
sind einige höhere Editor-Funktionen 
wie Suchen/Ersetzen und Blockver- 
schieben. Nach Eingabe von CTRL-K 
können Befehle zur Steuerung des 
Datenverkehrs mit Diskettenlaufwerken 
eingegeben werden. 


Dieser Editor erlaubt auch das Bear- 
beiten umfangreicher Quelltexte. Wer 
allerdings schon einmal einen Text- 
Editor mit grafischer Bedieneroberflä- 
che benutzt hat, wirdden GEM-Komfort 
Schmerzlich vermissen. Da der Compi- 
ler des ST-Pascal ASCIl-Dateien als 
Quelltexte erwartet, kann jedoch 
selbstverständlich jeder Editor benutzt 
werden, der solche Dateien erzeugt. 

Im Gegensatz zu dem nicht allzu kom- 
fortablen Editor ist der Compiler PAS- 
CAL.PRG geradezu luxuriös ausgestat- 
tet. Erkann sowohl durch Anweisungen 
aus einer Kommandozeile beim Compi- 
lerstart, als auch durch Anweisungen 
aus dem Quelltext in vielfältiger Weise 
gesteuert werden. 

Das Handbuch gibt ausführlich dar- 
über Auskunft. Der Compiler erzeugt 
eine Objektcode-Datei im 68000-Ma- 

















schinencode, die ein Linker (FAST- 
LINK.PRG) mit Teilen der Library- 
Dateien zu fertigen Programmen ver- 
bindet. Diese Programme enthalten ein 
sogenanntes Runtime-Modul und sind 
deshalb wie andere TOS- oder GEM- 
Applikationen aus dem GEM-Desktop 
abrufbar. Der Sprachumfang nach dem 
ISO-Standard ist beträchtlich erweitert, 
zum Beispiel durch Implementierung 
des Variablentyp STRING. Weiterhin 
sind die sehr schnellen Grafik-Routinen 
des ST-Betriebssystems, das soge- 
nannte LINE__A-Interface, direkt als 
Standard-Prozeduren und -Funktionen 
aufrufbar. Ebenso einfach erfolgt der 
Aufruf von Betriebssystem- und GEM- 
Routinen. Spezielle Externdeklaratio- 
nen (GEMDOS, XBIOS, BIOS und C) im 
Quelltext bewirken die Einbindung der 
entsprechenden Library-Module beim 
Linken. Alle vordefinierten Funktionen 
erläutert das Handbuch recht ausführ- 
lich, sogar mit kleinen Beispielprogram- 
men. Dennoch kann das Handbuch ein 
Pascal-Lehrbuch für Anfänger nicht 
ersetzen. Hierzu sei auf die einschlä- 
gige Fachliteratur verwiesen. 

Der schon erwähnte Linker FAST- 
LINK.PRG ersetzt die beiden Pro- 
gramme LINK68.PRG und REL- 
MOD.PRG, die mit den ersten Versio- 
nen des ST-PASCAL geliefert wurden. 
Die hohe Geschwindigkeit des Linkvor- 
ganges mit FASTLINK.PRG ist in Bild 1 
dokumentiert. Besitzer des C-Compi- 
lers von Digital Research aus dem Ent- 
wicklungspaket können den neuen 
Blitzlinker auch für das Linken Ihrer C- 
Programme verwenden. 


Bei allem Positiven, was bisher über 
das ST-Pascal zu vermerken war, darf 
ein Argernis nicht unerwähnt bleiben. 
Der Pascal-Compiler ist mit einem einfa- 
chen Kopierschutz versehen, der auf- 
grund seiner Primitivität kaum Schutz 
vor illegalem Kopieren bietet. Dafür 
bringt er aber beim Arbeiten mit einer 
RAM-Disk oder, wenn einmal verfügbar, 
mit einem Festplatten-Speicher unnöti- 
gen Zeitverlust beim Compilieren. 
Selbst wenn alle Dateien der Pascal- 
Systemdiskette auf eine RAM-Disk 
oder eine Festplatte übertragen sind, 
muß sich bei der Compilierung die 
Pascal-Diskette im Diskettenlaufwerk A 
befinden. Bei jedem Compilerlauf, egal 
auf welchem Externspeicher sich der 
Compiler befindet, wird mehrfach (!) auf 









































eine besonders präparierte Schutzspur 
auf der Pascal-Diskette zugegriffen. 
Dankenswerterweise hatte der Pro- 
grammierer beim Linker ein Einsehen 
und verzichtete auf derartige Kinde- 
reien. 

Das MCC-Pascal wird auf zwei Dis- 
ketten geliefert, die insgesamt 57 
Dateien enthalten. Das mitgelieferte 
Handbuch mit etwa 200 Seiten ist lei- 
der nurinenglischer Sprache erhältlich. 
Wer Englisch gut beherrscht, findet hier 
allerdings sehr ausführliche Erläuterun- 
gen zu Befehlsumfang und Systembe- 
dienung. Das System setzt sich aus 
ähnlichen Elementen zusammen wie 
beim ST-Pascal. Man findet Editor, 
Compiler, Include-Dateien zum Aufru- 
fen von GEM-Routinen, Linker und 
Libraries, sogar gut dokumentierte 
Assembler-Quelltexte der GEM-Libra- 
ries sind vorhanden. Auch hier trifft man 
zwei wohlbekannte Programme. Wie 
bei allen Metacomco-Computerspra- 
chen wird der TOS-Editor ED.TTP mit- 
geliefert. Dieser Editor von beträchli- 
cher Leistungsstärke war bereits 
Bestandteil der zweiten Serie der Atari- 
Entwicklungspakete, und dürfte ent- 
sprechend weit verbreitet sein. Leider 
hat sich Metacomco noch nicht zur Ein- 
bindung in eine GEM-Oberfläche ent- 
schließen können. 

Als Linker findet eine Updateversion 
des GST-Linkerss aus dem GST- 
Assembler und dem GST-C Verwen- 
dung. Er kann hier aber nicht wie etwa 
im Assembler aus einer grafischen 
Bedieneroberfläche gestartet werden. 
Besitzer des GST-Assemblers können 
jedoch ohne große Schwierigkeiten 
das gesamte Pascal-System in die 
Oberfläche des Assemblers integrie- 
ren. Den Pascal-Compiler startet näm- 
lich auch die Option »Run Program« im 
File-Menü. Der Linker läßt sich wie im 
Assembler aus dem entsprechenden 
Link-Menü steuern und starten. Auch 
die vielfältigen Funktionen zur Doku- 











mentation des Linkvorganges sind 
ansprechbar. 

Der Compiler PASCALTTP besitzt 
viele Optionen, die jedoch nur aus einer 
Kommandozeile bei Compilerstart, 
nicht aber aus dem Quelltext, aufrufbar 
sind. Er erzeugt aus dem Pascal- 
Quelltext eine Objektcode-Datei im 
GST-Format mit dem Dateityp .BIN, die 
durch den GST-Linker bearbeitet wer- 
den kann. Es ist aber auch eine 
Compiler-Option einstellbar, die die 
Compilierung des Quelltextes in das 
Format des ASS68 aus dem Entwick- 
lungspaket ermöglicht. Aus diesem 
Grunde sind die Pascal-Library PASLIB, 
die GEM-Library GEMLIB und das 
Runtime-Modul STARTUP als .BIN- 
Dateien für den GST-Linker und als .O- 
Dateien für Digital Research Linker 
(LINK68 oder FASTLINK) auf den Dis- 
ketten vorhanden. 


Zwei Disketten 
voll Pascal 


Zum Test und zum Vergleich mit dem 
ST-Pascal wurde nur die GST-Option 
verwendet. Die fertigen Programme 
sind wie beim ST-Pascal auch ohne Pas- 
calsystem lauffähig und wie normale 


GEM- oder TOS-Applikationen zu 
benutzen. 
Was leistet der MCC-Pascal- 


Compiler? Um es gleich vorweg Zu 
sagen, MCC-Pascal ist nur etwas für 
ausgesprochene Pascal-Puristen. Der 
Sprachumfang umfaßt genau das ISO- 
Standardpascal, nicht mehr, aber auch 
nicht weniger. Der Variablentyp 
STRING fehlt ebenso wie die Funktion 
KEYPRESS. Dinge also, die die Pascal- 
programmierung erleichtern. Leider 
kann die vorliegende Version des MCC- 


Pascal keine Betriebssystem- oder 
LINE__A-Aufrufe durchführen. Die 
GEM-Funktionen sind über eine 








Gruppe von INCLUDE-Dateien zugäng- 
lich, die EXTERN-Deklarationen von 
AES- und VDI-Routinen sind entspre- 
chend den Digital Research-Spezifika- 
tionen zum GEM-System enthalten. Die 
eigentlichen Routinen befinden sich in 
der Library GEMLIB, die allerdings noch 


nicht ganz fehlerfrei zu arbeiten 
scheint. 
Bei einem Vergleich der beiden 


Pascal-Versionen wurden die Zeiten für 
Compilierung und Linken des Bench- 
mark-Klassikers »Sieb des Eratosthe- 
nes«e sowie die Laufzeiten der erzeug- 
ten Programme für einen Durchlauf zur 
Ermittlung der Primzahlen gemessen 
(Ergebnisse in Bild 1). 

Der MCC-Compiler arbeitet sehr 
schnell. Er ist beim Arbeiten mit der Dis- 
kette schneller als der ST-Pascal- 
Compiler mit einer RAM-Disk. Genau 
umgekehrt verhält es sich hinsichtlich 
der Linkdauer. Hier hat FASTLINK ein- 
deutig die Nase vorn. Geradezu sensa- 
tionell ist jedoch der Unterschied in der 
Laufzeit der Programme. Mit gut 17 
Sekunden braucht das mit MCC- 
PASCAL erzeugte Programm länger als 
das entsprechende Turbo-Pascal- 
Programm unter CP/M-Emulation. 

Bild 2 gibt einen weiteren Test wieder, 
der neben der Laufzeit der Programme 
die Rechengenauigkeit mit Fließkom- 
mazahlen überprüft. Dabei wird in einer 
WHILE...DO-Schleife von einer vorge- 
gebenen Zahl solange der Wert O,1 
subtrahiert, bis die vorgegebene Zahl 
den Wert O unterschreitet. Dies müßte 
bei einem Startwert 100000 nach 
genau einer Million Substraktionen 
erreicht sein. Wie Bild 2 zeigt, besteht 
der ST-Pascal-Compiler diesen Tast mit 
Bravour. Erst bei Startwert 100000 tre- 
ten merkbare Ungenauigkeiten auf. Der 
MCC-Pascal-Compiler macht bereits 
bei Startwert 100 sichtbare Fehler, bei 
Startwert 100000 wird der Wert O 
bereits nach 990564 Substraktionen 
erreicht. 

Aufgrund dieser Ergebnisse fällt eine 
abschließende Beurteilung leicht. Das 


Compilierzeiten »Sieb des Eratosthenes« 


Diskettenbetrieb RAM-Disk 
Complier Linker Compller Linker 
12,7 sec 106,0 sec 1,9 sec 9,8 sec 
51,0 sec 29,7 sec 14,8 sec 1,1 sec 


MCC-Pascal ist teurer, hat den geringe- 
ren Sprachumfang, erzeugt langsa- 
mere Programme und rechnet unge- 
nauer. Auf der Plusseite lassen sich die 
geringere Compilierzeit und der bes- 
sere Editor verbuchen. 

In allen wichtigen Punkten ist jedoch 
der ST-Pascal-Compiler die eindeutig 
bessere Wahl. Trotz des geringeren 
Preises besitzt er neben dem komplet- 
ten Sprachumfang des ISO-Standard- 
Pascal viele wichtige Erweiterungen, 
die die Fähigkeiten des Atari ST besser 
ausnutzen. Auch die Laufgeschwindig- 
keit der erzeugten Programme läßt 
kaum Wünsche offen. Die Abiturreife 
kann ohne Bedenken zuerkannt wer- 
den. (W. Fastenrath/hb) 


Laufzeit 


MCC-PASCAL 
ST-PASCAL 


17,3 sec 
0,7 sec 





Bild 1. S wie super, T wie Tempo: Supertempo von ST-PASCAL 


Rechengenauigkeit mit REAL-Zahlen 
MCC-PASCAL ST-PASCAL 


Subtraktionen Zeit 
1000 
10000 
100000 
1000000 
2000000 


Endwert 
0,0000 
0,0000 
0,0000 
0,0853 
0,0437 


Subtraktionen Zeit 
1000 1,3 
10000 7,6 
10000 0,0491 100015 72,8 
100000 0,0964 990564 
200000 - - 


Endwert 
0,0010 
0,0971 


Startwert 
100 
1000 





Bild 2. Rechnen will gelernt sein 




















Pascal auf dem C64 


Pascal ist an Universitäten und 
in Software-Häusern gleicher- 
maßen anerkannt. Probleme 


vollständig zu analysieren und 
strukturiert zu programmieren - 
das bringt Pascal Ihnen bei. 


ie von Wirth entwickelte Spra- 
che Pascal lief zunächst nur 
auf Großrechnern. Seinen Sie- 
geszug auf Mikrocomputern trat Pascal 
an, als auf der Universität von California 
in San Diego (UCSD) das berühmte 
UCSD-Pascal entstand. Es ist eine 
Anpassung des Wirth'schen Standard- 
Pascal an einen Mikrocomputer und 
enthält sowohl Einschränkungen als 
auch Erweiterungen. 

Pascal-Versionen für den Commo- 
dore 64 gibt es etwa seit 1983. Dabei 
handelt es sich in der Regel um »Enkel« 
des Wirthschen Urcompilers, bei 
denen allen man gewisse Abstriche 
machen muß: Sie erzeugen keine 
Maschinensprache für den C64, son- 
dern einen Zwischencode, auch P- 
Code genannt. 





setzt in P-Code 


Im Gegensatz zur Standard-Sprache 
Basic benutzt UCSD-Pascal einen 
Compiler, der den Pascal-Quellcode in 
P-Code übersetzt. Der P-Code (P steht 
für Pseudo) ist einer wirklichen Maschi- 
nensprache sehr ähnlich. Man kann 
sich diese Sprache als Modell eines 
Computers vorstellen. Es besitzt 
eigene Register, einen Stack, einen 
Heap für dynamische Variablen und 
einen Prozessor, der den P-Code aus- 
führt. Da all dies die Software zuwege 
bringt, die Maschine also nur virtuell 
vorhanden ist, läuft P-Code um einiges 
langsamer als echter Maschinencode. 
Die Laufzeiten liegen dann um etwa 
zwei- bis fünfmal höher als bei echtem 
Maschinencode. 

Man sollte aber die Vorteile dieses 
Verfahrens nicht übersehen. P-Code 
schlägt Basic in der Geschwindigkeit 
immer noch bei weitem (etwa 10 mal so 
schnell). Der erzeugte P-Code ist kom- 
pakter als der übliche Maschinencode 
und benötigt daher weniger Speicher- 
platz. 

Gegenüber Standard-Pascal weist 
KMMM-Pascal einige Funktionen mehr 
auf. Dazu gehört vor allem eine kom- 
plette String-Behandlung. Auch Bit- 
Operationen auf Integer-Variablen sind 


erlaubt. Maschinensprache-Routinen 
können von KMMM aus aufgerufen 
werden. Peek und Poke sind ähnlich wie 
in Basic zu verwenden. 

Das Programm besteht aus einem 
Editor, einem Compiler und einem 
Translator. Der Editor ist ein formatfreier 
Full-Screen-Editor mit überdurch- 
schnittlichem Komfort (im Vergleich 
zum Basic-Editor). Erbesitzteine Funk- 
tion zur Überprüfung der Syntax und 
belegt alle Funktionstasten. Eine häufig 
benötigte Befehlssequenz kann als 
Makro definiert werden. 

Der KMMM-Editor erzeugt eine 
sequentiele Datei, weshalb auch 
andere Editoren den Programmtext 
bearbeiten können. Danach wird der 
Compiler geladen. Er erzeugt bei 
Bedarf ein Listing auf dem Drucker und 
wandelt das Quellprogramm in P-Code 
um. Nach dem Laden des Translators 
übersetzt dieser nun den P-Code in 
schnelle Maschinensprache. 

Oxford-Pascal unterstützt weitge- 
hend alle Elemente von Standard- 
Pascal. Eine spezielle String- 
Verarbeitung unterblieb. Es verwendet 
statt dessen Variablen vom Typ 
PACKED ARRAY OF CHAR. Dafür ste- 
hen zusätzliche Befehle zum Erzeugen 
von Grafik und Sound bereit. Die Mög- 
lichkeiten des C64 lassen sich also 
auch von Pascal aus nutzen. Der Bild- 
schirm kann sogar in einen Grafik- und 
in einen Textbereich aufgeteilt werden. 
Solche Programme laufen allerdings 
deutlich langsamer. 

Unterstützt werden auch Peek und 
Poke, das Einfügen von Routinen in 
Maschinensprache und die Program- 
mierung der eingebauten Uhr. Argerlich 
ist lediglich die zu dünn geratene Doku- 
mentation von etwa 50 Seiten, bei der 
auch noch die Nummerierung der Sei- 
ten und ein Stichwortverzeichnis feh- 
len. 

Die Entwicklung von kleineren Pro- 
grammen gestaltet sich mit Oxford- 
Pascal angenehm. Der Basic-Editor ist 
lediglich etwas erweitert. Ansonsten 
arbeitet man genauso wie mit einem 
Basic-Programm. Der Compiler und das 
übersetzte Programm befinden sich 
gleichzeitig im Speicher. Allerdings feh- 
len in diesem Modus einige Befehle. 
Erst im Disk-Modus verfügt man über 
den gesamten Sprachumfang, muß 
aber dann die Zeit für das Laden des 
Compilers und das Speichern der Pro- 
gramme in Kauf nehmen. 

Oxford-Pascal übersetzt in P-Code. 
Es gibt aber einen Locate-Befehl, der 
eine P-Code-Datei in eine von Basic aus 
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ladbare Datei umwandelt. Eine solche 
Datei benötigt dann das Oxford-System 
nicht mehr. 

Profi-Pascal hat gegenüber den obi- 
gen Pascal-Versionen einen entschei- 
denden Vorteil. Der Zugriff auf die 
1541-Floppy geht wegen der zusätzli- 
chen Diskettenroutinen dreimal so 
schnell vor sich. Allerdings wurde die- 
ser Vorteil auch mit einem entscheiden- 
den Nachteil erkauft. Profi-Pascal 
besitzt nämlich praktisch ein eigenes 
Betriebssystem mit Editor, Compiler 
und Hilfsprogrammen. Auf die Kompati- 
bilität zu anderen Programmen und 
Dateien wird damit verzichtet. 

Nach dem Laden erscheint ein Haupt- 
menü, von dem die anderen Programm- 
teile (Editor, Compiler) aus geladen 
werden. Profi-Pascal enthält viele 
zusätzliche Routinen über den norma- 
len Sprachumfang hinaus. So ist bei- 
spielsweise der Zugriff auf den gesam- 
ten Arbeitsspeicher auf sehr elegante 
Weise möglich. Der in Standard-Pascal 
nicht vorgesehene Typ String erlaubt 
die Manipulation von Zeichenketten. 
Der Direktzugriff auf Sätze innerhalb 
einer Datei ist mit der zusätzlichen Pro- 
zedur Seek möglich. 

Als weitere Eigenschaften sind das 
Verketten von Dateien und das Seg- 
mentieren von Programmen zunennen. 
Programme mit Segment-Prozeduren 
laden einen Teil des Codes während 
des Programmlaufs in den Arbeitsspei- 
cher nach. 

Profi-Pascal besitzt komfortable 
Möglichkeiten, Assembler-Code in das 
Programm einzubinden. Schließlich 
enthält es einen eigenen Assembler. 
Der Pascal-Code selbst wird allerdings 
nicht in Maschinensprache, sondern in 
P-Code übertragen. Nachteilig ist, daß 
der Compiler nur auf der (natürlich 
kopiergeschützten) Original-Diskette ar- 
beiten kann. 


Pascal für Einsteiger 
und Profis 


Eine Pascal-Version für den preiswer- 
ten Einstieg in die interessante Sprache 
ist ganz neu im Markt& Technik Verlag 
erschienen. Es handelt sich dabei um 
einen kompletten Pascal-Kurs in Buch- 
form, der dazu sehr schnell und lei- 
stungsfähig ist und ohne Aufpreis dem 
Buch gleich auf Diskette beiliegt. 
Neben dem Compiler enthält die Dis- 
kette noch viele nützliche Beispielpro- 
gramme. Dieses »Pascal für den C 64« 
nutzt für seine Programme den gesam- 



























































ten Speicher des C 64 aus. Ein Full- 
Screen-Editor ermöglicht eine komfor- 
table Programmeingabe. Der Compiler 
akzeptiert den gesamten Standard- 
Sprachumfang mit einigen Erweiterun- 
gen. Das Buch enthält einen Einfüh- 
rungskurs mit vielen Beispielen und 
Übungsaufgaben für den Anfänger 
sowie Tips und Tricks für den Profi. Mit 
gutem Gewissen kann man Buch und 
Compiler als preiswerte Alternative zu 


den bisher bekannten Pascal- 
Versionen für den C64 empfehlen. 
Denn bei diesem Pascal-Compiler gibt 
es trotz des extrem niedrigen Preises 
keinerlei Abstriche an Sprachumfang 
oder Dokumentation. Als Autor von 
Buch und Compiler zeichnet Florian 
Matthes, den wir auch als Autoren für 
den Pascal-Kurs in diesem Sonderheft 
gewinnen konnten. 

Die Entscheidung für einen der vier 


Compiler ist sicherlich nicht einfach. 
Wer einfache Bedienung wünscht, dem 
sei Oxford-Pascal empfohlen. Reine 


Maschinensprache wird nur von 
KMMM-Pascal erzeugt. Profi-Pascal 
wiederum bietet den größten Sprach- 
umfang. 

Undein C 64-Fan, ob Einsteiger oder 
Profi, wird schließlich mit Markt &Tech- 
nik-Pascal am meisten Spaß haben. 

(Anton Gruber/co) 
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Turbo-Pascal: 


Seit etwas mehr als zwei Jahren 
gibt es einen Pascal-Compiler, 
der auf dem Computermarkt 
Furore gemacht hat: Turbo-Pas- 
cal. Was das Programm alles lei- 
stet, ist schon fast unheimlich. 


DD ie Gründe für den grandiosen 
Erfolg von Turbo-Pascal sind 
recht einfach nachzuvollzie- 
hen. Da ist zuerst einmal der (damals) 
konkurrenzlos niedrige Preis. In den 
USA kostet Turbo-Pascal etwa 50 Dollar 
- in Deutschland um die 200 Mark. Ein 
Direktimport lohnt sich aber dennoch 
nicht, weil Sie Zoll und Verpackungsge- 
bühren bezahlen müßten, die den 
scheinbaren Preisunterschied wieder 
ausgleichen. 

Einen Pascal-Compiler für 200 Mark 
- das gab es vor Turbo-Pascal nirgends 
auf dem Computermarkt. So fanden 
sich nicht wenige, denen das Risiko 
eines Fehlkaufs klein genug erschien 
und sich aus diesem Grund Turbo- 
Pascal gekauft haben. MS-Pascal von 





Microsoft und Pascal/MT+ von Digital 
Research, die beiden vormals haupt- 
sächlich benutzten Compiler, kosteten 
jenach Betriebssystem zwischen 1000 
und 2000 Mark. Für MS-Pascal gilt dies 
heute noch, während Pascal/MT+ in 
einer Version für den Schneider CPC 
6128 inzwischen auch auf ungefähr 
200 Mark herunterging. Damit zielt es 
direkt auf den Turbo-Pascal-Markt. 
Allein der Preis kann aber dennoch 
nicht für den Erfolg von Turbo-Pascal 
verantwortlich sein. Schließlich gibt es 
heute auch schon Pascal-Compiler ab 
100 Mark (zum Beispiel Nevada- 
Pascal), die trotz ihres günstigen Prei- 
ses eher ein Schattendasein führen. 
Zählen wir also weiter Turbo-Pascal- 
Vorzüge auf: Turbo-Pascal ist ein inte- 
griertes Programmpaket, das aus 


einem Editor, dem eigentlichen Compi- 
ler und einer Laufzeitumgebung be- 
steht. Was das heißt, kann nur jemand 
ermessen, der schon mit anderen 
Compilersprachen gearbeitet hat. Ein 
typischer Arbeitszyklus sieht dort etwa 
so aus: Texteditor laden (meistens wird 





keiner mitgeliefert, also muß Wordstar 
oder ein anderes normales Textpro- 
gramm dafür herhalten), Datei anlegen, 
Text eintippen, Datei speichern, Editor 
beenden und Compiler aufrufen. Dieser 
übersetzt das Programm in Maschinen- 
Quellcode oder einen Zwischencode, 
zum Beispiel den p-Code von UCSD- 
Pascal. 

Hier scheiden sich dann die 
(Compiler-)Geister: Manche benötigen 
einen Assembler, der Maschinencode 
erzeugt, andere einen Linker, der die 
Programm-Module zusammenkettet 
und wieder andere einen Laufzeit- 
Interpreter, der die Programme - ähn- 
lich einem Basic-Interpreter - in der 
Zwischensprache ausführt. Wenn der 
Compiler allerdings einen Fehler mel- 
det, muß der Programmierer wieder mit 
dem Editor heran und die Fehler aus- 
bessern. Stürzt das Programm gar völlig 
ab, geht die Fehlersuche ganz von 
vorne los. 

Ganz anders dagegen arbeitet Turbo- 
Pascal. Der Programmierer gelangt in 
eine Art »Benutzerebene«, von der aus 
er Befehle geben kann. So ruft er mit 
»E« für »Edit« den eingebauten Textedi- 
tor auf. Dieser versteht - Segen für alle 
Wordstar-Freaks - eine Untermenge 
der Wordstar-Kommandos. Er ist aber 
auf das Editieren von Pascal- 
Programmen hin erweitert worden. So 
gibt es eine »Auto-Indente-Funktion. 
Diese bewirkt, daß der Cursor nach 
Drücken der Enter-Taste nicht an den 
Anfang der nächsten Bildschirmzeile, 
sondern unter den Beginn der letzten 
Programmzeile gesetzt wird. Damit 
unterstützt Turbo-Pascal wirkungsvoll 
das Prinzip der Texteinrückungen, die 
Pascal-Programme so gut lesbar 
machen. Auch ist der Turbo-Editor ein 
ganzes Stück schneller als Wordstar. 
Beispielsweise führt er den Bildschirm- 
aufbau und die Invertierung von Text- 
blöcken mit Höchstgeschwindigkeit 
durch - auch eine Rechtfertigung für 
»Iurbo« im Namen »Turbo-Pascal«. Die- 
ser Geschwindigkeitsvorteil liegt aller- 
dings zum Teil daran, daß der gesamte 
bearbeitete Programmtext im Speicher 
liegen muß, während Wordstar auch 
Diskettentexte bearbeiten kann. Trotz 
dieser Einschränkung eignet sich der 
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Turbo-Editor nebenbei hervorragend 
zur Textverarbeitung. So sind die Block- 
kopierbefehle sogar auf dem CPC 464 
und CPC 664 von Schneider ohne 
Speichererweiterung funktionsfähig. 
Sobald der Benutzer den Pascal- 


Quellcode fertig eingegeben hat, 
drückt er in Wordstar-Manier CTRL-KD 
und gelangt wieder in die Kommando- 
ebene. Dort kann er das Diskettenlauf- 
werk wechseln, neue Disketten anmel- 
den, die Datei speichern und andere 
Dateien laden. »D« gibt ein Directory der 
angemeldeten Diskette aus und hat 
gegenüber dem CP/M-Kommando DIR 
den Vorteil, daß der freie Disketten- 
Speicherplatz mit angezeigt wird. Der 
Benutzer erfährt aus dem Hauptmenü 
auch, wieviel Speicherplatz der Quell- 
text belegt und wieviel Platz noch frei 
bleibt. Mit »C« läßt sich der Compiler 
starten, der das Programm mit extrem 
hoher Geschwindigkeit (»Turbo«) über- 
setzt. Er besitzt jede Menge Fehlermel- 
dungen, die meist sehr informativ sind. 
Sobald er einen Fehler entdeckt, gibt 
Turbo-Pascal die (meistens) passende 
Meldung aus und kehrt direkt in den 
Turbo-Editor zurück. Der Cursor steht 
dann an der Stelle, an der der Fehler auf- 
trat. Wenn der Speicherplatz knapp 
wird, können Sie aber auch die Fehler- 
meldungen aus dem Programm heraus- 
werfen und haben damit etwa 2 KByte 
mehr Speicherplatz zur Verfügung. Alle 
Fehler erscheinen dann nur noch mit 
ihren Nummern, die im - gut gemach- 
ten - Handbuch nachzuschlagen sind. 

Müssen Sie sich mit fehlendem Spei- 
cherplatz herumschlagen (auf dem 
CPC 464 und CPC 664 verbleiben nur 
noch etwa 6 beziehungsweise 8 
KByte), bleiben aber auch noch andere 
Wege, große Programme zu überset- 
zen. Da wären zuerst einmal die 
Include-Files. Das sind Dateien, die 
separat auf der Diskette stehen und 
erst bei der Übersetzung in den Pro- 
grammcode integriert werden. Außer- 
dem läßt Ihnen Turbo-Pascal die Wahl, 
ob der Objektcode des Programms im 
Speicher abgelegt werden soll (Com- 
pile To Memory) oder auf Diskette. Bei 
letzterem können Sie sich zwischen 
dem Dateityp »COM« und »CHN« ent- 
scheiden. Der Unterschied besteht 
darin, daß im ersten Fall das erzeugte 
Programm mit einer Laufzeitbibliothek 
ausgestattet ist. Diese kostet zwar eini- 
ges an Speicher- und Diskettenplatz, 
erzeugt aber Programme, die unabhän- 
gig von Turbo-Pascal arbeiten. 

Die Programme sind - wie bereits 
gesagt - reiner Maschinencode. Die 
8-Bit-Variante von Turbo-Pascal erzeugt 
Z80-Code und ist damit eines der weni- 
gen CP/M-Programme, die nicht auf 
Computern mit 8080/8085-Prozessor 
gestartet werden können, sondern den 
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Z80-Chip voraussetzen. Andererseits 
sind die Z80-Erweiterungen sehr lei- 
stungsfähig und bewirken kompakteren 
und schnelleren Maschinencode. 

Was den Programmierer aber wohl 
am brennendsten interessiert, ist der 
Befehlsvorrat des Compilers - ein wei- 
terer Pluspunkt für Turbo-Pascal. Wäh- 
rend viele Pascal-Compiler der niedri- 
geren Preisklassen »Subsets« des 
Sprachstandards sind, also nur Teile 
der Sprache verstehen, ist Turbo- 
Pascal ein »Superset« - und was für 
eines! 

Niklaus Wirth entwickelte Pascal 
eigentlich nur als Lehr- und Unterrichts- 
sprache. Dementsprechend fehlen in 
Standard-Pascal viele nützliche und 
dringend notwendige Dinge. Turbo- 
Pascal wartet mit einer ganzen Menge 
von diesen auf. Da gibt es zum Beispiel 
den Datentyp STRING, den man nun 
nicht mehr durch einen ARRAY OF 
CHAR simulieren muß. Stilgerecht feh- 
len auch nicht die entsprechenden 
Funktionen und Prozeduren zur String- 
behandlung. Selbstverständlich wird 
die Dateibehandlung auf Diskette und 
Festplatte samt Relativ- und Direktzu- 
griffdateien unterstützt. Neu ist auch 
der Datentyp BYTE. 


GC | > |)... | ok MRS AL OO HEHE 0 rn 
0. 
Fur Kenner ein Pius: 
© 
Maschinennähe 


Für Maschinensprache-Kenner, de- 
nen die Entwicklung von reinen 
Maschinencode-Programmen zu müh- 
sam ist, hält Turbo-Pascal eine Reihe 
von maschinennahen Erweiterungen 
bereit: SHR (Shift Right) und SHL (Shift 
Left) erlauben das Links- und Rechts- 
schieben von Bits in Zahlen und Varia- 
blen. Die Funktionen HI und LO liefern 
das High- und Lowbyte einer Integerva- 
riablen in eine Byte-Variable: 

Program HilLow; 

Var 1:Integer; 

Begin 

Readin(i); 
WriteLn(Hi(i1),' ',Lo(i)); 
End. 

Dieses kleine Beispielprogramm liest 
eine 16-Bit-Zahl von der Tastatur ein 
und gibt deren High- und Lowbyte aus. 

Weitere maschinennahe Funktionen 
sind ADDR zur Ermittlung der Adresse 
einer Variablen und PORT zum direkten 
Zugriff auf die Prozessor-Ports. Das 
Pseudo-Array MEM (»Memory«) simu- 
liert die beliebten PEEK- und POKE- 
Befehle aus Basic. Diese Sprache 
erscheint im Gegensatz zu Turbo- 
Pascal regelrecht archaisch. 

Auf einer vielhöheren Ebenearbeiten 
die Befehle zur Verwaltung dynami- 
scher Variablen, nämlich MARK, RE- 
LEASE und DISPOSE. 








Natürlich präsentiert sich Turbo- 
Pascal nicht »nackte. Neben dem 
TURBOCOMH-File, das mit 31 KByte 
Länge das Hauptprogramm darstellt, 
sowie TURBO.MSG (System-Meldun- 
gen) und TURBO.OVR (ein 2KByte- 
Overlay) findet sich noch MC.PAS, das 
als Demonstration der Leistungsfähig- 
keit des Compilers dient. MC.PASist ein 
kleines Tabellenkalkulationsprogramm, 
genannt MicroCalc. Es ist verständli- 
cherweise nicht so leistungsfähig wie 
seine großen Brüder (etwa Multiplan, 
Visicalc oder Supercalc), aber es erfüllt 
seinen Zweck recht gut. Es wurde aller- 
dings auch gar nicht zur »richtigen« 
Arbeit geschrieben, sondern soll viel- 
mehr exemplarisch die Fähigkeiten von 
Turbo-Pascal zeigen. Wenn die Kalkula- 
tionsaufgaben nicht allzu kompliziert 
werden, erspart es trotzdem das Geld 
für die Anschaffung eines anderen Pro- 


gramms. 
Zum Lieferumfang gehört ferner ein 
Programm, das andere Pascal- 


Programme auf dem Drucker auflistet. 
LISTER.PAS erzeugt an den passenden 
Stellen einen Seitenvorschub und kann 
auf Wunsch Zeilennummern in den Text 
einfügen und Pascal-Schlüsselwörter 
unterstreichen. 

Für die Schneider-Computer gibt es - 
gegen Aufpreis, versteht sich - eine 
Grafikerweiterung, die die hervorragen- 
den Fähigkeiten dieser Computer auf 
diesem Gebiet unterstützt. Unter ande- 
rem dient TURTLE.PAS als einfaches 
Zeichenprogramm nach dem Prinzip 
der Logo-Schildkröten-Grafiken. WIN- 
DOW.PAS zeigt, wie das »Fensterin« 
unter Pascal funktioniert. 

Immer mehr Firmen versuchen, sich 
an den Erfolg von Turbo-Pascal anzu- 
hängen und liefern Programmsammlun- 
gen für alle möglichen Anwendungs- 
zwecke. Zum Beispiel werden da Turbo- 
Lader, Turbo-Machine, Turbo-Screen 
oder Turbo-Data angeboten. Von 
Heimsoeth-Software der deutschen 
Vertriebsfirma von Turbo-Pascal, stam- 
men unter anderem Turbo-Graphix, 
Turbo-Editor und Turbo-Gameworks. 
Doch aufgepaßt: Turbo-Pascal gibt es 
auch für IBM-Computer unter MS-DOS. 
Viele der Programmpakete arbeiten nur 
unter diesem Betriebssystem und sind 
für CP/M-Benutzer unbrauchbar. Das 
betrifft zum Beispiel auch einige der 
gerade genannten Programme. 

Leider vernachlässigt Borland zur 
Zeit etwas die CP/M-80-Version von 
Turbo-Pascal. So hat die 8-Bit-Variante 
vom »Lifting« in der neuen 3.0-Version 
kaum profitiert, während das MS-DOS- 
Pendant noch weiter verbessert wurde. 
Dennoch: An Turbo-Pascal gibt es nicht 
mehr allzu viel besser zu machen. Es ist 
einfach schon nahezu perfekt. 

(Martin Kotulla/hg) 
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C-Compiler sind in aller Munde, 
und die Beliebtheit der Sprache 
C steigt ständig. Steigen auch 
Sie ein in diese Supersprache. 
Wir zeigen Ihnen den richtigen 
C-Compiler für den Atari ST. 


as Angebot an C-Compilern für 

den Atari ST wächst: Kein Wun- 

der, denn C ist eine Sprache, 
die das Betriebssystem des Atari ST voll 
unterstützt. Das Betriebssystem wurde 
auch in dieser Sprache verfaßt. 

Da Softwarehäuser C-Programme 
wegen ihrer Portabilität sehr schätzen, 
ist im Lieferumfang des Entwicklungs- 
pakets zum Atari ST auch der C-Com- 
piler von Digital Research enthalten. 

Dieser Compiler, als Teil eines Profi- 
Systems, hat zwar noch einige Fehler, 
aber es läßt sich vernünftig damit arbei- 
ten. Den Heimanwender interessiert 
das System wegen des hohen Preises 
wohl weniger. Atari gibt den Compiler 
leider nur mit dem Entwicklungspaket 
ab - einzeln ist er nicht zu beziehen. 

Es gibt aber inzwischen gute Alterna- 
tiven. Allerdings ist wegen des 
begrenzten Angebots die Auswahl 
noch nicht sehr groß; doch einige Fir- 
men kündigten bereits eigene Compiler 
an, und allzulange werden diese wohl 
auch nicht mehr auf sich warten lassen. 
Für kommende rosige Zeiten unterbrei- 
ten wir Ihnen hier einige Auswahlkrite- 
rien für C-Compiler. 

Als erstes sollten Sie darauf achten, 
wie vollständig die Sprache implemen- 
tiert ist. Mit allen 28 Schlüsselwörtern 
ist der Sprachumfang vollständig. Viele 
Entwickler verzichten jedoch auf das 
eine oder andere Leistungsmerkmal, 
und da muß man sich genau überlegen, 
inwieweit das für die eigenen Zwecke 
tragbar ist. 

Erfahrungsgemäß wächst mit dem 
Wissen auch der Anspruch. Schnell 
stellt man fest, daß der Compiler, der 
noch vor kurzem genügte, für die näch- 
ste Anwendung große Mängel aufweist. 
Man sollte sich vorher genau über das 
Produkt informieren und eventuell 
etwas tiefer in die Tasche greifen, um 
vor einer Enttäuschung sicher zu sein. 



































Eine »Einsteigerversion« ist der 
C-Compiler von GST. Erkann nur ganze 
Zahlen verarbeiten und führt keine 
Fließkomma-Arithmetik durch. Damit 
beschränkt sich sein Einsatzgebiet auf 
Systemprogrammierung und weitere 
Anwendungsprogramme, wie Textver- 
arbeitung, Datenbanken und Spiele. 

Natürlich kann man sich die Floa- 
tingpoint-Routinen auch selbst schrei- 
ben, aber es gibt bereits andere C- 
Compiler für den Atari-ST, die nicht viel 
mehr kosten und bereits alles be- 
inhalten. Beim GST-Compiler verzich- 
tete man auch auf die Strukturen (das 
Schlüsselwort »structure« fehlt). Um 
gute Algorithmen zu schreiben, ist man 
aber auf Datenstrukturen, und damit auf 
dieses Schlüsselwort angewiesen. 


Wer etwastiefer einsteigen möchte in 
die faszinierende Programmiersprache 
C, sollte lieber zum Compiler von Lattice 
greifen. Er ist der einzige, der den kom- 
pletten Sprachumfang von Kernighan 
und Ritchie besitzt. Beim DRI-Compiler 
arbeiten die Funktionen scanf, für for- 
matierte Ausgabe, und getchar, um ein 
Zeichen einzulesen, nicht korrekt. Der 
Lattice-Compiler hat aber wiederum 
andere kleine Fehler. Beim Arbeiten mit 
Fenstern macht er Schwierigkeiten, da 
er eine falsche »Window__handle«- 
Nummer zurückgibt. Ansonsten darf 
man ihn getrost als die zur Zeit beste 
Implementation für denST bezeichnen. 

Eines der wichtigsten Kriterien für 
einen C-Compiler sind seine Libary- 
funktionen. 

Zum Standard-C gehört eine 
Standard-Libary. Informationen über 


den Umfang erhält man aus der Sprach- 







beschreibung von Kernighan und Rit- 
chie (siehe Literaturverzeichnis), die 
auch den C-Standard definierte. 

Dieser sogenannte K&R-Standard 
sollte in der Libary auf keinen Fall feh- 
len. 

Wichtig ist außerdem, wie die Zugriffe 
auf GEM und das Betriebssystem gere- 
gelt sind. Für die GEM-Programmierung 
selbst bietet der GST-Compiler am mei- 
sten an. Bei den Betriebssystemauf- 
rufen macht er leider große Abstriche. 

Die Libary enthält keine der Funktio- 
nen »gemdos«, »bios« und »xbios«, SON- 
dern lediglich eine kleine Auswahl vor- 
definierter »gemdos«-Funktionen. Für 
den Profi ist das kein Problem: Mit nur 
wenigen Assembler-Kenntnissen kann 
man sich die fehlende Betriebssystem- 
Schnittstelle selber stricken. Dennoch, 
auch diese Einschränkung sollten Sie 
bei einer Kaufentscheidung berück- 
sichtigen. 

Hier schneidet wiederum das Lattice- 
Produkt am besten ab. Seine Libary- 
Funktionen sind außerordentlich um- 
fangreich. 

Zwar nicht ausschlaggebend, aber 
erwähnenswert, bleiben die Extras, wie 
zum Beispiel ein Editor. Der GST- 
Compiler zeichnet sich durch einen 
sehr guten Editor aus. Entscheidender 
aber sind Hilfen zur Fehlersuche. 

Nun kennen Sie alle zur Beurteilung 
eines C-Compilers wichtigen Kriterien. 
Haben Sie alle für Sie wichtigen Punkte 
beachtet, dann lassen Sie sich von der 
Leistungsfähigkeit Ihres C-Compilers 
überraschen. (hb) 


Into: C-Compiler von Digital Research Inc. AtarlCorp. (Deutsch- 
land) GmbH, Frankfurter Str. 89-81, 8096 Raunheim, Tel: 
06142/41081. Nur erhältlich mit dam Entwicklungspaket für den 
Atari ST, Preis 869 Mark. 

C-Compller von GST In Kürze bei Atari erhältlich. Preis zirka 
300 Mark. 

Lattice-C-Compilar von Metacomco. Vertrieb über Philgerma, 
Ungeraratr. 42, B000 München 40, Tel. 0898/3865651, Preis 380 
Mark. 
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Small-C - 
ein C-Compiler unter CP/M 


C wird in Zukunft immer mehr an 
Bedeutung gewinnen. C verbin- 
det die Eigenschaften einer 
Hochsprache mit denen einer 
Maschinensprache. C-Program- 
me sind sehr schnell. Drei gute 
Gründe für C! Unter CPIM gibt es 
jetzt einen preiswerten Einstieg. 
C Zeitan Bedeutung gewinnt. Das 

berühmte Betriebssystem Unix 
ist in C geschrieben. Und immer mehr 
kommerzielle Software wird in C ent- 
wickelt. Es gibt einige C-Compiler, die 
unter dem Betriebssystem CP/M lau- 
fen. Stellvertretend für diese präsentie- 
ren wir Small-C, ein Entwicklungs- 
system, das eine umfangreiche Pro- 
grammbibliothek (Quellcode - eben- 
falls in C) mitbringt. 

Das Programmpaket Small-C enthält 
außer dem C-Compiler noch einen 
Makro-Assembler zur Erzeugung von 
relokatierbarem 8-Bit-Objektcode für 
8080/Z80-Prozessoren undeinenLin- 
ker zum Binden einzelner Module zu 
lauffähigen Programmen. Außerdem 
bereichern noch eine Menge hilfreiche 
und gleich mitgelieferte Dienstpro- 
gramme (Tools) dieses Paket. Als 
Hardware-Voraussetzung benötigt man 
das Betriebssystem CP/M und minde- 
stens 56 KByte Hauptspeicher. 

Der Commodore 128 im CP/M-Mo- 
dus findet in diesem Entwicklungs- 
system ein geeignetes Werkzeug, um 
mit der Sprache © die ersten Gehversu- 
che zu unternehmen. Aber auch für alte 
Hasen liefert es eine Menge Anregun- 
gen zum Programmieren. Das gesamte 
Paket ist bis auf ein paar arithmetische 


und logische Funktionen selbst in C 
geschrieben. 


ist eine Sprache, die in letzter 


Der C-Compiler erzeugt aus einem 
C-Quellcode einen Assembler-Quell- 
code und erst dieser wird in einen relo- 
katierbaren Objektcode übersetzt. 
Dazu eignet sich der mitgelieferte 
Small-MAC-Assembler oder der M80- 
Assembler von Microsoft. Der Sprach- 
umfang umfaßt lediglich eine Unter- 
menge der Sprachdefinition nach Brian 
W. Kernighan und Dennis M. Ritchie, 
den Entwicklern der C-Sprache. Die 
Definitionen, Fließkomma-Datentypen 
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(float,‚double), sizeof, mehrdimensio- 
nale Arrays, Zeigerarray, Strukturen 
(struct,union), Bit-Felder und casts feh- 
len. Daß aber trotzdem größere Pro- 
gramme erzeugt werden können, zeigt 
das Small-C-Paket selbst. Es sind alle 
Unix-Funktionen implemetiert, soweit 
sie in einer fremden Umgebung 
anwendbar sind. 


Ein-/Ausgabe 


fopen(name, mode) 
freopen(name, mode, fd) 
fclose(fd) 

fgetc(fd) 

ungetc(c, fd) 
getchar() 

fgets(str, sz, fd) 
fread(ptr, sz, cnt, fd) 
read(fd, ptr, cnt) 
gets(str) 

teof(fd) 

terror(fd) 

clearerr(fd) 

fputc(c, fd) 
putchar(c) 

fputs(str, fd) 

puts(str) 

fwrite(ptr ‚sz, cnt, fd) 
write(fd, ptr, cnt) 
fflush(fd) 

cseek(fd, offset, from) 
rewind(fd) 

ctell(fd) 

unlink(name) 
rename(old, new) 
auxbuf(fd, size) 
iscons(fd) 

isatty(fd) 

printf(str, arg. ...) 
fprintf(fd, str, arg, ...) 
scanf(str, arg], ...) 
fscanf(fd, str, arg. ...) 


Formatkonverllerung 


atoi(str) 
atoib(str, base) 
itoa(nbr, str) 
itoab(nbr, str, base) 
dtoi(str, nbr) 
otoi(str, nbr) 
utoi(str, nbr) 
xtoi(str, nbr) 
itod(nbr, str, sz) 
itoo(nbr, str, sz) 
itou(nbr, str, 3z) 
itox(nbr, str, sz) 


Der Small-MAC-Assembler beinhaltet 
ein ganzes Paket von Programmen. Er 
enthält im einzelnen einen Makro- 
Assembler (MAC), einen Linker (LNK) 
und einen Bibliotheksverwalter (LIB). 
Zusätzlich stehen noch ein Lader 
(LGO), ein CPU-Anpassungsprogramm 
(CMIT) und ein Dump-Programm 
(DREL) zur Verfügung. Der Makro- 


Zeichenketten 


left(str) 

pad(str, ch, n) 
reverse(str) 
Strcat(dest, sour) 
strncat(dest, sour, n) 
stremp(str1, str2) 
lexcmpi(str1, str2) 
strncmpistr1, str2, n) 
strcpy(dest, sour) 
strncpy(dest, sour, n) 
strlen(str) 

strchr(str, c) 
strrchr(str, c) 


Zeichenklasslfizierung 


isalnum(c) 
isalfa(c) 
isascli(c) 
isentrl(c) 
isdigit(c) 
isgraph(c) 
isiower(c) 
isprint(c) 
ispunct(c) 
isspace(c) 
isupper(c) 
isxdigit(c) 
lexorder(c1, c2) 


Zeichenumwandlung 


toascii(c) 
tolower(c) 
toupper(c) 


mathematisch 


abs(nbr) 
sign(nbr) 


Programmkontrolle 


calloc(nbr, sz) 

malloc(nbr) 

avail(abort) 

free(addr) 
getarg(nbr,str,sz,argc,argv) 
poll(pause) 

exit(errkode) 





Tabelle 1. Vollständiges Verzeichnis der Funktionen von Small-C 





al 





CHG(Change) 
CNT(Count) 
CPY(Copy) 
CPT(Crypt) 
DBT(Detab) 
EDT(Edit) 
ETB 
FND(Find) 
FNT 


Zeileneditor 


Ersetzen von Zeichenketten in Textdateien 
Zählen von Zeichen, Wörtern oder Zeilen 
Kopieren von Textdateien 

Ver- und entschlüsseln von Dateien 

Ersetzen von Tab-Zeichen durch Leerzeichen 


Gegensatz von DBT 
Suchen von Zeichenketten in Textdateien 
Auswahl von Schriftarten des Epson-FX-80 und 


kompatible Drucker 


FMT(Format) 
LST(List) 
MRG(Merge) 
PRT(Print) 
SRT(Sort) 
TRN(Trans) 


Formatieren (Druck aufbereiten) von Textdateien 
Ausgabe von Textdateien auf den Bildschirm 
Zusammenhängen von zwei sortierten Textdateien 
Drucken von Textdateien 

Sortieren von Textdateien 

Kopiert Textdateien und ändert Zeichenketten 





Tabelle 2. Dienstprogramme für Textverarbeitung und Dateiverwaltung 


Assembler MAC ist ein 2-Pass- 
Compiler zur Erzeugung von verschieb- 
barem Objektcode. Der erzeugte Code 
liegt im Microsoft-8-Bit-Format zur Wei- 
terverarbeitung mit dem Linker LNK 
oder L8O von Microsoft vor. Diese Lin- 
ker verknüpfen einzeln übersetzte 
Module oder solche, die in einer Biblio- 
thek stehen, zu einem lauffähigen Pro- 
gramm, einer sogenannten COM-Datei. 
Auch der Lader ist ein nützliches Hilfs- 
mittel. Er ermöglicht es, Programme an 
eine bestimmte Adresse in den Spei- 
cher zu laden und wahlweise zu starten. 
Damit werden Betriebssystemerweite- 
rungen beim Booten (Kaltstart) instal- 
liert. Der Bibliotheksverwalter (LIB) ver- 
waltet eine Sammlung von verschiebba- 
ren Objektmodulen. In der Tabelle 1 
sehen Sie eine Übersicht aller vorhan- 
denen Funktionen. Die Verwaltung ge- 
schieht mit Hilfe einer Indexdatei. In die- 
ser Datei stehen die Namen und die 
Adressen der Module aus der Biblio- 
thek. Wird nun ein Programm mit dem 
Linker zusammengebunden, so sucht 
der Computer zunächst den Namen in 
der Indexdatei. Bei einem positiven 
Suchergebnis wird das Objektmodul 


aus der Bibliothek an das lauffähige 
Programm angehängt. Der Assembler 
arbeitet mit Maschinen-Instruktions- 
Tabellen, um einen Quellcode zu über- 
setzen. Um den Assembler für ver- 
schiedene Prozessoren (8080/Z80) 
zu verwenden, muß ihm eine solche 
Tabelle zur Verfügung stehen. Das Pro- 
gramm CMIT paßt den Small-MAC- 
Assembler einem bestimmten Prozes- 
soran, indem er eine Tabelle (es sind für 
beide Prozessortypen die Tabellen in 
Quellform vorhanden) in ein internes 
Format verwandelt und dieses in den 
ausführbaren Small-MAC-Assembler 
kopiert. Das Hilfsmittel DREL erzeugt 
aus jedem Objektmodul eine Liste in 
hexadezimalem Format. Die Ausgabe 
erfolgt im Standardformat. Es kann 
damit nach Belieben in eine Datei, auf 
einen Drucker oder auf den Bildschirm 
ausgegeben werden. 

Neben dem C-Compiler und dem 
Assembler enthält das Entwicklungs- 
system noch viele andere nützliche 
Programme. Sie umfassen folgende 
Funktionen und können nach Belieben 
vom Anwender erweitert werden: 

- editieren, formatieren, sortieren, 


zusammenfügen, listen, drucken, 
suchen, ersetzen, übersetzen, kopie- 
ren und aneinanderfügen, verschlüs- 
seln und entschlüsseln, Leerzeichen 
durch Tabs ersetzen, Tabs durch Leer- 
zeichen ersetzen, Zeichen, Wörter und 
Zeilen zählen, Druckerzeichensatz aus- 
wählen. 

Tabelle 2 listet alle vorhandenen Pro- 
gramme auf. Die Dienstprogramme 
(insgesamt 15) werden nur als Quellda- 
tei geliefert. Sie müssen also erst mit 
Small-C übersetzt und dann assem- 
bliert und zusammengefügt werden. 

Außer den Quellen der Programme 
befinden sich noch verschiedene 
Include-Dateien auf den insgesamt drei 
Disketten, die man beim Kauf bekommt. 
Alles in allem beläuft sich die Anzahl der 
Programme auf den Disketten auf zirka 
100 Dateien. Das deutsche Handbuch 
ist mit 200 Seiten sehr umfangreich 
und geht auf alle Programme sehr aus- 
führlich ein. Die umfassenden Kom- 
mentare bewahren auch den Anfänger 
vor großen Problemen. 

Das Entwicklungssystem Small-C 
bietet, trotz des eingeschränkten 
Sprachumfangs und seiner durch das 
Betriebssystem CP/M bedingten langsa- 
men Diskettenverarbeitung, ein sehr 
gutes Preis/Leistungsverhältnis. Es 
gewährt vor allem dem C-Einsteiger hilf- 
reiche Unterstützung beim Program- 
mieren beziehungsweise beim Erlernen 
von ©. Das Small-C wird zusammen mit 
C-Quellcode, Editor, Assembler, Linker 
und Tools zur Textverarbeitung für den 
C 128 und 128 D, den Schneider CPC 
464/664/6128 und den Joyce zum 
Preis von 148 Mark von Markt & Technik 
angeboten. Besitzer des CPC 464/ 
664 benötigen allerdings noch eine 
Speichererweiterung. 


(Günter Langheinrich/cg) 


Forth — die etwas andere 
Programmiersprache 


Wenn man Forth lernen möchte, 
braucht man dazu zweierlei: ein 
Forth-System und ein Buch zum 
Lernen. Der folgende Artikel soll 
Ihnen den Einstieg in Forth 
lediglich erleichtern; wir sagen 
Ihnen, welche Literatur geeignet 
ist und worauf Sie bei einem 
Forth-Compiler für Ihr Compu- 
tersystem achten müssen. 





icher haben Sie schon den einen 
oder anderen Artikel über Forth 
gelesen. Dort war häufig die 
Rede von der »umgekehrt polnischen 
Notation«, vom Stackkonzept und von 
Worten wie SWAP DUP und ROT, die 
dem Uneingeweihten allenfalls ein 
Stirnrunzeln entlocken. Über das 
Wesen der Sprache sagen sie aber 
nichts aus. Warum sich Forth in letzter 
Zeit dennoch zum »Geheimtip« unter 
Programmierern entwickelte, hat 


II 


andere Gründe. Forthist sicher nicht die 
»eierlegende Wollmilchsau«, wie dies 
von manch anderen Programmierspra- 
chen behauptet wird, bietet aber einige 
Vorteile, die eine genauere Betrachtung 
rechtfertigen. Eine Warnung vorweg: 
Forth ist in vieler Hinsicht ungewöhnlich 
und sicher nicht jedermanns Sache. 
Wenn Sie Angst vor den Innereien Ihres 
Computers oder Systemabstürzen 
haben, dann ist Forth nichts für Sie. 
Arbeiten Sie jedoch gern maschinen- 
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nah, um die letzten Feinheiten aus 
Ihrem Computer herauszuholen, und 
können Sie mit Bits und Bytes etwas 
umgehen, dann lesen Sie weiter. 

Allen höheren Programmiersprachen 
ist eins gemeinsam. Damit der Prozes- 
sor, das Herzstück eines jeden Compu- 
ters, versteht, was der Programmierer 
will, muß der Programmtext übersetzt 
werden. Letztlich kann der Computer 
immer nur seinen Maschinencode ver- 
stehen. 

Programmiersprachen lassen sich in 
zwei Kategorien einteilen. Da sind auf 
der einen Seite die Interpretersprachen 
wie Basic, Logo und Comal. Bei diesen 
Sprachen wird ein Programm während 
der Ausführung übersetzt (interpre- 
tiert). Dieses Verfahren hat den Vorteil 
der Interaktion, das heißt, man kann die 
Wirkung eines Befehls oder einer 
Befehlsfolge sofort sehen. Programme 
entwickeln geht also verhältnismäßig 
schnell, und auch die unvermeidliche 
Fehlersuche ist kein Problem. Man läßt 
einfach sein Programm Schritt für 
Schritt ablaufen, um zu sehen, wann 
und wo der Fehler auftritt. Nachteil die- 
ser Methode ist jedoch die geringe 
Ablaufgeschwindigkeit der Programme. 
Schließlich beschäftigt sich der Com- 
puter den größten Teil seiner Rechen- 
zeit mit der Übersetzung und nicht mit 
der Bearbeitung des eigentlichen Pro- 
gramms. Jeder, der einmal ein längeres 
Basic-Programm mit einem entspre- 
chenden Programm in Maschinencode 
verglichen hat, wird dies bestätigen. 

Aus diesem Grund schlägt man bei 
den Compilersprachen wie Pascal, C 
oder Modula einen anderen Weg ein. 
Der Programmtext wird ein einziges Mal 
in Maschinencode übersetzt (compi- 
liert) und kann dann immer wieder aus- 
geführt werden. Das klingt gut, hat aber 
natürlich ebenfalls seine Tücken. So ist 
es ein langer Weg vom Quelltext bis 
zum lauffähigen Programm. Typisch für 
solche Sprachen ist der Dreischritt Edi- 
tor, Compiler, Linker, der sich immer 
wiederholt und viel Zeit kostet. Ein Pro- 
grammfehler wird ja fast immer erst 
ganz am Schluß erkannt, wenn der 
Computer sang- und klanglos abstürzt. 

Forth verbindet die Vorteile von 
Interpreter- und Compilersprachen, 
also hohe Ablaufgeschwindigkeit und 
interaktive Programmentwicklung. In 
Forth können Sie die Wirkung jedes 
Befehls wie in Basic unmittelbar über- 
prüfen, die Programme laufen jedoch 
zirka zehnmal schneller ab. 

Zudem steht es offen, zeitkritische 
Programmteile mit dem fast immer vor- 
handenen Assembler unmittelbar in 
Maschinencode zu schreiben. Solche 
Routinen sind in der Regel sehr kurz. 
Der Forth-Interpreter/Compiler behan- 
delt sie aber genauso wie alle anderen 
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Forth-Befehle auch; Sie stoßen also auf 
keine SYS- oder CALL-Sequenzen mit 
irgendwelchen unverständlichen Zah- 
len dahinter. 

Forth ist vollkommen strukturiert. Ein 
Programm besteht aus einer Reihe von 
Befehlen, in Forth Wörter genannt, die 
jeweils einzeln entwickelt und getestet 
werden. Jeder so neu erzeugte Befehl 
wird durch seine Definition dem 
Sprachkern hinzugefügt und steht 
damit zur Bildung weiterer Wörter 
bereit. Für Verknüpfungen stehen die 
von Pascal bekannten Kontrollstruktu- 
ren wie IF..ELSE.. THEN, BEGIN. WHILE 
.REPEAT, DO..LOOP und so weiter zur 
Verfügung. GOTO und GOSUB fehlen 
ebenso wie Zeilennummern. Die Wörter 
werden einfach durch Nennung ihres - 
hoffentlich sinnvollen - Namens aufge- 
rufen. Das Ergebnis ist ein übersichtli- 
cher, wartungsfreundlicher Code. Das 
lernt man spätestens dann zu schätzen, 
wenn man sich nach einigen Wochen 
oder Monaten ein Programm zur Über- 
arbeitung wieder vornimmt. Haben Sie 
das einmal mit einem schlecht doku- 
mentierten Assemblerprogramm ver- 
sucht, wissen Sie das zu schätzen. 


In der Kürze 
liegt die Würze 


Fortn macht nahezu alles möglich, 
insbesondere den Zugriff auf die 
gesamte Hardware. Viele Sprachen 
schieben da einen Riegel vor, entschei- 
den für den Programmierer, was erlaubt 
ist und was nicht. Forth ist hier genauso 
wie Assembler und bietet übrigens 
auch die gleichen Fehlerquellen. So 
sind Ein-Ausgabe-Bausteine unter 
Forth ebenso leicht zu programmieren, 
wie man sich eigene Speicherverwal- 
tungen abseits von gewöhnlichen 
Variablen oder Arrays zusammenbauen 
kann. Ja, sogar der Forth-Compiler ist 
offen für Veränderungen. Dieser unein- 
geschränkte Zugang verlangt natürlich 
viel Disziplin beim Programmieren. 
Allerdings: Mehr als abstürzen kann Ihr 
Computer auch unter Forth nicht. 

Forth-Programme sind kurz, in der 
Regel sogar kürzer als entsprechende 
Assembler-Programme. Dasliegtan der 
Arbeitsweise des Forth-Compilers. Im 
Speicher steht bei jedem Wort nur eine 
Liste mit Adressen der Worte, aus 
denen es sich zusammensetzt. Der 
innerste Kern des Forth-Interpreters - 
übrigens eine Maschinencodesequenz 
von zirka 10 Byte - sorgt für die Abar- 
beitung dieser Liste. Das ist die Grund- 
idee. Natürlich gibt es eine Reihe von 
Feinheiten. So kommt es, daß »nor- 
male« Forth-Systeme mit 300 bis 400 
Befehlen Grundwortschatz nur zirka 10 
bis 20 KByte Speicher benötigen. 

















Nachdem wir Ihnen nun den Mund 
hoffentlich ausreichend wäßrig 
gemacht haben, wenden wir uns wie- 
der der eingangs gestellten Frage zu. 
Neben einem Computer braucht man, 
so hieß es dort, ein Forth-System und 
Literatur. Die Frage nach der Literatur 
läßt sich verhältnismäßig leicht beant- 
worten. Es gibt ein für Anfänger wie 
Fortgeschrittene gleichermaßen geeig- 
netes Buch. Es heißt »Starting Forth« 
von Leo Brodie. Eine deutsche Über- 
setzung ist unter dem Namen »Pro- 
grammieren in Forth« im Hanser-Verlag 
erschienen. Das Buch entwickelte sich 
zu So etwas wie einem Standardwerk, 
weil eslocker und doch exakt geschrie- 
ben ist. Wer gut Englisch kann, dem sei 
auf jeden Fall die Originalausgabe emp- 
fohlen, weil sich in der deutschen Über- 
setzung, vor allem bei den Programm- 
beispielen, einige Fehler eingeschli- 
chen haben. Man sollte es allerdings 
nicht abends im Bett kurz vor dem Ein- 
schlafen lesen, sondern neben den 
Computer legen und damit arbeiten. 
Auch Forth lernt man, indem man in 
Forth programmiert und nicht beim 
Lesen. 

Womit wir bei der Frage eines Forth- 
Systems wären. Hier läßt sich natürlich 
keine allgemeingültige Lösung ange- 
ben, da es für jeden Computer ver- 
schiedene Versionen gibt. Vor einiger 
Zeit veröffentlichte die Zeitschrift 
»Forth-Dimensions« (von der amerikani- 
schen »Forth Interest Group« herausge- 
geben), eine Art Checkliste für Forth- 
Systeme. Wir bringen zu Ihrer Orientie- 
rung eine deutsche Übersetzung, damit 
Sie wissen, worauf man achten sollte. 
Maximalsind dreizehn Punkte zu verge- 
ben. Systeme mit weniger als sieben 
Punkten dürften Ihnen die Arbeit mehr 
erschweren als erleichtern, von ihnen 
sollten Sie lieber die Finger lassen. 

Die Größe eines Systems entschei- 
det über den Umfang, also die Anzahl 
der Befehle, die im Grundwortschatz 
enthalten sind. Sicher ist die reine 
Länge in KByte kein ausreichendes 
Merkmal, wichtiger ist die Befehlsan- 
zahl. Sie gibt aber doch einigen Auf- 
schluß, ob es sich um eine reine Stan- 
dardimplementation handelt, die mit 
zirka 10 KByte auskommt, oder ob 
etwas Komfort geboten wird. Auch läßt 
sich aus der Länge in etwa beurteilen, 
wie viele der Grundworte in Maschinen- 
code geschrieben sind. Zwar etwas län- 
ger, wirken sie sich aber positiv auf die 
Laufzeit des Systems aus. Trotzdem: 
Seien Sie vorsichtig, wenn Ihnen 
Systeme mit 30 KByte und mehr Länge 
angeboten werden. Diese enthalten 
normalerweise viel überflüssigen Bal- 
last. 

Viel wichtiger ist dagegen der näch- 
ste Punkt. Viele Systeme enthalten 
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Zusätze in Form von Quelltexten. Das 
hat zwei Vorteile. Zum einen muß man 
nur die wirklich benötigten Teile laden, 
zum anderen kann man die Quelltexte 
seinen Wünschen anpassen und verän- 
dern. Nebenbei bemerkt lernt man 
bekanntlich aus Beispielen am besten: 
Wem solche Beispiele gleich mitgelie- 
fert werden, der hat es einfacher. 
Zusätze enthalten Programmierhilfen 
wie Decompiler, Einzelschrittracer, 
Assembler und so weiter oder auch fer- 
tige Programme. 


Wie steigt man ein? 


Die nächsten beiden Punkte bezie- 
hen sich auf den Editor. Wir halten dies 
für eins der wichtigsten Hilfsmittel jeder 
Programmiersprache. Schließlich arbei- 
ten Sie beim Programmieren fast aus- 
schließlich mit dem Editor. Sein Komfort 
entscheidet über die Bedienbarkeit 
eines Systems. Entspricht der Editor 
dem in Starting Forth beschriebenen, 
hat das den Vorteil, daß Sie die Bei- 
spiele aus dem Buch leichter bearbei- 
ten können. Ein guter Editor sollte bild- 
schirmorientiert arbeiten, das heißt, 
man kann mit dem Cursor auf dem Bild- 
schirm sumherwandern« und Anderun- 
gen sofort sehen. Der Starting-Forth- 
Editor verfügt über diese Eigenschaf- 
ten von Haus ausnicht, es gibt aber ent- 
sprechend erweiterte Versionen. Ein 
zeilenorientierter Editor ist nur zu emp- 
fehlen, wenn man noch nie mit etwas 
anderem gearbeitet hat. 

Zu den nächsten beiden Punkten: All- 
jährlich treffen sich Forth-Program- 
mierer, die diese Sprache professionell 
nutzen, in Amerika, um über Verände- 
rungen oder Erweiterungen des Forth- 
Sprachkerns zu beraten. Dabei werden 
die Erfahrungen, die sich aus der prakti- 
schen Arbeit mit Forth ergaben, aufge- 
arbeitet und gleichzeitig neue Ansätze 
diskutiert. Wenn Einigkeit über eine not- 
wendige Änderung herrscht, wird ein 
neuer Standard festgelegt. Der letzte 
Standard wurde 1983 beschlossen. 
Davor gab es einen im Jahr 1979. Zwar 
erscheinen die Änderungen - vor allem 
dem Anfänger - häufig spitzfindig. Sie 
sorgen jedoch für eine stetige Weiter- 
entwicklung der Sprache und verhin- 
dern das Auseinanderfallen in verschie- 
dene Dialekte, wie es zum Beispiel bei 
Basic geschehen ist. Ein Programm, 
das nur Standard-Definitionen enthält, 
hat den unschätzbaren Vorteil, daß es 
unabhängig vom verwendeten Compu- 
ter läuft. So lassen sich Programme für 
die verschiedensten Computer unter- 
einander austauschen, jeder kann von 
Erfahrungen anderer profitieren. Die 
folgenden Punkte beziehen sich auf die 
Beschreibung und Unterstützung Ihres 
Systems. Eine Beschreibung ist uner- 





läßlich, denn jedes Forth-System ver- 
fügt über eine Reihe von systemspezifi- 
schen Erweiterungen. Der Standard 
legt nur zirka 150 Worte fest, ein übli- 
ches Forth-System enthält aber 300 bis 
400 Worte. Darüber hinaus sind häufig 
Besonderheiten und Zusätze einge- 
baut, die man natürlich nur mit einer ver- 
nünftigen Beschreibung ausnutzen 
kann. Diese sollte auch Informationen 
darüber enthalten, wie der Compiler 
arbeitet, welchen Speicher das System 
benutzt und so weiter. Je mehr Sie über 
Ihr Forth-System wissen, desto besser, 
auch wenn Sie mit den Informationen 
zunächst nicht viel anfangen können. 
Von einem guten Händler können Sie 
auch erwarten, daß er auf Ihre Fragen 
und Probleme eingeht. 

Die letzten Punkte der FIG-Check- 
liste behandeln spezielle Erweiterun- 
gen. Ein Assembler sollte zur Grund- 
ausstattung jedes Systems gehören; 
ein Fließkommapaket wird man dage- 
gen nur selten brauchen. Forth arbeitet 
aus Geschwindigkeitsgründen fast 
ausschließlich mit Integerarithmetik. 
Sogar trigonometrische Funktionen, 
wie man sie für grafische Anwendun- 
gen häufig braucht, lassen sich ohne 
Fließkomma programmieren. Zugriff auf 
ein File-System sollte möglich sein, weil 
es sonst schwierig wird, von Forth aus 
auf Files einer Textverarbeitung oder 
einer Tabellenkalkulation zuzugreifen. 
Forth selbst arbeitet normalerweise 
direkt auf Diskette, mit physikalischem 
Zugriff ohne File-System. 


Wo bekommt man 
ein Forth-System? 


Die verschiedensten Firmen bieten 
Forthan, zum Teil zu horrenden Preisen. 
Dabei muß der Preis kein Qualitäts- 
merkmal sein, im Gegenteil: Einige der 
besten Forth-Compiler sahen ihre Auto- 
ren als »public domain« (also der Allge- 
meinheit kostenlos zugänglich), was 
manche Vertreiber nicht davon abhält, 
sich die Anpassung auf ein spezielles 
Computersystem teuer bezahlen zu las- 
sen. Den geringen Umsatz versucht 
man dann über hohe Preise auszuglei- 
chen. 

Es gibt in Deutschland einen »Ab- 
leger« der »Forth Interest Group«, die 
»Forth Gesellschaft eV.« in Hamburg. 
Sie setzt sich als Aufgabe die Verbrei- 
tung der Programmiersprache Forth. 
Die Gruppe arbeitet nicht kommerziell, 
sondern finanziert sich aus Beiträgen 
und Spenden. Dort kann man sich über 
Forth-Systeme für die verschiedenen 
Computer informieren, auch werden 
Bezugsquellen genannt. Es existiert 
auch eine Sammlung der verschieden- 
sten Artikel über Forth, die man sich 








gegen Unkostenerstattung kopieren 
lassen kann. Für Mitglieder erscheint 
eine Zeitung namens »Vierte Dimen- 
sion«, die zweimonatlich erscheint. Wer 
sich an die Forth-Gesellschaft wenden 
möchte, kann dies unter folgender 
Adresse tun: 

Forth-Gesellschaft eV. 

Schanzenstr. 27 

2000 Hamburg 6 

Zum Abschluß noch ein Bonbon: Für 
den Commodore 64 und den Atari ST 
gibt es das »volksFORTH-83«, ein 
Forth-System, das von Mitgliedern der 
Forth-Gesellschaft geschrieben wurde 
und ebenfalls »public domain« ist. Es 
handelt sich um eins der besten Forth- 
Systeme, die es gegenwärtig gibt: Es 
entspricht vollständig dem 8J3eer- 
Standard, enthält Fullscreen-Editor, 
Assembler und eine Fülle von Tools, 
angefangen vom Decompiler bis hin zu 
einem Grafik-Paket. Das System ist 
multi-tasking-fähig, das heißt mehrere 
Programme können gleichzeitig ablau- 
fen. Der Quelltext ist einschließlich des 
System-Quelltextes verfügbar und das 
System frei kopierbar. Die Weitergabe 
ist sogar ausdrücklich erwünscht. Wen 
es interessiert, kann es auch bei der 
Forth-Gesellschaft zu einem Selbstko- 
stenpreis von 45 bis 65 Mark kaufen; 
man erhält dann - je nach Computersy- 
stem - mehrere Disketten mit sämtli- 
chen Quelltexten sowie ein 200-sei- 
tiges Handbuch. Derzeit sind Versionen 
für Z80-, 8080- und 8068-Prozesso- 
ren in Arbeit. Nach der FIG-Checkliste 
erhält »volksForth-83« 12 von 13 mögli- 
chen Punkten. 

Ebenfalls erwähnen wollen wir das 
F83 von Henry Laxen und Michael 
Perry. Auch hierbei handelt es sich um 
ein »public domain«-System nach dem 
83'er-Standard. Es sind auch sämtliche 
Quelltexte zum System und allen Erwei- 
terungen zu erhalten. F83 gibt es für 
8080-, 8086- und 68000-Prozesso- 
ren. Bei der Forth-Gesellschaft erhalten 
Sie auf jeden Fall eine Version für den 
IBM-PC und kompatible Rechner. Zum 
F83 liegt keine Dokumentation vor. 
Statt dessen enthält die Version für 
jeden Quelltext Kommentarscreens. 
Auch dieses System erhält laut Checkli- 
ste 12 Punkte. 

Es steht nun nichts mehr im Wege, 
eigene Erfahrungen zu sammeln. 
Beschaffen Sie sich Starting Forth und 
ein Forth-System, und setzen Sie sich 
eine Woche oder sagen wir bis zum 
dreißigsten Systemabsturz an Ihren 
Computer. Entweder werfen Sie dann, 
dem Wahnsinn nahe, alles in die Ecke, 
oder aber die Faszination dieser Spra- 
che hat Sie gepackt und läßt Sie so 
schnell nicht mehr los. 


(Dietrich Weineck/hg) 


25 





Sie wollten schon immer wissen, 
was es mit der vielgerühmten 
strukturierten Programmierung 
in Pascal auf sich hat? Oder 
besitzen Sie gar einen Pascal- 
Compiler für Ihren Computer? 
Dann nehmen Sie sich ein wenig 
Zeit, und studieren Sie folgen- 
den Artikel. 


A: Eingabe eines Pascal-Pro- 
grammes, zur Übersetzung und 
zur Fehlerkorrektur müssen Sie 
spezielle Hilfsprogramme benutzen, 
deren Bedienung natürlich an dieser 
Stelle nicht beschrieben werden kann. 
In diesen Fällen hilft ein Blick in die 
Handbücher, die mit jedem Compiler 
geliefert werden. 

Die grundlegenden Eigenschaften 
der Spache Pascal lassen sich am ein- 
fachsten an einem konkreten Beispiel- 
programm erläutern (Listing 1). Am 
besten lesen Sie zunächst einmal den 
gesamten Programmtext durch. Über- 
legen Sie sich für jede Zeile, welche 
Bedeutung die Anweisungen haben 
könnten. Auch ohne Kenntnisse in Pas- 
cal werden Sie erkennen, daß dieses 
Programm vom Benutzer die Eingabe 
einer Folge von Zahlen erwartet, über 
die eine Summe gebildet und gedruckt 
wird. 

Auf den ersten Blick fällt bereits die 
stufenförmige Einrückung der Zeilen 
auf. Sie ist jedoch neben den Kommen- 
taren zwischen »(*« und »*)« das ein- 
zige an einem Pascal-Programm, das 
keinerlei Bedeutung bei der Überset- 
zung des Programms besitzt. Genauer 
gesagt, betrachtet der Compiler ein 
Pascal-Programm als eine lange Folge 
von Symbolen (Sonderzeichen und Na- 
men), die beliebig durch Leerzeichen 
oder Zeilenenden getrennt sein kön- 
nen. Im Prinzip könnte man also ein 
Pascal-Programm als einen riesigen 
Bandwurmsatz in eine einzige Zeile 
schreiben. Andererseits sind die Ein- 
rückungen, Leerzeilen und Kommen- 
tare die einzige Orientierungshilfe für 
den menschlichen Leser, um die teil- 
weise komplex geschachtelten Schlei- 
fen und Abfragen in einem Programm 
auf einen Blick zu erkennen, so daß 
man einen »guten« Programmierstil 
bereits am systematischen Layout 
erkennt. 

Es folgt also, daß man sich bei der 
Programmierung nicht auf eine »logi- 
sche« Einrückung des Textes verlassen 
darf, sondern vielmehr durch die Ver- 
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PROGRAM SUMME (INPUT, OUTPUT); 





(® DAS ERSTE PASCALPROGRAMM ZUR UEBBUNG “) 


CONST ANZAHL = 4; 
SUMME, X : REAL; 
I : INTEGER; 
BEGIN 
WHRITELN(' Gaben Sie bitte 
SUMME: = 0.0; 
FOR I: = 1 TO ANZAHL DO 
BEGIN 
READU X); 
END; 
WRITELN; 
WRITELN( ' Die Summe betraagt 
WRITELN!' Der Durchschnitt iat 
END. 


SUMME: =» SUMME «+ \ 





PROGRAM Name ( INPUT, OUTPUT); 


CONST Konstantendeklarationen 

VAR Variablendeklarationen 
PROCEDURE / FUNCTION Unterprogramm 
deklarationen 

BEGIN 


Anweisung; 
END. 


Bild 1. Der prinzipielle Aufbau eines 
Pascal-Programmes 


Anweisung; ... 





wendung von Sonderzeichen und Inter- 
punktionszeichen (Semikolon, Punkt, 
Komma) die Interpretation des Pro- 
grammes steuern muß. 

Neben den Sonderzeichen besteht 
ein Programm aus Wörtern. Dabei 
unterscheidet man zwischen reservier- 
ten Schlüsselwörtern (Wortsymbolen) 
und frei wählbaren Namen. Schlüssel- 
wörter haben eine feste syntaktische 
Bedeutung und können nicht als 
Namen zum Beispiel für Variablen (wie 
SUMME) verwendet werden. Tabelle 1 
zeigt die kurze Liste der reservierten 
Schlüsselwörter in Pascal. In den fol- 
genden Artikeln werden Sie die Bedeu- 
tung der meisten dieser Wörter kennen- 
lernen. 

Namen in Pascal bestehen aus einem 
Buchstaben, dem eine beliebige Reihe 
von Buchstaben oder Zahlen folgt. 
Jeder Pascal-Compiler berücksichtigt 
mindestens die ersten acht Zeichen 
eines Namens, so daß Sie Namen nicht 
wie in Basic auf zwei Zeichen Länge 
verstümmeln müssen. Da in Pascal 
nicht nur Variable, sondern auch Unter- 
Programme, Konstanten und Typen mit 
Namen versehen werden, sollte man 
bei der Namensgebung möglichst 
systematisch vorgehen, um aus diesen 
Namen auf die Bedeutung schließen zu 
können. 

Beispiele für sinnvolle und erlaubte 
Namen sind: ANFANGSBUCHSTABE, 
ENDEZEICHEN, GRENZE, FEHLER. 

Nachdem Sie jetzt einen Überblick 
über die Einzelteile (Symbole) eines 





"ANZAHL, ' 


°, SUMME); 
", SUMME / ANZAHL) 


Zahlen ein!'); 


Listing 1. 

Dieses Pascal-Programm 
berechnet Summe 

und Querschnitt 


FILE NOT 

FOR OF 
FORWARD OR 
FUNCTION PACKED 
GOTO PROCEDURE 
IF PROGRAM 
IN RECORD 
LABEL REPEAT 
MOD SET 

NIL THEN 


Tabelle 1. Reservierte Wörter In 
Pascal 


Pascal-Programms besitzen, wenden 
wir uns nun dem Zusammenbau dieser 
Elemente zu einem vollständigen Pro- 
gramm zu. Jedes Programm hat die in 
Bild 1 gezeigte Struktur: 

- Programmkopf 

- Deklarationen 

- BEGIN 

- Anweisungen 

- END 

Im Rahmen dieses Artikels besteht 
jeder Programmkopf aus dem Schlüs- 
selwort PROGRAM, einem Namen und 
der Parameterliste (INPUTOUTPUT). 
Die Namen INPUT und OUTPUT zeigen 
an, daß im Programm Eingaben von der 
Tastatur und Ausgaben an den Bild- 
schirm vorkommen können. 

Der nachfolgende Deklarationsteil 
definiert alle Namen, die im Programm 
verwendet werden. Grundsätzlich gilt in 
Pascal die Regel, daß die Definition 
eines Namens im Programm-Text vor 
der Anwendung des Namens in einer 
anderen Definition oder in einer Anwei- 
sung stehen muß. Dadurch können 
Pascal-Programme in einem einzigen 
Durchlauf (one pass) compiliert wer- 
den, da vor jeder Anwendung eines 
Namens der Compiler alle Informatio- 
nen über einen Namen bereits gelesen 
hat. 

In dem Beispielprogramm in Listing 1 
wird zum Beispiel eine Konstante AN- 
ZAHL mit der Deklaration 
CONST ANZAHL = 4 
definiert. Immer wenn im nachfolgen- 
den Programm-Text der Name ANZAHL 


= ı1®#je]n , 
» » 














auftritt, wird die Konstante 4 compiliert. 
Außerdem würde der Compiler eine 
Zuweisung an diese Konstante, bei- 
spielsweise mit »ANZAHL := 39«, als 
Fehler erkennen. Dies ist einer der vie- 
len Vorteile der expliziten Deklaration 
von Namen: Der Compiler schützt den 
Programmierer vor der falschen oder 
doppelten Verwendung eines Namens. 
Wer sich schon einmal durch ein größe- 
res fremdes Programm gekämpft hat, 
wird auch wissen, daß die Abfrage 

IF ANZAHL=MAXIMALANZAHL THEN... 
verständlicher ist als 

IF A=49 THEN... 

Nicht zuletzt erlaubt die Verwendung 
von Konstanten eine einfache Ande- 
rung bestehender Programme. Soll das 
Programm in Listing 1 später einmal 
acht Zahlen summieren, so genügt die 
einmalige Anderung der Konstanten 
ANZAHL, wodurch sowohl die Ober- 
grenze der FOR-Schleife als auch die 
Division bei der Durchschnittsbildung 
angepaßt wird. 

Das Programm SUMMEE enthält noch 
eine weitere Form von Deklarationen: 
VAR SUMME, X: REAL; 

I : INTEGER; 

Hinter dem Schlüsselwort VAR wer- 
den alle Variablen des Programms mit 
ihrem Typ (zum Beispiel INTEGER) auf- 
geführt. Der Typ einer Variablen gibt an, 
welche Werte eine Variable annehmen 
darf (zum Beispiel Zahlen oder Zei- 
chen). Während in Basic der Typ einer 
Variablen aus dem Namen hervorgeht 
(A$, A%, A), wird in Pascal der Name 
eines Typs bei der Deklaration angege- 
ben. Zunächst wollen wir uns auf die 
vordefinierten Standard-Typen be- 
schränken: 

REAL: Dieser Typ umfaßt die reellen 
Zahlen (zum Beispiel +1.0, 0.0, -1.2, 
2.3E-4). 

INTEGER: Werte vom Typ INTEGER 
sind ganze Zahlen aus einem 
































Tabelle 2. Wahrheitstabelle der logischen Operatoren 


PROGRAM GESCHWINDICKEITSTEST (INPUT, 
CONST LETZTERDURCHLAUF = 10000; 


VAR X1 
X2 : REAL; 
ZAEHLER: INTEGER; 

BEGIN 


: INTEGER;, 


OUTPUT), 
(* WIEDERHOLE SCHLEIFE SO OFT *) 


WRITELN(' INTEGER-Schleife gestartet!'); 


X1:= 0; 


FOR ZAEHLER: = 1 TO LETZTERDURCHLAUF DO X1:= X1+1, 
RRITELN!' INTEGER-Schleife beendet!'),; 
WRITELN( ' REAL-Schleife gestartet!'); 


X2:«= 0; 


FOR ZAEHLER: =» 1 TO LETZTERDURCHLAUF DO X2:= X2+»1; 
WRITELN(' REAL-Schleife beendet!'); 


END. 


Listing 2. Ein Geschwindigkeitsvergleich zwischen REAL und INTEGER 


beschränkten Intervall. Typischerweise 
sind dies die Zahlen zwischen -32768 
bis 32767. 

CHAR: Eine Variable vom Typ CHAR 
kann ein einzelnes Zeichen, wie »A«, »!« 
oder »4« speichern. 

BOOLEAN: Dieser Typ ist Ihnen 
sicherlich nicht ganz so vertraut wie die 
übrigen Standard-Typen. Er umfaßt 
nämlich nur die logischen Werte »wahr« 
(TRUE) und »falsch« (FALSE). Soliefern 
zum Beispiel Vergleiche ein Ergebnis 
vom Typ BOOLEAN. Mit booleschen 
Werten kann man über die logischen 
Operatoren UND, ODER und NICHT 
(AND, OR, NOT) »rechnen«, und die 
Ergebnisse in einer Variablen spei- 
chern: 


27=13 (FALSE) 
12>4 (TRUE) 
'A'<'B' (TRUE) 
'A'z!a! (FALSE) 








(A=B) OR (X=Y) 
RICHTIG := ERGEBNIS = LOESUNG 
FALSCH := NOT (RICHTIG) 

Die letzten beiden Zeilen verwenden 
zwei boolesche Variablen RICHTIG und 
FALSCH, die mit 
VAR RICHTIG, FALSCH: BOOLEAN; 
deklariert werden müssen. Diese Bei- 
spiele machen auch den Unterschied 
zwischen dem Vergleichsoperator »=« 
und dem Zuweisungsoperator »:=« 
deutlich. Mit »ERGEBNIS = LOE- 
SUNG« wird der Inhalt der Variablen 
ERGEBNIS mit dem Inhalt der Variablen 
LOESUNG verglichen. Stimmen beide 
überein, so liefert der Vergleich das 
Ergebnis TRUE. Um einer Variablen 
einen neuen Wert zuzuweisen, verwen- 
det man den Zuweisungsoperator »:=«. 
Typische Beispiele sind: 

I:= I+l 
ERGEBNIS:= SIN(X)+COS(X) 
LOESUNG: = AB - C#D + 23.0 

Zur Verdeutlichung der Wirkung der 
booleschen Operatoren enthält Tabelle 
2 eine sogenannte Wahrheitstabelle, 
die zum Beispiel angibt, daß falsch und 
wahr gleich falsch ist (FALSE AND 
TRUE = FALSE). 


Warum unterscheidet man aber zwi- 
schen den Typen REAL und INTEGER? 
Für einen Computer ist es wesentlich 
einfacher, mit ganzen Zahlen zu rech- 
nen oder zu zählen, als Fließkomma- 
Arithmetik mit reellen Zahlen durchzu- 
führen. Außerdem lassen sich Zahlen 
vom Typ INTEGER wesentlich kompak- 
ter als REAL-Zahlen speichern. Das 
bedeutet für die Praxis, daß man nur in 
Ausnahmefällen Variablen vom Typ 
REAL deklariert, und zwar nur dann, 
wenn sehr große Zahlen verarbeitet 
oder Nachkommastellen dargestellt 
werden müssen. Bei einer genaueren 


2/ 


Untersuchung der meisten Programme 
wird man jedoch feststellen, daß die 
Mehrzahl der Variablen nur zum Zählen 
in Schleifen, als Indizes in Tabellen oder 
für ähnliche Steuerungsaufgaben be- 
nutzt werden, in denen INTEGER-Zah- 
len völlig ausreichen. Wer einen Com- 
puter zur Verfügung hat, sollte sich den 
erheblichen Geschwindigkeitsunter- 
schied zwischen Operationen mit gan- 
zen und reellen Zahlen am Beispielpro- 
gramm in Listing 2 verdeutlichen. 

Zum Abschluß dieses kleinen Exkur- 
ses über die Standard-Typen in Pascal 
soll noch ein weiterer Begriff geklärt 
werden, der Ihnen bei der Lektüre eines 
Pascal-Lehrbuches oder in Fehlermel- 
dungen des Compilers häufiger begeg- 
nen wird: Ein »skalarer Typ« ist ein Typ, 
dessen Werte einzeln aufzählbar sind 
und der nicht in einfachere Typen zer- 
legt werden kann. 

INTEGER, CHAR und BOOLEAN 
sind beispielsweise skalare Typen. 
Reelle Zahlen oder Mengen haben kei- 
nen skalaren Typ. Später werden 
Anwendungen genannt, in denen nur 
Werte eines skalaren Typs auftreten 
dürfen. An solchen Stellen sind also nur 
ganze Zahlen, nicht aber reelle Zahlen 
zu verwenden. 


Anweisungen und 
Blockstruktur 


Jetzt können wir uns dem Anwei- 
sungsteiil eines Pascal-Programms 
zuwenden, der definiert, was mit den 
Objekten geschieht, die im Deklarations- 
teil vereinbart wurden. Bild 2 zeigt einen 
Überblick über alle Arten von Anwei- 
sungen, die nachfolgend beschrieben 
sind. 

Die Philosophie der sogenannten 
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PROGRAM ZUWEISUNGEN ( INPUT, OUTPUT); 


VAR R: REAL, 
l: INTEGER: 
B: BOOLEAN; 
C: CHAR; 
BEGIN 
R:= 3. 141592653; 
SORLSINER)I) + SORLCOSIUR)), 
0; 
I1»1; 
Ile» I - 7; 
13 DIV 4, 
13 MOD 4; 
ABSCtR); 
ABS(I),; 
CH: ='A',; 
CH: = CHR( 65), 


I:= ORDU'A'); 


B:= (1034); 
BI= B OR NOT B; 


(#2 PI ist eine reelle Zahl 
-) R= 1.0 


vorwaerts zaehlaen 
Ergebnis ist ganze Zahl 
Division mit Rest -> I=3 
Dıvısaıonsreat -) Iei 
Abaolutwert vom Typ REAL 
dagl. vom Typ INTEGER 
nur einzelne Zeichen '! 
CHR liefert das Zeichen 
mit dem Code 65, das ist 
der Buchstabe 'A' 

ORD wirkt genau umgekehrt, 
alao iat danach I- 65 
TRUE, falla I:»d4 

Immer richtig (TRUE)! 


Listing 3. Mögliche Formen der Zuweisung In Pascal 


strukturierten Programmierung, die ja 
bekanntermaßen der Sprache Pascal 
zugrunde liegt, verbirgt sich in dem 
Zweig mit der Bezeichnung »Zusam- 
mengesetzte Anweisungen« Jede 
zusammengesetzte Anweisung kann 
aus einer Vielzahl verschiedener (even- 
tuell ebenfalls zusammengesetzter) 
Anweisungen bestehen. Man kann sich 
eine Anweisung als einen Block vorstel- 
len, der einen Eingang und einen Aus- 
gang besitzt. Ist ein Block eine zusam- 
mengesetzte Anweisung, so enthält er 
kleinere Blöcke mit je einem Eingang 
und Ausgang, die nach festen Regeln 
geschachtelt werden. So kann jeder 
Block als eine Einheit betrachtet wer- 
den, ohne die umgebenden Böcke zu 
kennen. Das mag etwas abstrakt klin- 
gen, aber das Bild einer Blockstruktur 
ist zur Verdeutlichung der Schachtelun- 
gen recht anschaulich. 

Einfache Anweisungen: Dies sind 
die elementaren Bausteine, aus denen 
der Anweisungsteil besteht. Die wich- 








tigste Form der einfachen Anweisun- 
gen hatten wir bereits kennengelernt: 
Eine Zuweisung besteht aus dem 
Namen einer Variablen, dem Zuwei- 
sungsoperator »:=« und einem Aus- 
druck. Das Programm in Listing 3 zeigt 
Ihnen eine Vielzahl von Beispielen für 
Zuweisungen in Pascal. Sie werden 
feststellen, daß sich die Ausdrücke von 
ihren Gegenstücken in Basic oder Fort- 
ran nur unerheblich unterscheiden. Sie 
haben also nicht eine so extravagante 
Form wie in C oder gar in Forth. Natür- 
lich gilt auch in Pascal die Regel »Punkt- 
vor Strichrechnung«. 

Bitte achten Sie darauf, daß der Typ 
des Ausdruckes auf der rechten Seite 
des »:=« mit dem Typ der Variablen vor 
dem »:=« verträglich ist. Daß man einer 
Variablen vom Typ CHAR keine Zahl 
zuweisen kann, ist wohl selbstverständ- 
lich. Jedoch ist es auch nicht möglich, 
einer Variablen vom Typ INTEGER 
direkt eine reelle Zahl zuzuweisen. Man 
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muß vielmehr angeben, was mit den 
eventuell vorhandenen Nachkomma- 
stellen geschieht. Hierzu dienen die 
Standardfunktionen TRUNC und 
ROUND, die Nachkommastellen einer 
reellen Zahl abschneiden oder zur 
nächsten ganzen Zahl aufrunden 
(Tabelle 3). 


ı TRUNCLX)I, ROUNDLX) ı 


Tabelle 3. Die Wirkung von 
TRUNC und ROUND 


Wie bestimmt man aber den Typ eines 
Ausdrucks? Dazu stellt man zunächst 
die Typen der Konstanten und Variablen 
(aus dem Deklarationsteil) fest. Eine 
Zahl ohne Dezimalpunkt und Exponent 
ist vom Typ INTEGER: 

Beispiele: 

1 0 -8 100000 

(Zahlen vom Typ INTEGER) 
1.2 1E-4 123.4 
(Zahlen vom Typ REAL) 

Wird eine reelle Zahl mit einer ganzen 
Zahl verknüpft, so erhält man als Ergeb- 
nis eine reelle Zahl. Indem man schritt- 
weise (unter Beachtung der Prioritäten 
und Klammern) den Ausdruck auflöst, 
entsteht der Ergebnistyp. 

Beispiele: 
A:= 1000 * (1000 + 4) 
B:= 1000 * (1000 + 4.0) 

Da der Wertebereich INTEGER meist 
nur Zahlen kleiner oder gleich 32768 
darstellen kann, würde bei der Ausfüh- 
rung der ersten Zuweisung ein Überlauf 
eintreten. Durch die Addition von 4.0 
(vom Typ REAL) ist jedoch im zweiten 
Falldas Ergebnis (B) vom Typ REAL und 
somit noch darstellbar. 

Tabelle 4 gibt einen Überlick über die 
möglichen Operatoren in Pascal mit 
konkreten Beispielen. Außergewöhn- 
lich ist nur die Tatsache, daß die logi- 
schen Operatoren AND und OR stärker 
binden als die Vergleichsoperatoren 
(>,<,=,<>). Diese Einheit muß bei 
der Formulierung von Bedingungen 
(zum Beispiel bei IF-Anweisungen) 
durch eine korrekte Klammerung 
beachtet werden: 

Beispiel: 

IF (A=B) OR (C=D) THEN... 
und nicht 

IF A=B OR C=D THEN... 

(Beim zweiten Ausdruck würde zu- 
nächst »B OR C« berechnet, das Ergeb- 
nis mit A verglichen, das Resultat (vom 
Typ BOOLEAN) schließlich mit D vergli- 
chen werden, was wohl nicht beabsich- 
tigt war.) 
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ı Identitaet 

ı Vorzeıchenwechael 

ı Addition 

ı Mereınıqungsmenga 

ı 61,2.3,4l + (3,5) 

ı Subtraktion 
Dıfl[fereanzmenge 

1.12, 3,4]| = 1325] 

ı Multiplikation 

ı Schnittmenge 

ı 11,2.3,.4) » 13,5] 

‚ Division mıt Rest 

ı Divisionarest 
"normale Division 


a eh 


»(1,2.4)) 
“1 (0=9) 


= (3)) 
7 DIV 
7 DIV 


(1.2, 
' = ‘Anna 
(analog) 


FALSE) 
ı ungleich 
ı klaeıner 'A'c'B' 
groesser 'Otto'»'Anna' 
ı aroeaser oder qaleich 
Teat auf Obermenge |1,2,3)>=Ll11] 
(= TRUB) 


(= TRUE) 


ı kleiner oder gleich 

ı Teat auf Teilmenge 

vo AZ EST eaelr ] 

ı Test auf Enthaltensein 

1 33 IN f1..40) (=TRUE) 

ı nicht NOT FALSE (TRUE) 

ı und (I>J) AND (J>I) (=FALSE) 
oder t(A=B) OR (Ac>B) (=-TRUB) 


(=FALSE) 


3 (=22) ı 
3 (=1) ı 
(=0.25)ı 


ı INTEGER. 
ı INTEGER. 
ı INTEGER., 
ı Mengen 

= 11, 2,3,5117% 
ı INTEGER. 
ı Mengen 


ı INTEGER. 
! Mengen 


INTEGER 
INTEGER 


INTEGER, 


ı Skalar. 


Manage, 


ı Skalar, 
ı Skalar, 
(=TRUE) ı 
ı Skalar. 
ı Menge 


Skalar, 


ı Skalar, 
ı Menge 


BOOLEAN 
BOOLEAN 
BOOLEAN 


Pointer: 
Strıng 
Pointer 
String ı 
String ı 
String ı 

BOOLEAN 
v 


! wıe Operand ! 
I wıe Operand ! 
wıe Operand | 

\ 


ı Menga 


ı wie Operand 
i 


ı Menge 


8 ( 
ı wie Operand .| 


ı Manga 


q 
ı INTEGER 
ı INTEGER 


ı REAL (immer)! 


String ı 
ı BOOLEAN 


ı Skalar und 
ı Menge 


BOOLEAN 


BOOLEAN 
BOOLEAN 
BOOLEAN 
BOOLEAN 


BOOLEAN 


ı BOOLEAN 


ı BOOLEAN 


BOOLEAN 


ı BOOLEAN 


Tabelle 4. Operatoren und Ihre Wirkungen 


Erwähnenswert ist die Tatsache, daß 
es in Standard-Pascal keinen Exponen- 
tialoperator (Ahoch B) gibt. Der weiter- 
führende Artikel über Prozeduren und 
Funktionen beschreibt, wie man sich 
diesen Operator selbst definiert. 

Um die Ergebnisse von Berechnun- 
gen und die Inhalte von Variablen am 
Bildschirm darzustellen und auch um 
Eingaben des Benutzers von der Tasta- 
tur zulesen, gibt es in Pascal einige vor- 
definierte Unterprogramme. Diese Pro- 
zeduren werden durch die Angabe 
ihres Namens, den »Prozeduraufrufe 
aktiviert. Das Programm aus Listing 1 
enthält bereits verschiedene Prozedur- 
aufrufe. Mit WRITELN (write line) wird 
zum Beispiel der Cursor am Bildschirm 
auf den Anfang der nächsten Zeile 
gesetzt. Oft muß man einer Prozedur 
weitere Informationen übergeben. 
Diese »Parameter« werden in Klammern 
und durch Kommata getrennt hinter 
dem Prozedurnamen aufgeführt: 
WRITE('SUMME = ', A+B+C); 

WRITE('! DM') 

Als Parameter für die Prozedur 
WRITE sind neben Textkonstanten 
(Strings in Hochkommata) alle Werte 
der Standard-Typen (REAL, INTEGER, 
CHAR und auch BOOLEAN) zugelas- 
sen. Gerade für Einsteiger bietet sich 
damit die Chance, während des Pro- 
grammablaufs Zwischenergebnisse 
oder Variablen ohne großen Aufwand 
anzuzeigen. Zwei aufeinanderfolgende 
WRITE-Anweisungen drucken ihre 
Werte ohne Zwischenraum direkt hin- 
tereinander. Möchte man nach der Aus- 
gabe einen Zeilenvorschub durchfüh- 
ren, so verwendet man WRITELN statt 








WRITE. Das Gegenstück zu WRITE und 
WRITELN sind die Prozeduren READ 
und READLN. Als Parameter an diese 
Prozeduren übergibt man Variablen, 
denen Werte zugewiesen Sind, die von 


der Tastatur eingelesen werden. 
Betrachten wir folgendes Beispiel: 
READ(A,B,C,D) 


Dieser Prozeduraufruf liest vier Werte 
ein. Ob es sich dabei um ganzzahlige 
oder reelle Zahlen oder um Zeichen 
handelt, hängt von der Deklaration der 
Variablen A, B, Cund Dab. SindA,B, C 
und D Variablen vom Typ INTEGER, so 
kann der Benutzer folgende Eingaben 
machen: 

1 2 3 4 [RETURN Taste] 
oder auch in mehreren Zeilen: 


1 2 [RETURN Taste] 
3 [RETURN Taste] 
4 [RETURN Taste] 

Mit »READLN (A); READLN(B); 
READLN(C); READLN(D)« wird nach 
dem Einlesen jedes Wertes der Rest 
der Eingabezeile ignoriert, so daß die 
vier Werte in vier Zeilen eingegeben 
werden müssen. 

Später werden Sie sehen, wie man 
eigene Prozeduren und Funktionen in 
Pascal definiert, denen man wie den 
Standard-Funktionen Parameter über- 
geben kann, oder die Ergebnisse 
zurückliefern. Solche benutzerdefinier- 
ten Prozeduren entsprechen also im 
Prinzip den Unterprogrammen (Stich- 
wort GOSUB, RETURN) in Basic. 

Jetzt sind alle einfachen Anweisun- 
gen bekannt, so daß wir mit der Bespre- 
chung der zusammengesetzten Anwei- 
sungen fortfahren können. 





BEGIN (* TAUSCHE A <-> B *) 
H: = A; 
A:= B; 
B:= H 
END 
Listing 4. Ein Beispiel für einen ab- 
geschlossenen Anwelsungsblock 


Eine »Anweisungsfolge« faßt eine 
Reihe von Anweisungen zu einer einzi- 
gen Anweisung zusammen. Listing 4 
zeigt als Beispiel für die allgemeine 
Struktur einer Anweisungsfolge ein kur- 
zes Programmstück, in dem der Inhalt 
der Variablen A und B vertauscht wird. 
Dieses Diagramm soll zeigen, wie die 
kleinen Blöcke (Anweisungen) zu 
einem großen Block (der zusammenge- 
setzten Anweisung) zusammengefaßt 
werden. Bitte beachten Sie, daß Semi- 
kola zwischen den Anweisungen ste- 
hen und nicht hinter jeder Anweisung. 
Daher muß vor dem abschließenden 
END kein Semikolon stehen. Jedoch ist 
es erlaubt, überflüssige Zeichen in eine 
Anweisungsfolge einzufügen, so daß 
folgende Anweisungsfolgen ebenfalls 
syntaktisch korrekt sind: 

BEGIN H:=A; A:=B; B:=H; END 
und 
BEGIN ;H:=A;; A:=B; B:=H END 

Der Anweisungsteil eines Pascal- 
Programms ist also syntaktisch gese- 
hen eine Anweisungsfolge Da die 
Anweisungen in einer Anweisungsfolge 
immer in derselben Reihenfolge abge- 
arbeitet werden, benötigt man zur 
bedingten Ausführung von Befehlen 
eine zusätzliche zusammengesetzte 
Anweisung. 


Bedingungen 
auswerten mit IF 


In Pascal gibt es zwei Formen der »IF- 
Anweisung«, die in Listing 5 und Listing 
6 dargestellt sind. Die Bilder 3 und 4 
sind die zu diesen Listings passenden 
Struktogramme. Die Bedingung nach 
dem Schlüsselwort IF ist ein beliebiger 
Ausdruck mit dem Ergebnistyp BOO- 
LEAN. Ist der Wert des Ausdruckes 
TRUE, so wird die Anweisung hinter 
dem Schlüsselwort THEN ausgeführt. 
Ist das Ergebnis FALSE, so wird die 
Anweisung nach dem Schlüsselwort 
ELSE (falls vorhanden) ausgeführt. 

Soll hinter THEN oder ELSE mehr als 
eine einzelne Anweisung stehen, müs- 
sen Sie diese Anweisungen mit BEGIN 
und END zu einer zusammengesetzten 
Anweisung »klammern«. Ein Beispiel 
hierfür zeigt Listing 7. Ein häufiger Feh- 
ler besteht darin, vor ELSE ein Semiko- 
lon einzufügen. In diesem Fall erkennt 
der Compiler die einseitige Auswahl 


EA LTEH 














IF Bedingung THEN 
Anweisung 


IF Bedınqaung THEN 
Anweisung 

ELSE 
Anweisung 


ELSE 
MAXI 





WRITELN (X, gefunden”) 





MAXIMUM: = A 





PROGRAM PQFORMEL (INPUT, OUTPUT); 


A=X THEN 
WRITELN(X, 


IF A>B THEN 
MAXIMUM: = A 


Listing 5. Die ein- 
fache IFrAnwelsung 


‘“geflunden!') 


Listing 6. Die IF Anweisung 
mit ELSE-Zwelg 


MUM: = B 


Bild 3. 
Struktogramm 
der einfachen 
IFAnwelsung 


MAXIMUM: = B Bild 4. 


Struktogramm 
der IFrFAnwelsung 
mit ELSE-Zweig 


(#* BERECHNE DIE LOESUNG DER GLEICHUNG X*X + PX + Q = 0°) 


VAR REAL; 
BEGIN 


WRITEL'P = '), 


P,Q,A, MW: 


READLN(P); 
WRITEL'Q = '); READLN(Q); 
Koma =ı, Pf 2; 
W: = SQORILA) - ©; 
IF W<O THEN 
HRITEL'Ea eaxıatlieıt keine Loesung' ) 
ELSE 
BEGIN 
WRITELNÜ'X1 = A + SORT(W); 
WRITELNU'X2 = ', A - SQRTIı W) 
END; 
END. 





PROGRAM MAXIMUM (INPUT, 
VAR MAX : INTEGER:; 
A,B;C: INTEGER; 
BEGIN 
WRITEC('A B C:'); 
IF A>B THEN 
IF A)C THEN 
MAX: = A 
ELSE 
MAX: = C 
ELSE 
IF B»C THEN 
MAX: = B 
ELSE 
MAX: = C, 
WRITELNU ' Das Maximum von ', 4, B, C,' 
END. 


OUTPUT), 


READLN{A,B,C); 





(wie in Bild 3) und »beschwert« sich, 
daß er mit dem Schlüsselwort ELSE 
nichts anzufangen weiß. 

Natürlich kann die Anweisung nach 
THEN und ELSE wiederum eine IF- 
Anweisung sein, was in Listing 8 dazu 
verwendet wird, das Maximum der Zah- 
len A, Bund C zu bestimmen. Bild 5 
zeigt die zugehörige Bilockstruktur, 
wobei man deutlich erkennt, daß jeder 
der geschachtelten Blöcke nur einen 





Listing 7. 
»Quadratische 
Glelchung« als 
Beispiel für 

die IFTHEN-ELSE- 
Anweisung 


Listing 8. 
»Maximum« - 
ein Beisplel für 
verschachtelte 
IFAbfragen 


(*?c- erat hier darf ein Semikolon atehan! *) 


ist ',MAX) 


Eingang und einen Ausgang besitzt. Ein 
Beispiel für die Schachtelung der ein- 
seitigen Auswahl bietet Listing 9. Hier 
wird zu einem Tagesdatum das Datum 
des nachfolgenden Tages berechnet, 
wobei zur Vereinfachung angenommen 
wird, daß jeder Monat 30 Tage besitzt. 

Wollen Sie komplexe IF.. THEN..ELSE- 
Schachtelungen programmieren, so 
müssen Sie darauf achten, daß der 
Compiler jedes ELSE der letzten IF- 
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nn 





Anweisung zuordnet, die noch kein 
ELSE besitzt. Um in diesen Fällen Pro- 
bleme zu vermeiden, empfiehlt es sich, 
die »innen« liegenden IF-Anweisungen 
mit BEGIN und END zu klammern. 

Oftisteserforderlich, in Abhängigkeit 
eines Wertes verschiedene Berech- 
nungen durchzuführen. Für solche 
Fälle bietet sich die »CASE-Anweisung« 
an (Listing 10 und Bild 6). Es wird der 
Ausdruck nach dem Schlüsselwort 
CASE berechnet (der einen skalaren 
Typ besitzen muß) und in Abhängigkeit 
vom Ergebnis zu einer der Anweisun- 
gen hinter den Fallmarken verzweigt. 
Diese Fallmarken müssen jeweils Kon- 
stanten mit dem Typ des Ausdruckes 
hinter CASE sein. Stimmt keine der Fall- 
marken mit dem Ergebnis überein (zum 
Beispiel MONAT = 14), so erfolgt in 
Standard-Pascal ein Programmabbruch 
mit Fehlermeldung (viele Compiler 
erlauben jedoch auch die Angabe eines 
ELSE-Zweiges, auch OTHERWISE ge- 
nannt, dessen Anweisung in diesem 
Fall ausgeführt wird). 

Ein weiteres Beispiel für die CASE- 
Anweisung istin Listing 11 gegeben. In 
diesem Programm werden von der 
Tastatur zwei Zahlen gelesen, die in 
Abhängigkeit von einem Zeichen (* . + 
- /) multipliziert, addiert, subtrahiert 
oder dividiert werden. Falls bei der Ver- 
arbeitung kein Fehler aufgetreten ist, 
wird das Ergebnis ausgedruckt. Bemer- 
kenswert an dem Beispiel ist noch die 
Verwendung der booleschen Variablen 
OK, die den Wert FALSE enthält, falls 
ein illegaler Befehl eingegeben oder 
eine Division durch O versucht wurde. 

In Basic würde man bei einem Fehler 
mit GOTO aus dem Inneren der CASE- 
Anweisung springen. Die auf den 
ersten Blick etwas schwerfällig anmu- 
tende Lösung mit der booleschen Varia- 
blen sorgt jedoch dafür, daß die CASE- 
Anweisung keinen zusätzlichen 
»Fehler-Ausgang« besitzt, der die 
Blockstruktur der zusammengesetzten 
Anweisung verletzen würde. Gerade 
bei großen Programmen sind nämlich 
Sonderbehandlungen mit Sprüngen 
quer durch den gesamten Programm- 
text eine schwer kontrollierbare Fehler- 
quelle. 

Als kleiner Einschub ist in Listing 12 
eine alternative Lösung der Aufgabe in 
dem Programm in Listing 10 gegeben. 
Sie nutzt die Tatsache, daß man in Pas- 
cal auch mit Mengen wie in der Men- 
genlehre in der Grundschule rechnen 
kann. Eckige Klammern ersetzen hier- 
bei die geschweiften Klammern der 
Mathematik. 

[1,2,3,4] und [1..4] bezeichnen die- 
selbe Menge, nämlich die Zahlen von 1 
bis 4. Hingegen bezeichnen [] aber 
auch [3..1] die leere Menge, die keine 
Zahl enthält. 
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PROGRAM TAGESDATUM ( INPUT, OUTPUT); 
CONST TAGE_PRO_MONAT = 30; 
MONATE_PRO_JAHR = 12; 
VAR TAG, MONAT, JAHR: INTEGER; 
BEGIN 


WKRITELNt' Heute ist der 
TAG: = TAG+»1; 
IF TAG» TAGE_PRO_MONAT THEN 
BEGIN 
TAG: =1; MONAT: = MONAT+1; 
IF MONAT> MONATE_PRO_JAHR THEN 
BEGIN 
MONAT: =1; 
END 
END; 
WRITELNt' Morgen ist der 
END. 


. j TAG, v ‘ 


JAHR: = JAHR» 1 


NE STAG, ut 


CASE Auadruck OF 
Fallmarke, 
Fallmarke, 


Fallmarke : 
Fallmarke : 


Fallmarke, 
END 


Fallmarke : 


CASE MONAT OF 
142.37 920228, 10, 12: 
4,6,9, 11 : 
2 : BEGIN 


SCHALTJAHR: «= (JAHR MOD 4) = 0) AND 
(JAHR MOD 100)<>0) OR 
(JAHR MOD 400) =»0); 
IF SCHALTJAHR THEN TAGE_PRO_MONAT: = 29 
ELSE TAGE_PRO_PONAT: = 28 


END, 
END; (* CASE*) 


Mit X IN [1,3,9,27] 

wird geprüft, ob die Zahl X in der Menge 
der Dreierpotenzenbis 27 enthalten ist. 
In der Tabelle 4 auf Seite 30 sind einige 
dieser Operationen mit Mengen darge- 
stellt' (Vereinigungsmenge, Schnitt- 


menge, Differenzmenge, Test auf Teil- 
mengen, Test auf Gleichheit). 

Bei der Besprechung der zusammen- 
gesetzten Anweisungen haben wir in 
der Übersicht (Bild 2) die »Wiederho- 
lungsanweisungen« erreicht. Es gibt in 
Pascal drei verschiedene zusammen- 





Anweisung; 
Anweisung; 


Anweisung 


TAGE_PRO_MONAT: = 31; 
: TAGE_PRO_MONAT: = 30; 


Bild 5. 
Struktogramm 
zum Listing 


Listing 9. 
»Tagesdatum« - 
ein Beisplel zur 

Schachtelung der ein- 
seltigen Auswahl 


°ı JAHR); 


Listing 10. 
Allgemeine 
Form und Bei- 
spiel zur CASE- 
Anweisung 


CASE Ausdruck OF 


Struktogramm 
der CASE- 
Anwelsung 





gesetzte Anweisungen, die Wiederho- 
lungen definieren, von denen sich jede 
für spezielle Anwendungsfälle beson- 
ders eignet. 

Möchte man eine Anweisung so oft 
ausführen, bis eine gewisse Bedingung 
erfüllt wird, bietet sich die »REPEAT- 
Anweisunge« (Listing 13) an. Zwischen 
den Schlüsselwörtern REPEAT und 
UNTIL steht eine beliebige Folge von 
Anweisungen, die Semikola trennen. 
Am Ende der Ausführung dieser Anwei- 
sungen wird der Ausdruck hinter dem 





PROGRAM MINICOMPUTER ( INPUT, OUTPUT), 


ı ERG: REAL, 
: BOOLEAN; 





























WRITELN!' Geben Sie ein Operationszeichen (+,-,*,.,/) und zwei Zahlen ein!'); 


READLNUCH, A, B); 
OK: = TRUE: 
CASE CH OP 
: ERG:= A * B; 
: IP B= O0 THEN 
BEGIN OK: = FALSE, 
WRITELN(' Fehler: 
END 
ELSE 
ERG: = A B; 
: ERG: = A + 
: ERG: = A - 
BEGIN 
OK: = PALSE: 


/ 
B; 
8; 


WRITELN( ' Die Operation ' 


END; 
END; (* von CASE *) 
IP OK THEN 
WRITELN(' Ergebnia: ', ERG) 


END. 


(*2 noch ist kein Fehler aufgetreten *) 


Division durch Null!'’) 


' ist nicht moeglich!') 


Listing 11. Ein »Minicomputer« als welteres Beispiel für CASE 


IP MONAT IN (1,3,5,7,8,10,12) THEN TAGE_PRO_MONAT: = 31 ELSE 


IF MONAT IN (4,6,9,11) 


Listing 12. ELSE 
Das Beispiel aus 
Listing 9, program- 
miert unter 
Verwendung 


von Mengen END: 


REPEAT 
Anweisung; 
Anweisung, 


THEN TAGE_PRO_MONAT: = 30 ELSE 


BEGIN (* hier ist MONAT =» 2 *) 
SCHALTJAHR: = (JAHR MOD 4) = DO) AND 
tC JAHR MOD 100)<>0) OR 
(JAHR MOD 400) =0),; 
IP SCHALTJAHR THEN TAGE_PRO_MONAT: = 29 
ELSE TAGE_PRO_MONAT: = 28 


REPEAT 
WRITELNU' Alles klar? (Ja oder Nein)'); 
READICH) 


UNTIL CH IN L'J','3j','N ,'’n’) 


Anweisung 
UNTIL Bedingung 


Listing 13. Allgemeine Form und Beispiel für REPEAT... UNTIL 


PROGRAMM WURZEL (INPUT, 
CONST EPS = 1, 0E-7; 
VAR X, Y,Z: REAL; 

BEGIN 
WRITEL' Die Quadratwurzel aus '); 
IF X<O THEN 

WRITELN(' 
ELSE 
BEGIN 0" 1. 
Y:.= 2; 
REPEAT 
z:= Y Yım'yay 
UNTIL Y»X; 


oUTPUT); 


ist keine reelle Zah)') 


(* 2. 
REPEAT 
ml 2% 
2: 0.5 *% (Y + X/% 
UNTIL ABS(Y-Z)c= EBPS, 


WRITELNE' ist ', Z) 
D; 


(* Genauigkeit: 


mindestens 7 Nachkommasatellen*) 


READ ( X), 


einen Startwert Z berechnen *) 


Jetzt folgt die eigentliche Berechnung: *) 


(2 dis Abweichung kleiner als Genauigkeit *) 


Listing 14. Berechnung von Quadratwurzeln unter Verwendung von 
REPEAT...UNTIL-Schielfen 


Schlüsselwort UNTIL ausgewertet. Er 
liefert einen booleschen Wert (TRUE 
oder FALSE). Ist die Abbruchbedin- 
gung nicht erfüllt, so wird die Anwei- 
sungsfolge wiederholt. In dem Beispiel 
werden also so lange Zeichen von der 
Tastatur eingelesen, bis der Benutzer 
ein »J« oder ein »N« eingegeben hat. Bei 
näherem Hinsehen können Sie also 
feststellen, daß Mengenoperationen 








auch auf Mengen von Zeichen anwend- 
bar sind: 
CH IN [ui a 'N') 

Eine REPEAT-Schleife benutzt man 
bei Wiederholungen, die in der 


Abbruchbedingung einen Wert benöti- 
gen, der erst im Inneren der Schleife 
ermittelt wird. Als Beispiel ist in Listing 
14 die Berechnung der Quadratwurzel 
für eine reelle Zahl X durch eine Itera- 





tion aufgeführt. Dieses Programm 
berechnet die Wurzel in zwei Schritten, 
die jeweils eine REPEAT-Schleife benö- 
tigen. Im ersten Schritt wird die kleinste 
Zweierpotenz (2,4,8,16....) Z berech- 
net, die quadriert gerade größer als X 
ist. Anschließend wird in der zweiten 
REPEAT-Schleife dieser Startwert Z 
schrittweise modifiziert, bis die Diffe- 
renz zwischen zwei Iterationswerten 
kleiner als die gewünschte Genauigkeit 
EPS ist. 

Viel häufiger als die REPEAT-Anwei- 
sung findet die WHILE-Anweisung Ver- 
wendung (Listing 15 und Bild 8). Hier 
wird die Bedingung nach dem Wortsym- 
bol WHILE vor der Ausführung der 
Anweisung nach DO geprüft. Damit 
besteht insbesondere die Möglichkeit, 
daß diese Anweisung kein einziges Mal 
ausgeführt wird, falls nämlich die Bedin- 
gung bereits beim Eintritt in die Schleife 
den Wert FALSE liefert. 

Soll die WHILE-Schleife, was wohl in 
der Mehrzahl der Fälle zutreffen wird, 
mehrere Anweisungen umfassen, SO 
muß man diese zu einer Anweisungs- 
folge mit BEGIN und END klammern. Ein 
kleines, aber besonders schönes Bei- 
spiel für die Funktionsweise der 
WHILE-Schleife zeigt Listing 16. Hier 
wird der Wert E = NK für natürliche 
Zahlen N und K berechnet. K gibt also 
an, wie oft N mit sich selbst multipliziert 
werden muß, um E zu erhalten. Daher 
wird im Programm die Zählvariable | ver- 
wendet, die von K abwärts gegen O 
zählt. Das Beispiel ist deshalb so ideal, 
da durch die Eigenschaft der WHILE- 
Anweisung, eine Prüfung am Beginn 
der Schleife durchzuführen, auch die 
Sonderfälle korrekt behandelt werden. 
In der Mathematik gilt nämlich: 

No = 1 für alle N 
OK = 0 für alle K#0O 

Durch eine geeignete Wahl der Wie- 
derholungsanweisung kann man sich 
also viele Sonderbehandlungen mit IF- 
Anweisungen ersparen. 

Zum Vergleich ist in Listing 17 je eine 
WHILE- und eine REPEAT-Schleife 
angegeben, die alle Zahlen zwischen A 
und B druckt. Wenn Sie mit diesem Pro- 
gramm experimentieren, werden Sie 
feststellen, daß der einzige Uhnter- 
schied bei der Ausführung darin 
besteht, daß in der REPEAT-Schleife für 
A>Bdie Zahl A gedruckt wird, während 
die WHILE-Schleife in diesem Fall nicht 
in Funktion tritt. 

Für eine Anwendung wie in Listing 17 
wird man jedoch normalerweise die 
dritte Variante der Wiederholungsan- 
weisungen in Pascal benutzen: Die 
FOR-Schleife (Listing 18) findet überall 
dort Anwendung, wo die Anzahl der 
Schleifendurchläufe vor dem Beginn 
der Schleife bereits bekannt ist. Den 
genauen Ablauf der Ausführung soll fol- 
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gendes Beispiel zeigen: 

FOR I:= A TO B DO WRITE(I) 

1. Berechne A und weise den Wert der 
Variablen | zu. 

2. Berechne B und speichere den Wert 
in einer temporären (unsichtbaren) 
Variablen X 

3. IstI>X, so beende die Schleife 

4. Sonst drucke die Zahl | 

5. Erhöhe | um 1 und weiter bei 3 
Die Variable | muß einen skalaren Typ 

besitzen (also zum Beispiel CHAR, aber 

nicht REAL) und mit dem Ergebnistyp 
von A und B verträglich sein. Aus dem 
obigen Schema (1..6) folgt außerdem, 
daß für A>B wie bei der WHILE- 

Schleife keine Zahl gedruckt wird. Man 

könnte in der Schleife die Variable B 

auch beliebig verändern, ohne die 

obere Grenze der Zählvariablen (die ja 
in einer temporären Variablen gespei- 
chert wurde) zu beeinflussen. 


Um rückwärts zu zählen, besteht 
noch die Möglichkeit, eine Variante der 
FOR-Schleife zu verwenden: 

FOR I:= A DOWNTO B DO WRITE(I) 

Die obigen Regeln gelten für diese 
Schleife analog. Mit der FOR-Schleife 
kann man nur in Einerschritten aufwärts 
oder abwärts zählen, andere Schrittwei- 
ten müssen mit einer WHILE-Schleife 
explizit programmiert werden. Im Bei- 
spiel aus Listing 19 wird ein Winkel PHI 
in Schritten von DELTA hochgezählt und 
dabei eine Funktion am Bildschirm 
»gezeichnete. 

Wenn Sie zu der Übersicht in Bild 2 
zurückblättern, werden Sie erkennen, 
daß wir mit der Vorstellung der FOR- 
Schleife praktisch alle Anweisungen in 
Pascal besprochen haben. Zwei funda- 
mentale Eigenschaften von Pascal wur- 
den jedoch noch ausgespart. 

(1) Zusammengesetzte Typen er- 
möglichen es, nicht nur mit einzelnen 
Zahlen und Zeichen, sondern sogar mit 
hierarchisch aufgebauten und auch 
veränderlichen Datenstrukturen zu 
arbeiten. 

(2) Neben den bereits vorgestellten 
Standard-Prozeduren READ, READLN, 
WRITE und WRITELN gibt es noch eine 
Vielzahl an vordefinierten Prozeduren 
und Funktionen, die in jeder Implemen- 
tation der Sprache Pascal vorhanden 
sind. Viel bemerkenswerter ist jedoch 
die Möglichkeit, beliebige Teile eines 
Programmes als Prozeduren und Funk- 
tionen zu definieren, die über 
bestimmte Schnittstellen mit ihrer 
»Umwelt« (Prozeduren oder Hauptpro- 
gramm) kommunizieren können. 

In den folgenden Beiträgen werden 
diese beiden wichtigen und interessan- 
ten Gebiete ausführlich behandelt, 
wobei gleichzeitig das bisherige Wis- 
sen über die einfachen Typen und die 
Anweisungen in Pascal angewandt und 
vertieft wird. (Florian Matthes/ev) 


na = 





WHILE Bedingung DO 
Anweiaung 





WHILE X>=1.0 DO 
X: = 209202.:0: 


Listing 15. Allgemeine Form und Beispiel für die WHILE...DO-Schleife 


X“ = X/20 


PROGRAM HOCH ( INPUT, OUTPUT), 
VAR I,N,E,K: INTEGER; 
BEGIN 
READLNUN,K); 
IF (N<O) OR (K«<0) THEN 
WRITELNU' ungueltige Eingabe!') 
ELSE 
BEGIN 
E: =1; I:=K; 
WHHILE I»>Oo DO 
BEGIN 
E:= EAN; 
Il:- 1-1 
END; 
WRITELNIN, ' 
END 
END. 


Listing 16. Ein Demo-Programm unter 
Verwendung der WHILE...DO-Schleife 


FOR Variable: = Ausdruck TO Ausdruck DO 


Anweisung 


FOR Variable: = Ausdruck DOWNTO Auadruck DO 


Anweisung 


» => 


Struktogramm 
der WHILE- 
Anweisung 


PROGRAM ZUM_VERGLEICH (INPUT, OUTPUT); 
VAR I, A, B: INTEGER; 
BEGIN 
READLN(A,B); 
WRITE(' Mit REPEAT:'); 
I: A; 
REPEAT 
WRITE(UT); 
I:» I+1 
UNTIL I»B; 
WRITELN; 


WRITE(' Mit WHILE:'); 
I: A; 
WHILE Ic=B DO 
BEGIN 
WRITE(T); 
Iıe Iri 


Listing 17. 
Erams Ein Programm zum 
WRITELN Vergleich zwischen 
END WHILE und REPEAT 


FOR I:= 1 TO 1000 DO 
SUMME: = SUMME + 1 / 1 


FOR I: = 1000 DOWNTO 1 DO 
SUMME: = SUMME + 1 / 1 


Listing 18. Allgemeine Form und Belsplel für die FOR-Schlelfe 


PROGRAM SCHWINGUNG (INPUT, OUTPUT), 


(®“ ZEICHE DIE FUNKTION FÜLPHI) = EXP(-PHI/PI)N “ SIN (PHI) %) 


CONST P]I = 3.1415926, 
MAXZEILEN = 40; 
MITTE = 40, 

VAR PHI,Y, DELTA : REAL: 
SPALTE, ZEILE: INTEGER, 


BEGIN 
DELTA: = 6*PI / MAIZEILEN 
FOR ZEILE: = QO TO MAXZEILEN DO 
BEGIN 
PHI: = DELTA * ZEILE; 


(% Laenge der Ausgabe in Zeilen “) 
(2 Mitte eines 80-Zeichen Bildachırma*) 


(* AKTUELLER WINKEL *) 
Y := EXPt-PHI/PI)*SINOPHI), 


SPALTE: = MITTE + ROUND: MITTE * 9%; 


WRITELNU'®': 
END: 
END. 


SPALTE); 


{®2 drucke Stern in Spalte SPALTE *) 


Listing 19. Schwingungs-Berechnung mit FOR-Schlelfe 
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Mit diesem Artikel steigen wir 
voll in die eigentliche Program- 
mierung mit Pascal ein. Prozedu- 
ren, Funktionen und Datentypen 
heißen die Stichworte. 


ie steigt man am einfach- 
sten in die Programmierung 
ein? Nun, vermutlich mit 
einem Programm zum Ausprobieren 
und Experimentieren. Das Beispielpro- 
gramm in Listing 1 liest einen Text von 
der Tastatur ein und zeichnet ein einfa- 
ches Balkendiagramm wie in Bild 1, das 
die Häufigkeit jedes Zeichens angibt. 
Wir möchten Sie bitten, vor dem Weiter- 
lesen einen längeren Blick auf das 
Listing zu werfen, um einerseits die 
bereits im einführenden Artikel bespro- 
chenen Sprachelemente (zum Beispiel 
die FOR-Schleife) zu verstehen und 
andererseits einen Überblick über die 
neuen Probleme zu bekommen. 

Der Kern des Programms besteht 
darin, für jeden Buchstaben einen Zäh- 
ler zu führen, der bei jedem Auftreten 
des Buchstabens im eingelesenen Text 
erhöht wird. Natürlichmöchte mannicht 
für jeden Buchstaben eine Zählvariable 
deklarieren und dann in einer riesigen 
CASE-Anweisung jeden einzelnen Zäh- 
ler erhöhen. Statt dessen vereinbart 
man ein ARRAY (Feld, Tabelle) von Zäh- 
lern: 

VAR Z: ARRAY ['0'.. 
OF INTEGER; 

Ein Array ist eine Variable, über deren 
Namen mehrere Werte des gleichen 
Typs angesprochen werden. Das Array 
Z besitzt für jedes Zeichen zwischen 
»0« und »Z« einen Wert vom Typ INTE- 
GER. Auf die einzelnen Werte greiftman 
durch Nennung des Array-Namens, 
gefolgt von einem Index in eckigen 
Klammern, zu: 

2.0. ]|2= 13; 
WRITELN (Z['X'")); 
Z[CH]:= Z[CH] + 1 

Die letzte Zuweisung zeigt eine wich- 
tige Eigenschaft von Arrays: Man kann 
als Index eine Variable (hier CH) oder 
einen beliebig komplexen Ausdruck 
verwenden. Für Basic-Programmierer 
ungewohnt ist die Eigenschaft von Pas- 
cal, nicht nur Zahlen, sondern beliebige 
geforderte Datentypen als Index zuzu- 
lassen. 

Um alle Zähler in Z zurückzusetzen, 
kann man also folgende FOR-Schleife 
verwenden: 

EORzCH>= "0'-TO ?2" .DO.:ZECH] :=°0; 

Nach diesem speziellen Beispiel sol- 
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len Sie auch die allgemeinen Regeln für 
Arrays in Pascal kennenlernen: 

1. Ein Array muß wie jede andere 
Variable im Variablendeklarationsteil 
vereinbart werden. 

2. Ein Array ist ein zusammengesetz- 


PROGRAM HAEUFIGKEIT (INPUT, OUTPUT), 








Programmieren mit Pascal 


ter Typ, der durch zwei Typen beschrie- 
ben wird: Den skalaren Indextyp und 
den beliebig wählbaren Elementtyp. Z 
hat also den Indextyp »’0' .. Ze und den 
Elementtyp INTEGER. 

3. Beim Indizieren muß der Typ des 


(“A STATISTIK DER BUCHSTABENHAEUFIGKEIT IN EINEM TEXT *) 


CONST VON = '0', BIS = '?', 
ENDEZEICHEN = '@'; 
BILDSCHIRMBREITE = 80, 


TYPE 
VAR 2 : ZAEHLERFELD. 


PROCEDURE LOESCHEN{ VAR A: 
(2 ALLE ZAEHLER ZURUECKSETZEN *) 


VAR CH: CHAR, 
BEGIN 

FOR CH: =» VON TO BIS DO AUCH]: =-0O 
END; (*% LOESCHEN *) 


PROCEDURE ZAEHLEN (VAR A: 


ZAEHLERFELD), 


ZAEHLERFELD); 


(“* 80 ZEICHEN PRO 7EILE AM BILDSCHIRM *) 


ZAEHLERFELD = ARRAYIVON.. BIS) OF INTEGER.: 


Beinestinise BEGINN DER PROZEDUREN *) 


(® TEXT VON DER TASTATUR BIS ENDEZEICHEN EINLESEN UND ZAEHLER IN A ERHOEHEN *) 


VAR CH: CHAR: 
BEGIN 
WRITELN(' GEBEN SIE JETZT BITTE EINEN TEXT EIN. DER MIT ', ENDEZEICHEN, 
“ ENDET‘): 
REPEAT 
READI CH); 
IP CH IN I VON. . BIS) THEN 
ALCHI:= ALCH) «+ 1; 
UNTIL CH = ENDEZEICHEN, 
WRITELN 
END; (4 ZAEHLEN *) 
PROCEDURE STATISTIK (A: ZAEHLERFELD),; 
(*2 DRUCKE FUER JEDEN BUCHSTABEN EINEN BALKEN. DER DIE HAEUFIGKEIT DES 2) 


(* ZEICHENS ANGIBT. 


VAR CH : CHAR, 
MAX : INTEGER:; 
HOEHE: INTEGER; 


PROCEDURE BALKEN (N: INTEGER); 


“) 


(® ZEICHNE EINEN HORIZONTALEN BALKEN MIT N ZEICHEN *) 


BEGIN 
WHILE NO DO 
BEGIN 
WRITEU' U): 
END; 
WRITELN; 
END. (* BALKEN *) 


N: = N-1 


BEGIN (* HIER BEGINNT DER ANWEISUNGSTEIL DER PROZEDUR STATISTIK * 
WRITELN(' STATISTIK DER BUCHSTABENHAEUFIGKEITEN: '),; 


(® BESTIMME ZUNAECHST DEN MAXIMALEN ZAEHLERSTAND. *) 


MAX. = AL VON]; 
FOR CH: = SUCC( VON TO BIS DO 
IE AI CHI>MAX THEN MAX: = AUCH): 
(“2 ZEICHEN JETZT DIE BALKEN: *) 
FOR CH: =VON TO BIS DO 
BEGIN 
WRITEICH, ' 1"); 


HOEHE: = ROUND ALCHI * (BILDSCHIRMBREITE-3)/MAX), 
(* DAMIT NIMMT DER HOECHSTE BALKEN DIE GESAMTE BILDSCHIRMBREITE EIN ”) 


BALKEN ( HOEHE): 
END: 
END; (* STATISTIK % 


BEGIN 
LOESCHEN (2), 
ZAEHLEN (7), 
STATISTIK(Z); 
END. 


Listing 1. Programm »Häufigkelt« 
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Ausdruckes in eckigen Klammern mit 
dem bei der Deklaration vereinbarten 
Indextyp verträglich sein. »2[5]:=0« 
wäre nach der oben angegebenen De- 
klaration von Z nicht zulässig, da die 
Zahl 5 kein Zeichen ist. Außerdem ist 
auch die Zuweisung »Z['"]:;=3« nicht 
erlaubt, da das Zeichen '! nicht im Inter- 
vall »0« bis »Z2« liegt. 

Wenn Sie die Deklaration der Varia- 
blen Zim Beispiel 24 untersuchen, wer- 
den Sie feststellen, daß diese in drei 
Schritten erfolgte: Zunächst wurden 
zwei Konstanten 
CONST VON=U0'; BIS='Z'; 
eingeführt. Mit diesen beiden Konstan- 
ten erfolgte im nächsten Schritt eine 
Typendeklaration: 

TYPE ZAEHLERFELD = ARRAY 
[VON .. BIS) OF INTEGER; 

Nach dem Schlüsselwort TYPE wird 
ein Name genannt, dem nach einem 
Gleichheitszeichen eine Typangabe 
folgt. Im dritten Schritt kann in der Varia- 
blendeklaration der Typbezeichner 
ZAEHLERFELD benutzt werden, um 
ein Array mit den Indexgrenzen VON 
und BIS und dem Elementtyp INTEGER 
zu definieren. 

VAR A,B,FELD: ZAEHLERFELD; 
ZAEHLER: ZAEHLERFELD; 

Neben der Einsparung von Schreib- 
arbeit erhöhen Typnamen die Lesbar- 
keit von Programmen. Listing 2 zeigt 
einige Typdeklarationen und anschlie- 
Bend die Anwendung dieser Typnamen 
in weiteren Typ- und Variablendeklara- 
tionen. 


Jetzt werden Sie wahrscheinlich alle 
Anweisungen mit den Array-Variablen A 
und Z verstehen. Neben der Verwen- 
dung von Arrays und Typnamen enthält 
das Programm »Häufigkeit« (Listing 1) 
noch ein weiteres neues Sprachele- 
ment von Pascal. Sie finden in dem Pro- 
gramm viermal das Schlüsselwort PRO- 
CEDURE, das eine Prozedurdeklara- 
tion einleitet. Nach diesem Schlüssel- 
wort folgt der Name der Prozedur, über 
den die Prozedur aufgerufen wird. Der 
eigentliche Anweisungsteil des Pro- 
grammes (nach dem letzten BEGIN) 
besteht also nur aus den folgenden drei 
Prozeduraufrufen: 

LOESCHEN (Z); 
ZAEHLEN (2); 
STATISTIK(Z); 

Das Programm besteht also aus drei 
voneinander unabhängigen Programm- 
teilen zum Rücksetzen der Zähler, zum 
Einlesen des Textes und der Ausgabe 
der Statistik. Jeder Prozedur wird in 
Klammern das Array Z als aktueller 
Parameter übergeben. 

Wie sieht aber eine Prozedurdeklara- 
tion aus? Prozedurdeklarationen müs- 
sen am Ende des Vereinbarungsteils 
(also hinter den Konstanten, Typ- und 
Variablendeklarationen) stehen. Die 
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Bild 1. Ergebnisausdruck des Programms »Häufigkeit« (Ausschnitt) 


Prozedurdeklaration selbst besteht aus 
drei Teilen: 

1. Der Prozedurkopf enthältnach dem 
Namen der Prozdur bei Bedarf in Klam- 
mern eine Liste der formalen Parame- 
ter: 

PROCEDURE LOESCHE 
(VAR A: ZAEHLFELD); 

Die Prozedur LOESCHEN muß also 
mit einer Variablen vom Typ ZAEHLER- 
FELD aufgerufen werden. Die Variable 
besitzt innerhalb der Prozedur den 
Namen A. Beinhaltet eine Prozedur 
mehrere Parameter, so müssen die 
aktuellen Parameter in der Reihenfolge 
der formalen Parameter angegeben 
werden. Der Aufbau der Parameterliste 
kommt später genauer zur Sprache. 

2. Nach dem Prozedurkopf folgen alle 
Deklarationen, wie sie auch beim 
Hauptprogramm möglich sind. Das 
heißt, daß eine Prozedur wie ein eigen- 
ständiges Programm mit eigenen Kon- 
stanten, Typen, Variablen und wie- 
derum Prozeduren ausgestattet sein 
kann. So besitzt zum Beispiel die Proze- 
dur LOESCHEN eine Variable CH vom 
Typ CHAR, die nur innerhalb der Proze- 
dur gültig ist, und damit insbesondere 
nicht von Anweisungen im Hauptpro- 
gramm oder in anderen Prozeduren ver- 
ändert werden kann. Die Prozedur STA- 
TISTIK enthält selbst eine Prozedurde- 
klaration (BALKEN). 

3. Schließlich folgt zwischen den 
Schlüsselworten BEGIN und END der 
Anweisungsteil der Prozedur. Es ist 
üblich, nach dem letzten END in Kom- 
mentarklammern den Namen der Pro- 
zedur zu nennen, die an dieser Stelle 
endet, damit man bei großen Program- 
men jeden Anweisungsteil leicht dem 
Prozedurkopf zuordnen kann. 

Im Beispielprogramm »Häufigkeit« 
werden also nacheinander die Anwei- 
sungstele der Prozeduren LOE- 
SCHEN, LESEN und STATISTIK ausge- 
führt, wodurch nacheinander die Zähler 
Z gelöscht, erhöht und schließlich gra- 
fisch dargestellt werden. 

Jetztistes.an der Zeit, daß Sie etwas 
mehr über die Sichtbarkeitsregeln von 
Namen in Pascal erfahren. Sie legen 
fest, welche Namen in einer Prozedur 








PROGRAM TYPEN (INPUT, OUTPUT); 


CONST ANZAHL_AUFGABEN = 400; 


TYPE GROSSE _ZAHL = REAL, 
RLEINE_ZAHL = INTEGER: 
ZEICHEN = CHAR; 
ERGEBNIS = BOOLEAN; 
EINKONMEN = ARRAY (1970..1986] 
OF GROSSE_ZAHL; 
ZEILE = ARRAY (1..801 OF 
CHAR: 
TESTBOGEN = ARRAY [1.. ANZAHL_ 
AUFGABEN) OF ERGEBNIS, 


VAR A,B,C 
CH1,CH2 
UEBERSCHRIPT 
DEUTSCHLAND, 
MEDIZINERTEST 


: GROSSE_ZAHL; 

: ZEICHEN; 

: ZEILE: 
ENGLAND : EINRONMEN:. 

: TESTBOGEN; 


BEGIN 
END. 


Listing 2. Beispiele für 
Typdeklarationen 





zur Anwendung kommen. Zunächst 
noch eine Definition: Ein Block ist eine 
Prozedur oder das Hauptprogramm 
selbst. 

In einem Block sind alle die Namen 
sichtbar (also gültig), die innerhalb die- 
ses Blockes deklariert wurden. Außer- 
dem noch diejenigen, die in einem 
»umfassenden« Block deklariert wur- 
den. Wurde ein Name sowohl in einem 
umgebenden Block als auch im Block 
selbst deklariert, so ist nur die innere 
Deklaration sichtbar. 

Variablen, die in einer Prozedur fest- 
gelegt wurden, heißen lokale Variablen 
dieser Prozedur. Benutzt jedoch eine 
Prozedur Variablen, die in einem umge- 
benden Block deklariert wurden, so 
nennt man diese global. 

Diese Regeln soll das Programm 
»Sichtbarkeit«e in Listing 3 verdeutli- 
chen. Zur Unterstützung ist in Bild 2 die 
Schachtelung der Blöcke grafisch dar- 
gestellt. Die Prozedur P1 besitzt drei 
lokale Namen, nämlich den Parameter 
V1, die Konstante K4 und die Variable V 
2. Durch die Deklaration des Namens 
»V1:CHAR« in P1 ist der Name »V1: Ti« 
aus dem Hauptprogramm in P1 nicht 
sichtbar. Andererseits sind die Namen 
von P1 nicht in P2, P21 oder dem 
Hauptprogramm sichtbar. 

Prozedur P21 zeigt auch, daß Namen 
über mehrere Blöcke hinweg sichtbar 
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sind: So in P21 der Name K2 aus dem 
Hauptprogramm, da P21 in der Proze- 
dur P2 enthalten ist, die selbst zum 
Hauptprogramm gehört. 

Für die Praxis bedeutet dies, daß man 
in einer Prozedur Namen ohne Rück- 
sicht auf die »Umgebung« deklarieren 
kann. Tatsächlich versucht man sogar, 
nur in Ausnahmefällen auf globale Varia- 
blen zuzugreifen und alle Werte als 
Parameter an die Prozeduren zu über- 
geben. Damit kann man später die Pro- 
zedur in einem völlig anderen Pro- 
gramm verwenden, ohne daß Namens- 
konflikte auftreten. 

Nach diesem etwas theoretischen 
Abschnitt soll eine Reihe von Beispie- 
len diese Regeln illustrieren und außer- 
dem verschiedene Typen von Parame- 
tern vorstellen. Das erste Beispiel 
(Listing 4) zeigt eine Prozedur, die eine 
INTEGER-Zahl als eine Hexadezimal- 
Zahl anzeigt. Zur Anzeige wird die vier- 
stellige Zahl zunächst in zwei Byte zer- 
legt, deren beide Hexadezimal-Stellen 
schließlich mit der Prozedur PRINTDI- 
GIT angezeigt werden. Klar zu erken- 
nen ist hier die Schachtelung der drei 
Prozeduren, wobei jede einen Parame- 
ter X vom Typ INTEGER besitzt. 

Die Prozedur SWAP in Listing 5 
besitzt zwei Parameter des Typs INTE- 


PROGRAM SICHTBARKEIT (OUTPUT): 
CONST K1 = 3; K2 = 'C',; 
TYPE Ti = INTEGER, T2 = REAL; 
VAR NT 2 SEIS 
PROCEDURE Pi (VAR Vi: CHAR), 


CONST K4 = 23.4, . 
VAR V2 : INTEGER: 


BEGIN 


(* HIER SIND POLGENDE NAMEN SICHTBAR: 


CONST K1I = 3; K2 = 'C', 
TYPE Ti = INTEGER:. T2 = REAL; 
VAR V1 : CHAR: 

INTEGER, n) 


PROCEDURE P2, 
VAR V2: REAL; 


PROCEDURE P21; 
CONST Ki = '?2'; 


BEGIN 


(*2 HIER SIND FOLGENDE NAMEN SICHTBAR: 


CONST K1 = ‘2',;, K2 =» 'C'; 
TYPE Ti = INTEGER: T2 = REAL; 
VAR v1 T%5 
V2 : REAL, “) 
END; {° p21 ®) 


BEGIN (* ANFANG DES ANWEISUNGSTEILS VON Pi *) 
(* HIER SIND FOLGENDE NAMEN SICHTBAR: 


CONST K1 = 3, R2 = '‘C', R3 = 
TYPE Ti = INTEGER, T2 = REAL, 
VAR vie TV; 
V2 : REAL; 2) 
END, (* P2 %) 


BEGIN 


(#2 HIER SIND POLGENDE NAMEN SICHTBAR: 


CONST K1 » 3; K2 = 'C', K3 =" 
TYPE Ti = INTEGER, T2 = REAL; 
VAR v1: T1; 
v2 : REAL; “) 
END. 


Listing 3. Ein Beispiel für Sichtbarkeitsregeln 


GER. Die Prozedur tauscht den Inhalt 
dieser beiden Parameter aus. 

Listing 4 und 5 zeigen die beiden in 
Pascal vorhandenen Typen von Para- 
metern. Wird ein formaler Parameter im 
Prozedurkopf mit dem Schlüsselwort 
VAR gekennzeichnet, so nennt man ihn 
einen Variablenparameter. In diesem 
Fall muß der aktuelle Parameter eine 
Variable des angegebenen Typs sein. 
Der Aufruf 
SWAP(5,6) 
wäre also nicht zulässig. Innerhalb der 
Prozedur bewirkt jede Zuweisung an 
einen Variablenparameter eine Ände- 
rung des Wertes der Variablen, die als 
aktueller Parameter übergeben wurde. 
Wurde also zum Beispiel die Prozedur 
SWAP mit den Variablen X und Y aufge- 
rufen, so wird durch die Zuweisung 
A:=B tatsächlich der Variablen X der 
Wert der Variablen Y zugewiesen. 

Die Parameter der Prozedur PRINT- 
HEX sind hingegen Wertparameter. 
Beim Aufruf einer solchen Prozedur 
werden die aktuellen Parameter, die 
nicht unbedingt Variablen sein müssen, 
in lokalen Variablen der Prozedur 
gespeichert. Bei der Ausführung der 
Prozedur wird nur auf diese Kopie des 
aktuellen Parameters zugegriffen, so 
daß insbesondere eine Zuweisung an 


"ROGRAM WERTPARAMETER ( INPUT, 


VAR X: 


PROCEDURE PRINTHEX (X: 


INTEGER; 





einen Wertparameter niemals eine 
Anderung im aufrufenden Block 
bewirkt. 

Ist Ihnen der Unterschied noch nicht 
völlig klar, so sollten Sie das Schlüssel- 
wort VAR aus dem Prozedurkopf von 
SWAP löschen und das Programm neu 
compilieren. Nach der Rückkehr aus 
der Prozedur werden dann die Werte 
der Variablen X und Y im Hauptpro- 
gramm unverändert sein. 

Jeder Parameter wird wie eine Varia- 
ble mit der Angabe seines Typs nach 
einem Doppelpunkt deklariert. Dabei ist 


PROGRAM VARIABLENPARAMETER (INPUT, 
OUTPUT); 
VAR X,Y: 


INTEGER, 


PROCEDURE SWAP (VAR A,B: INTEGER),;, 
(* TAUSCHE DEN INHALT VON A UND B *) 
VAR H: INTEGER.: 
BEGIN 
H: =A,; 
END: 


A:=B; B: =H 
(* SWAP *) 


BEGIN 
X: 3, Y:i= 4; 
SWAP (X, Y; 
WRITELN (X, Y); 
END 


Listing 5. Ein Beispiel für die 
Verwendung von Wert-Parametern 





OUTPUT): 


INTEGER), 


(® DRUCKE GANZE ZAHL X ALS HEXADEZIMALZAHL IM FORMAT 


SIXXXı ©) 


PROCEDURE PRINTBYTE (X: 


INTEGER); 


(* DRUCKE ZAHL ZWISCHEN O UND 255 ALS BYTE IM FORMAT 


X) 


PRINTDIGIT (X: 


INTEGER),; 


(* DRUCKE HEXADEZIMALE ZIFFER *) 


BEGIN 


IP X>9 THEN 


WRITEUCHRUX-10+ORDE' A'))) 


ELSE 


WRITE) 


END, (* PRINTDIGIT *% 


BEGIN 


PRINTDIGITCX DIV 16); 
PRINTDIGIT(UX MOD 16); 


BEGIN 
WRITE(U'$'),; 


(%* PRINTBYTE *) 


PRINTBYTE(X DIV 256); 
PRINTBYTE(X MOD 256); 


END; 


(* PRINTHEX *) 


BEGIN (* HAUPTPROGRAMN *) 


WRITELN!' Geban Sie positive ganze Zahlen ein: '); 


READY, 
WHILE X>O0 DO 
BEGIN 


WRITELNE' = 


READ( X) 
END; 
END. 


PRINTHEX(X); 


Listing 4. Umrechnung dezimal nach hexadezimal 





PROGRAM VEKTOROPERATIONEN ( INPUT, OUTPUT); 


CONST N « 3; 
IM VEKTOR *) 


TYPE VERTOR = ARRAYLN..3I OP REAL; 


VAR KK Z: 


SKALAR: 


VEKTOR, 
INTEGER, 


PROCEDURE HOLEN! VAR V: VEKTOR); 
(* VEKTOR MIT N ROMPONENTEN EINLESEN *) 


VAR I: INTEGER, 


BEGIN 
FOR I:= 1 TO N DO READ(VITIND;, 
READLN; 

END: (* HOLEN *) 


PROCEDURE DRUCKEN V: VEKTOR); 
(* VERTOR MIT N KOMPONENTEN DRUCKEN *) 


VAR I: INTEGER: 


BEGIN 
FOR I:= 1 TO N DO WRITE(VII]: 8); 
WRITELN, 

END, (= DRUCKEN *) 


zu beachten, daß in der Parameterliste 
nur Typnamen auftreten dürfen. Diese 
müssen Sie also eventuell zunächst 
(außerhalb der Prozedur) im Typverein- 
barungsteil bestimmt haben. Statt 
PROCEDURE DRUCKE(X:ARRAY [1..2] 
OF CHAR); 

muß man schreiben 

TYPE T: ARRAY [1..2] OF CHAR; 
PROCEDURE DRUCKE(X: T); 


Es gibt keinerlei Beschränkung für 
die Typen der Variablen- oder Wertpara- 
meter. Dies soll das Beispiel in Listing 6 
verdeutlichen. In der Mathematik würde 
man ein Array mit N Elementen des Typs 
REAL als einen Vektor reeller Zahlen 
bezeichnen. Mit Vektoren kann man wie 
mit »normalen« Zahlen rechnen. Sind X 
und Y zwei Vektoren und S eine reelle 
Zahl, so kann man zum Beispiel X+Y 
und S*X berechnen. Damit Sie auch mit 
diesen Operationen ein wenig experi- 
mentieren können, sind neben den Pro- 
zeduren ADDIEREN und MULTIPLIZIE- 
REN noch die Prozeduren HOLEN und 
DRUCKEN zur Ein- und Ausgabe von 
Vektoren vorhanden. 

An diesen vier Prozeduren erkennen 
Sie gut den Unterschied zwischen 
Wert- und Variablenparametern. Nur 
wenn über einen Parameter ein Ergeb- 
nis oder eine Eingabe zurückgeliefert 
werden soll, verwendet man Variablen- 
parameter, ansonsten Wertparameter. 
Dadurch ist während der Ausführung 
der aktuelle Parameter gegen (unbeab- 
sichtigtes) Überschreiben geschützt. 

Es gibt jedoch einen weiteren Fall, in 
dem man mit Variablenparametern ar- 
beitet, obwohl keine Ergebnisse zu- 
rückgeliefert werden sollen. Werden 
sehr große Variablen an ein Unterpro- 
gramm übergeben, so existiert jeder 
Parameter im Speicher des Rechners 
doppelt. Einerseits wird der Wert der 


PROCEDURE ADDIEREN (A,B: 


(X C=ı + B. DIE 


(*2 LAENGE EINES VEKTORS = ANZAHL DER ELEMENTE 


VAR I: INTEGER; 


BEGIN 


VEKTOR, VAR C: VEKTOR); 
ADDITION ERFOLGT KOMPONENTENWEISE *) 


FOR I:= 3 TO N DO CII):= AUT) + BEI 


END, 


PROCEDURE MULTIPLIZIEREN (S: 


(it C=5S "r A. JEDE 


VAR I: INTEGER, 
BEGIN 
FOR 
END, (* MULTIPLIZI 
BEGIN 
WRITE('X ="); HOLE 
WRITEU’Y =');, HOLE 
ADDIERENUX,Y, 2), 


WRITEU'X e Y ="); 
WRITEU'P ="); READ 
MULTIPLIZIEREN (SR 
WRITEU'P a X =), 

END. 


Listing 6. Vektoroperationen In Pascal 


Variablen im aufrufenden Programm 
gespeichert und zusätzlich beim Aufruf 
der Prozedur als lokale Variable. Für die 
Praxis können Sie sich also merken, 
daß Sie große Arrays (insbesondere auf 
Mikrocomputern mit ihrem kleinen 
adressierbaren Speicherraum) am 
besten als Variablenparameter überge- 
ben. Bei diesen wird nämlich nur eine 
Adresse (also nur wenige Bytes) an die 
Prozedur übergeben, die die Position 
des aktuellen Parameters im Speicher 
bezeichnet. In der Prozedur wird dann 
jeder Zugriff auf diesen Parameter indi- 
rekt über die Adresse ausgeführt. 

Wegen dieser unterschiedlichen For- 
men der Übergabe bezeichnet man den 
Aufruf mit Wertparametern als »call by 
value« und den Aufruf mit Variablenpa- 
rametern als »call by reference«. 

Zu diesem Themengebiet der »Tech- 
nik hinter den Kulissen« gehört auch die 
Verwaltung des Speichers bei einem 
Pascal-Rechner. Neben den (statisti- 
schen) Sichtbarkeitsregeln für die 
Namen von Variablen, muß auch die 
(dynamische) Gültigkeit der Werte von 
Variablen Beachtung finden. 

Beim Eintritt in einen Block ist der 
Wert jeder Variablen, die nicht Parame- 
ter einer Prozedur oder Funktion ist, 
undefiniert. 

So ist zum Beispiel am Programman- 
fang jede Variable unbestimmt. Sie 
besitzt also nicht etwa wie in Basic den 
Wert Null. Bei jedem neuen Aufruf einer 
Prozedur verhält es sich mit allen loka- 
len Variablen bis auf die Parameter 
ebenso. Man kann also nicht davon aus- 
gehen, daß die Variablen die Werte 
ihres letzten Aufrufes beibehalten. 

Vielleicht interessiert es Sie, die Hin- 
tergründe dieser Regel zu erfahren. Bei 
der Übersetzung eines Pascal-Pro- 
gramms bestimmt der Compiler für jede 
Prozedur den Speicherplatzbedarf für 





(* ADDIEREN *) 


REAL, A: VEKTOR. VAR C: VEKTOR) 
KOMPONENTE WIRD MIT S MULTIPLIZIERT *) 


I:= 1 TO N DO CIl}:=e S * AUT) 


EREN A) 


NULX; 
NULY; 


DRUCKEN( 2), 
LNUSKALAR),; 
ALAR,X, 2); 
DRUCKEN( 2); 





alle lokalen Variablen. Innerhalb dieses 
Speichers weist er jeder Variablen eine 
feste Position zu. Jedoch bleibt die 
absolute Lage des Speicherblockes im 
Computer unbestimmt. 

Erst während der Ausführung wird 
beim Aufruf jeder Prozedur der Spei- 
cherblock für die lokalen Variablen 
reserviert. Umgekehrt wird beim Ende 
der Ausführung einer Prozedur ihr 
gesamter Speicherblock wieder freige- 
geben. Unterprogramme haben aber 
bekanntlich die Eigenschaft, das zuletzt 
aufgerufene Unterprogramm als erstes 
wieder zu verlassen. Ein Beispiel: 

A ruft B 
Beruft2G 
C ruft D 
D kehrt zurück zu C 
C kehrt zurück zu B 

B kehrt zurück zu A 
Ende von A 

Deshalb werden die Variablen eines 
Pascal-Programms auf einem Stack 
(Stapelspeicher) verwaltet. 

Betrachten wir das Programm in 
Listing 7. Es besteht aus zwei Prozedu- 
ren, die in verschiedener Reihenfolge 
aufgerufen werden (ansonsten aber 
nicht viel Sinnvolles erledigen). Wir wol- 
len nun nach jedem Schritt einen Blick 
auf den Speicher des Rechners werfen 
(Bild 3): 

Zu Programmbeginn (1) ist der ge- 
samte Speicher frei. Beim Eintritt in das 
Hauptprogramm wird zunächst Platz für 
die Variable M des Hauptprogramms 
geschaffen (2). Nun erfolgt der Aufruf 
der Prozedur P1, die ihrerseits Platz für 
die Variable Li benötigt (3). Nach der 
Rückkehr aus Pi kann dieser Platz 
sofort wieder freigegeben werden (4). 
Der Aufruf P2(FALSE) erfolgt in densel- 
ben Schritten (5 und 6), wobei jedoch 
Platz für zwei Variablen (L2 und auch 
P1) benötigt wird. 











Sie sehen schon jetzt, daß derselbe 
Speicherplatz sowohl für die Variablen 
von Pi als auch von P2 verwendet wird. 
Beim Aufruf von P2(TRUE) (7), ergibt 
sich zunächst der Zustand von (5), je- 
doch wird außerdem in P2 noch P1 auf- 
gerufen, so daß sich schließlich eine 
Speicherverteilung wie in (8) ergibt. 
Offensichtlich liegt beim zweiten Aufruf 
von P1 die Variable L2 an einer anderen 
absoluten Adresse. Bei der Rückkehr 
aus P1(9) und P2(10) werden wieder 
die lokalen Variablenbereiche freige- 
geben. 

Der Stack »wächst« also von unten 
nach oben und nimmt von dort wieder 
nach unten ab, wobei er immer einen 
zusammenhängenden Speicherbereich 
bildet. Daß Ihr Rechner zur Laufzeit der 
Programme einen Stack verwaltet, mer- 
ken Sie spätestens dann, falls bei einem 
Prozeduraufruf kein Platz mehr für die 
lokalen Variablen vorhanden ist. Das 
quittiert das Programm gewöhnlich mit 
der Fehlermeldung »stack overflowe«. 


Funktionen 


Inzwischen sind Sie mehrmals auf die 
Formulierung »Prozedur« oder »Funk- 
tion« gestoßen, ohne daß Sie Näheres 
über Funktionen in Pascal erfahren 
haben. Eine Funktion ist eine spezielle 
Form einer Prozedur, die zusätzlich 
noch einen Wert als Ergebnis liefert. In 
der Mathematik gibt es zum Beispiel die 
Maximumfunktion, die das Maximum 
von zwei Zahlen liefert, so daß gilt: 
max [3,4] = 4 
3 + max| O,-7] = 3 

Man kann also das Ergebnis der 
Funktion auch in aritnmetischen Aus- 
drücken verwenden. All diese Möglich- 
keiten gelten bei der Verwendung von 
Funktionen in Pascal, die einige Stan- 
dardfunktionen der Mathematik nach- 
bilden. Dabei verbirgt sich unter der 
Funktion HOCH (Listing 8) die in Pascal 
standardmäßig nicht vorhandene Me- 
thode, um Ahoch B für beliebige Zahlen 
zu berechnen. 

Bei der Definition unterscheidet sich 
eine Funktion von einer Prozedur nur 
durch den Funktionskopf. Hier ersetzt 
das Schlüsselwort FUNCTION das 
Wortsymbol PROCEDURE. Außerdem 
wird zusätzlich am Ende der (eventuell 
leeren) Parameterliste nach einem Dop- 
pelpunkt der Name des Typs angege- 
ben, zu dem das Ergebnis der Funktion 
gehört. Somit lautet der Funktionskopf 
der Funktion MAX, die das (reelle) Maxi- 
mum zweier reeller Zahlen berechnet, 
folgendermaßen: 

FUNCTION MAX (A,B: REAL): REAL; 

Der Ergebnistyp darf kein zusam- 
mengesetzer Typ, wie zum Beispiel 
eine Menge oder ein Array, sein. Um 
innerhalb der Funktion das Ergebnis zu 
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bestimmen, verwendet man den Funk- 
tionsnamen in einer Zuweisung: 
IF A>B THEN 
MAX:=A 
ELSE 
MAX :=B 

Natürlich muß auf jeden Fall innerhalb 
einer Funktion eine solche Zuweisung 
stattfinden, damit die Funktion bei der 
Rückkehr einen definierten Wert liefert. 
Funktionsaufrufe sind nur innerhalb von 
Ausdrücken zulässig, während Proze- 
duraufrufe syntaktisch gesehen Anwei- 
sungen Sind. 

IF MAX(A,B) >4 THEN ... 
A := MAX(A,B); 
MIN:= -MAX(-A,-B) 

Jetzt folgt eine kleine Sammlung von 
Prozeduren und Funktionen, die Ihnen 
die Programmierung typischer Opera- 
tionen mit Arrays zeigt. Die erste Proze- 
dur in Listing 9 sortiert den Inhalt des 
Arrays in A, das als Parameter überge- 
ben wird. Durch die Wahl von SORT- 
TYPE = INTEGER könnten Sie diese 
Prozedur auch zum Sortieren ganzer 
Zahlen (oder jedes anderen Typs) ver- 
wenden. Das Sortierverfahren ist eines 
der einfachsten und langsamsten über- 
haupt. Bei jedem Durchlauf der äußeren 
FOR-Schleife wird jeweils ein Wert im 
Array an seine korrekte Position 
gebracht und dazu in der inneren 
Schleife der maximale Wert im Restar- 
ray bestimmt. Somit wird im ersten 
Durchlauf die größte Zahl mit der Zahl an 
der letzten Arrayposition vertauscht. Im 
nächsten Durchlauf wechselt die zweit- 
größte Zahl mit der vorletzten Arraypo- 
sition den Platz, bis im letzten Durchlauf 
der kleinste Wert an der ersten Position 
landet. 

Eine etwas exotischere Prozedur 
stellt Listing 10 vor. Hier wird der Kehr- 
wert des ganzzahligen Parameters I 
exakt gedruckt. Bei periodischen Brü- 
chen erscheint ein Pfeil am Beginn der 
Periode. 


Speicherblöcke 


Hauptprogramm 


Al Prozedur 2 


IH Prozedur 1 


Dr 8  — — — —& 








Bild 2. Statische Schachtelung 
von Prozeduren 


PROGRAM SPEICHERPLATZ (INPUT, 


OUTPUT); 


VAR M: REAL; 


PROCEDURE Pi; 


VAR Li: INTEGER; 
BEGIN 
WRITELN (' PROZEDUR Pi MIT Li ", 
LI); 
END, (* pı 9) 


PROCEDURE P2 (AUCHP1: BOOLEAN); 


VAR L2: REAL; 
BEGIN 
WRITELN ' PROZEDUR P2 MIT L2 *', 
L2); 
IF AUCHP1I THEN Pi; 
END: (* P2 a) 


P2 ( PALSE), 
P2 (TRUE) 
END. 


Listing 7. Belspleiprogramm zur Spel- 
cherorganisatlon (vergleiche Bild 3). 





10 


Bild 3. Diagramm zur dynamischen Speicherorganisation (siehe Text) 





1/17 = 0.10588235294117647 
Wie findet man aber den Anfang (und 
damit auch das Ende) der Periode? 
Zunächst erinnern wir uns an die Rech- 
nung mit Brüchen aus der Schule: 
1.000000 / 7 = O0. 1142857 


Beginnend mit dem REST 1 multipli- 
ziert man immer 10 und dividiert das 
Produkt wieder durch I. Der ganzzah- 
lige AnteilREST DIV list die nächste Zif- 
fer des Ergebnisses, während der Divi- 
sionsrest REST MOD | den REST für 
den nächsten Divisionsschritt bildet. 


Die Periode endet genau dann, wenn 
der REST bereits früher einmal in der 
Berechnung (nicht unbedingtals erster, 
siehe 1/12!) aufgetreten ist. Daher spei- 
chert die Prozedur alle Ziffern in einem 
Array ZIFFERN und für jeden Rest R 
den Index der zugehörigen Ziffern in 
dem Array INDEX. Wird dabei festge- 
stellt, daß dieser INDEX ungleich O ist, 
also dieser Rest bereits einmal auftrat, 
so ist die gesamte Periode bekannt, und 
das Ergebnis kann anschließend ge- 
druckt werden. Probieren Sie es doch 
einmal mit 1/29! 

Zum Verständnis der ProzedurLListing 
11 benötigen Sienoch Kenntnisse über 
die Stringbehandlung in Pascal. Bisher 
wurden in allen Beispielprogrammen 
nur einzelne Zeichen, also Werte vom 
Typ CHAR, verwendet. Möchte man 
jedoch Worte, Zeilen oder Sätze, die 
aus einer Folge von Zeichen bestehen, 
verarbeiten, so muß man ein Array aus 
Zeichen definieren. 

CONST TEXT='0tto Anna'; 
TYPE STRING = ARRAY [1..9] 


OF CHAR; 

VAR WORT : STRING; 
ZEILE: ARRAY [1.80] 

OF CHAR; 


Text ist eine Konstante mit dem Typ 
ARRAY [1..9] OF CHAR, da sie aus 
neun Zeichen besteht. Denselben Typ 
besitzt die Variable Wort. Die Variable 
Zeile umfaßt 80 einzelne Zeichen. 
Wichtig ist jetzt die Tatsache, daß jedem 
String eine feste Länge zugeordnet ist. 
Es ist also nicht möglich, in Wort nur vier 
Zeichen zu speichern, man muß viel- 
mehr den Rest des Strings zum Beispiel 
mit Leerzeichen füllen: 


WORT:= '"ANNA_____'; (korrekt) 
WORT:= 'ANNA'; (falsch) 
WORT:= TEXT; (korrekt) 
WORT:= ZEILE; (falsch) 
Zeile:= WORT; (ebenfalls 
falsch!) 
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PUNCTION SIGNUN (X: REAL): INTEGER,; 
(2 Vorzeichen: 0, -1i oder +1 *) 


BEGIN 
IF X30 THEN SIGNUNM: = 1 
ELSE 
IF XcO THEN SIGNUN: = -1 
ELSE SIGNUNM: = O 
END, (4 SIGNUM *) 


FUNCTION HOCH (X, Y: REAL): REAL; 
(* ERGEBNIS ISTX " Y% 
BEGIN 
HOCH: = EXPı Y " LOGLYI); 
END; (* HOCH *®) 


FUNCTION FAKULTAET (N: INTEGER): REAL; 
(“ ERGEBNIS ISTNıI «= 1 r 2. Jag 
u EN RR) 
VAR P: REAL, 
I: INTEGER: 

BEGIN 

P:= 1.0; 

FOR I:= 2 TO NDO P:= Pa |] 

FAKULTAET: = P 
END; (* PAKULTAET *) 
GEOMETRISCHES_NWITTEL(A, B: REAL): 
BEGIN 

GEOMETRISCHES_MITTEL: = SQRTI( A*B) 
END: 


REAL; 


ARITHMETISCHES_MITTEL(A,B,C: REAL): 
REAL; BEGIN 
ARITHMETISCHES_MNITTEL: = 
(A +B + C) / 3 
END, 


Listing 8. Einige Beisplele für 
Funktionen In Pascal 





Zuweisungen sind also nur zwischen 
Strings gleicher Länge möglich, da 
weder überflüssige Zeichen abge- 
schnitten noch zu kurze Strings mit 
Leerzeichen erweitert werden. Ande- 
rerseits kann man jedoch auch Strings 
gleicher Länge miteinander verglei- 
chen. Dabei bestimmt das Ergebnis des 
Vergleiches den zugrundeliegenden 
Zeichensatz. Im ASCIi-Code gilt bei- 


spielsweise 

"ALPHA! < 'BETA ' 
'ALPHA' <'alpha' 
ALP ' <!'ALPHA' 


Die hier gemachten Einschränkun- 
gen gelten für Standard-Pascal. Für 
Turbo-Pascal und andere Compiler gel- 
ten sie nicht. 

Die Funktion POSITION in Listing 11 
liefert die Position von Wort in der 
Tabelle TAB. Diese Tabelle soll aufstei- 


CONST N = 100; 
TYPE SORTIERELEMENT =- REAL; 
SORTIERFELD = ARRAY ( UG..0G) 
OP SORTIERELEMENT: 


PROCEDURE SORT( VAR A: SORTIERFELD),;, 


VAR I,J,R: INTEGER, 
MAX : SORTIERELEHENT, 


BEGIN 
FOR J: = 0OG DOWNTO UG+1 DO 
BEGIN 
MAX: =» AULUGI; K:= UG; 
FOR I: = UG+1 TO J DO 
IF AULI) >» MAX THEN 
BEGIN 
K:= I; MAX: = AI) 
END; 
AK): = AlJ); AlJ): = MAX 
END: 
END, (* SORT *) 


Listing 9. Sortieren durch Auswahl 











gend mit Strings gefüllt sein. Aus der 
Funktion resultiert der Wert O, falls Wort 
nicht in TAB enthalten ist. 

Falls Sie einmal ein Programm schrei- 
ben möchten, das Ihnen alle Namen in 
einem Pascal-Programm ausdruckt, SO 
müssen Sie zunächst alle Schlüssel- 
worte erkennen. Hierzu könnten Sie die 
Funktion POSITION verwenden. In TAB 
werden alle Schlüsselworte in alphabe- 
tischer Reihenfolge eingetragen (AND, 
ARRAY, BEGIN, .. ..). Dann ergeben sich 
folgende Funktionsergebnisse: 


POSITION( !'AND ',TAB) = 1 
POSITION( 'BEGIN !,TAB) = 3 
POSITION( 'WITH ',TAB) = 39 
POSITION( 'WIRSING t TAB) = O 


Obwohl die Funktion etwas kompli- 
zierter aussieht, arbeitet sie für große 
Arrays wesentlich schneller als die ein- 
fache Version aus Listing 12, die das 
Array schrittweise von hinten nach 
vorne durchsucht. Statt dessen ver- 
wendet die erste Funktion zwei Zeiger 
R und L auf den rechten und linken 
Rand des Teilarrays, in dem sich der 
gesuchte Wert befinden muß. In jedem 
Schritt wird nun der Mittelpunkt M des 
Intervalls untersucht. Steht an dieser 
Stelle ein Wort, das größer als das 
Suchwort ist, so liegt das Suchwort im 
Intervall L bis M-1, ansonsten muß es im 
Interval M+1 bis R zu finden sein. Die 
Suche ist beendet, falls die ZeigerL und 
R sich überschneiden. Offensichtlich 
wird in jedem Schritt das Array halbiert, 
was den Geschwindigkeitsvorteil 
gegenüber Listing 12 ausmacht. 

Noch ein Wort zu der linearen Suche 
in Listing 12: Warum wurde nicht ein- 
fach die Schleife 


I:= ANZAHL; 

WHILE (WORT < >TABL[I] AND 
(I <>0) DO I :=1I-1; 
POSITION:= I 


verwendet? Ist in diesem Fall Wort nicht 
in TAB vorhanden, so ist im letzten 
Schleifendurchlauf I=0, was im ersten 
Teilder WHILE-Bedingung einen Zugriff 
auf das (nicht existierende) Element 
TAB[0] zur Folge hat. Normalerweise 
erkennt ein Pascal-Laufzeitsystem sol- 
che Indizierungsfehler und gibt dann 
eine Fehlermeldung aus. 


Rekursion 


Das letzte Programm in Listing 13 ist 
ein besonders schönes Beispiel für 
eine sehr nützliche Eigenschaft von 
Prozeduren und Funktionen in Pascal. 
Falls Sie sich an die Ausführungen über 
die Speicherverwaltung erinnern, wis- 
sen Sie noch, daß bei jedem Prozedur- 
aufruf neuer Speicherplatz für die loka- 
len Variablen bereitgestellt wird. Des- 








halb kann sich eine Prozedur auch 
selbst aufrufen, ohne daß dadurch der 
Inhalt der lokalen Variablen zerstört 
würde. Den Selbstaufruf einer Prozedur 
oder Funktion nennt man Rekursion. 
Das Programm in Listing 13 verwendet 
nun eine rekursive Prozedur PRO- 
BIERE__ZEILE, um das »Problem der 
acht Damen« zu lösen. 

Die Aufgabe besteht darin, acht Köni- 
ginnen, die nach den Schachregeln alle 
Figuren in ihrer Zeile und Spalte sowie 
in beiden Diagonalen bedrohen, so auf 
ein Schachbrett zu setzen, daß keine 
Figur eine andere bedroht. Bild 4 zeigt 
die Felder, die eine Dame angreift, wäh- 
rend Bild 5 eine zulässige Lösung zeigt. 

Die Lösung stellt ein sogenannter 
Backtracking Algorithmus. Hierbei pro- 
biert man eine Reihe von Schritten aus, 
bis man feststellt, daß dieser Weg in 
eine Sackgasse führt. In diesem 
Moment beginnt man die letzte Ent- 
scheidung rückgängig zu machen und 
einen neuen Weg zur Lösung zu finden. 
Indem man systematisch alle möglichen 
Kombinationen durchsucht, wird auf 
jeden Fall eine Lösung (sofern vorhan- 
den) gefunden. 

In diesem konkreten Beispiel positio- 
niert man zunächst eine Dame an eine 
zulässige Stelle der ersten Zeile. Dabei 
wird notiert, welche Diagonalen und 
welche Spalte die Dame bedroht. An- 
schließend wird in der zweiten Reihe 
eine ungefährdete Position gesucht, 
die die zweite Dame besetzt. Diese Pro- 
zedur wiederholt sich so lange, bis die 
achte Zeile belegt und die Lösung 
gefunden ist. Im Normalfall ist natürlich 
bereits in der dritten oder vierten Zeile 
jedes Feld gefährdet, so daß die Suche 
in eine Sackgasse führt. Dann wird die 
Dame von ihrem Feld wieder entfernt 
und in der letzten Reihe die Dame auf 
das nächste freie Feld gesetzt. Mit die- 
ser Strategie erhält man alle 92 Lösun- 
gen auf einem 8 x 8-Brett. 

Das größte Problem besteht darin, 
möglichst schnell zu testen, ob eine 
Diagonale oder eine Spalte bereits 
belegt ist. Deshalb werden drei boole- 
sche Arrays geführt, die für jede Diago- 
nale und Spalte den Wert TRUE enthal- 
ten, falls diese nicht bedroht ist. Natür- 
lich muß die Information in diesem Array 
am Programmanfang gelöscht und bei 
jedem Zug und jeder Zugrücknahme 
aktualisiert werden. Bild 6 zeigt, wie 
man aus dem Zeilen- und Spaltenindex 
l,J die Nummer der jeweiligen Diagona- 
len durch Addition und Subtraktion 
erhält. 

Bisher wurde nur das Array als 
zusammengesetzter Typ verwendet. 
Durch die Flexibilität bei der Wahl des 
Indextyps und des Typs der Elemente 
konnten sehr verschiedenartige Pro- 
bleme behandelt werden. Bevor wir uns 
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IF I>MAXIMAL THEN 
ELSE 
BEGIN 


WRITE(C'1 /', IL » 0.'); 


(* NOCH IST KEIN REST AUFGETRETEN, 


FOR J:= O0 TO 1-1 DO 
INDEXLJ): = 0; 


K 0% 
REST: = 1; 
REPEAT 
K:= K+1; INDEXUREST): = K; 
REST: = ZEHN * REST, 
ZIFFERULK): = REST DIV I, 
REST :e REST MOD I; 
UNTIL INDEXI REST) <>O,; 


(* WIR BERECHNEN 


(= JETZT NOCH DAS ERGEBNIS DRUCKEN, 


(* ERSTEN ZIPFER IN DER PERIODE 
FOR J: =» 1 TO INDEXI REST] -1 DO 


WRITE(CHR(CZIFFERULJ)+ORDU'O'))), 


WRITE’ "1; 
FOR J: =INDEXIRESTI TO K DO 


WRITECCHR(ZIFFERLJ) +ORDU'O'))), 


WRITELN 


END, (*% KEHRWERT *) 


PROCEDURE KEHRWERT (I: INTEGER), 


WRITELN(' DIE ZAHL IST ZU GROSS!) 


DESHALB INDEX LOESCHEN: *) 


(= DIE ERSTE ZIFFER WIRD BERECHNET *) 


Eee “.) 


(®* BIS DIESER REST SCHON EINMAL BERECHRET *) 


INDEXIREMI IST DIE POSITION DER *) 


2) 


(“ DRUCKE DEN EXAKTEN KEHRWERT DER ZAHL I MIT ANSABE DER PERIODE 


CONST ZEHN = 10; 
MAXIMAL = 300; 


' INTEGER.: 
REST 


zZIFFPER 
INDEX 


(%* BASIS DES DEZIMALSYSTENS 
(* MAXIMALE GROESSE PUER I UND DIVISIONSREST 
INTEGER, (* LAUFENDER DIVISIONSREST BEI STELLE K 


ARRAYLAN.. MAXIMAL) OF INTEGER; 
ARRAYIO.. MAXIMAL) OF INTEGER; 


Listing 10. Exakte Berechnung des Kehrwertes 


CONST ANZAHL = 30; 


TYPE STRING = ARRAYL1..11] OF CHAR; 





(® LAENGE DER SUCH-TABELLE 


(* LÄNGE EINES WORTES = 11 ZEICHEN 


TABELLE=- ARRAYU1.. ANZAHL) OF STRING: 


FUNCTION POSITION (WORT: STRING; 


(* IN TAB STEHT. 


VAR L,R,M: INTEGER: 
BEGIN 
L: ®1; 
REPEAT 
M: = (L+R) DIV 2; 
IF WORT<=-TABI MI) THEN R: = 
IF WORT» »TABI MI THEN L: = 
UNTIL L>R; 
IF LyR+1 THEN POSITION =Rei; 
ELSE POSITION =0 
END; (* POSITION =) 


R: =ANZAHL; 


Listing 11. Binäre Suche 


PROCEDURE POSITION (WORT: STRING; 


VAR 1: I1NTEGER, 


BEGIN 
I: =ANZAHL; 
WKHILE ( TABLI)<>WORT) 
IP TABEII=-WORT THEN POSITION: =1 
ELSE POSITION: =D 
END, (* POSITION * 


Listing 12. Lineare Suche 


weiteren Datentypen in Pascal zuwen- 
den, kommen noch zwei weitere Eigen- 
schaften von Arrays zur Sprache. 

1. Man kann auch das Array als Gan- 
zes in einer Zuweisung verwenden, falls 
auf der rechten und linken Seite des 
Zuweisungsoperators je ein Array des- 
selben Typs steht: 





VAR TAB: 
TAB MUSS AUFSTEIGEND ALPHABETISCH SORTIERT SEIN. 
FUNKTION IST DIE POSITION VON WORT IN TAB BZW. O0, 


VAR TAB: 
(* EINFACHE LINEARE SUCHE NACH WORT IN TAB 


TABELLE); 
DAS ERGEBNIS DER 
FALLS WORT NICHT 


MITTELPUNKT DES INTERVALLS L..R 
WORT LIEGT LINKS VON DER MITTE 
WORT LIEGT RECHTS VON DER MITTE 
BIS ZEIGERKOLLISION 

WORT GEFUNDEN 

WORT NICHT VORHANDEN 





TABELLE), 
TAB MUSS NICHT SORTIERT SEIN *) 


AND (I<c>1) DO I:«I-t; 





VAR A,B: ARRAY[1..100] OF REAL; 
As=B; 

Mit dieser Zuweisung werden also 
100 reelle Zahlen aus dem Array B in 
das Array A kopiert. Somit enthält diese 
allgemeine Regel die oben genannten 
Bedingungen, unter denen eine Zuwei- 
sung zwischen Strings zulässig ist. 
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2. Arrays können als Elemente nicht 
nur einfache, sondern auch zusammen- 
gesetzte Typen enthalten. Wiederum 
hatten wir diese Tatsache bereits bei 
der Besprechung der Strings vorweg- 
genommen, als wir definierten: 

TYPE STRING = ARRAY[1..11] 
OF CHAR; 

TABELLE= ARRAY[1..ANZAHL] 
OF STRING; 

Ist der Elementtyp ein Array, SO 
spricht man oft auch von mehrdimen- 
sionalen Arrays. In diesen Fällen kann 
man auch eine vereinfachte Notation 
verwenden. Statt 
VAR A,B: ARRAY [1..N]) OF 

ARRAY [1..M] OF 
ARRAY [1..K] OF REAL; 
A[ıJL[ı)[1]:= BL2IL3)[4) 
schreibt man dann: 
VAR A,B: ARRAY[1..N,1..M,1..K] 
OF REAL; 
A[1,1]:=B[2,3,4] 

Bei der Arbeit mit solchen mehrdi- 
mensionalen Tabellen verwendet man 
sehr häufig Ausschnittstypen. Betrach- 
ten Sie zum Beispiel (Bild 7), das eine 
zweidimensionale Tabelle mit Umsatz- 
zahlen (Millionen DM ?) für fünf Jahre 
mit jeweils zwölf Monaten enthält. Das 
kann man schreiben als: 

TYPE MONAT = 1. .12; 


JAHR = 1980..1985; 
VAR UMSATZTABELLE = ARRAY 
[JAHR, MONAT] 
OF REAL; 
M : MONAT; 
J : JAHR; 


Die Variablen M und J besitzen die 
Ausschnittstypen MONAT und JAHR 
und können daher nur die Werte 1 bis 
12 oder 1980 bis 1985 annehmen. Sie 
eignen sich also hervorragend als Zei- 
ger in die zweidimensionale Tabelle. 
Jede Zuweisung an eine Variable eines 
Ausschnittstyps wird zur Laufzeit auf 
gültige Werte geprüft, so daß bei fol- 
genden Anweisungen das Programm 
mit einer Fehlermeldung endet: 
Js==12; M:=21985 

Einmal schützt also der Compiler vor 
irrttümlichen Zuweisungen. Listing 14 
zeigt drei Funktionen, die in solchen 
Umsatztabellen Zeilen-, und Spalten-, 
oder Gesamtsummen berechnen. Das 
Hauptprogramm verwendetdiese Funk- 
tionen für die Ermittlung von Umsätzen 
für zwei Produkte (Farben undLaäcke). 

Allgemein kann man von jedem skala- 
ren Typ Ausschnittstypen bilden: 

TYPE BUCHSTABEN = '!A'..'z'; 
ZIFFERN =,'07, 913 

Eine Variable eines Ausschnittstyps 
kann überall dort verwendet werden, 
wo auch eine Variable des zugehörigen 
Grundtyps (INTEGER oder CHAR) ste- 
hen kann. Unter Umständen kann die 
Verwendung von Ausschnittstypen 
(zum Beispiel als Elementtyp in großen 
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Bild 4. Beispiel für die von einer Dame 
bedrohten Felder 


Bild 5. Eine von mehreren Lösungen 
des Acht-Damen-Problems 


Bild 6. Berechnung der Diagonalen Im Programm ACHT DAMEN (links: Addition 
der Zellen- und Spaltennummern, rechts entsprechend Subtraktion). 


Arrays) bei einigen Compilern auch 
Speicherplatz einsparen. Mit der 
Kenntnis, daß die Variable JAHR nur die 
Werte 1980 bis 1985 annnimmt, 
genügt 1 Byte zur Speicherung des 
Wertes (statt 2 oder 4 Byte für die nor- 
malen INTEGER-Zahlen). 


Eigene Datentypen 


Eine andere Methode, neue Typen zu 
definieren, besteht darin, daß man alle 
Werte aufzählt, die dieser Typ annimmt: 
TYPE AMPEL = (ROT, GELB, GRUEN); 

FAMILIENSTAND = (LEDIG, 
VERHEIRATET, 
GETRENNT, 
GESCHIEDEN, 
VERWITWET); 
(BAUER, 
LAEUFER, 
SPRINGER, 
TURM, 

DAME, 
KOENIG); 
(SCHWARZ, 
WEISS); 

Diese Typen nennt man Aufzählungs- 
typen. Formal gesehen sind zum Bei- 
spielROT und KOENIG Konstanten des 


FIGUR = 


FARBE = 








jeweiligen Typs. Durch die Reihenfolge 
bei der Typendeklaration wird eine Ord- 
nung auf den Konstanten definiert: 
ORD(ROT) = O 
ORD(GELB) = 1 
ORD(GRUEN) = 2 

Somit sind auch Vergleiche zwischen 
Variablen eines Aufzählungstyps sinn- 
voll: 
VAR HAUPTAMPEL : AMPEL; 
IF HAUPTAMPEL <= GELB THEN ... 

Um den Nachfolger und Vorgänger im 
Wertebereich zu erhalten, gibt es die 
Funktionen PRED (predecessor) und 
SUCC (successor): 
SUCC(ROT) = GELB 
SUCC(LAEUFER) = SPRINGER 
PRED(VERHEIRATET) = LEDIG 
PRED(WEISS) = SCHWARZ 

ORD, SUCC und PRED sind übrigens 
für jeden skalaren Typ zulässig, da alle 
skalaren Typen geordnet sind: 
ORD(FALSE)=0 
SUCC (FALSE) =TRUE 
SUSCEIAT) = BB! 
PRED(0) = -1 

Viele hoffnungsvolle Programme von 
Anfängern enthalten direkte Ein- und 
Ausgabeanweisungen für Werte von 
Aufzählungstypen: 
WRITE (HAUPTAMPEL); 
READ (HAUPTAMPEL); 








Diese Anweisungen sind falsch! Nur 
während der Übersetzung sind dem 
Compiler die Namen der Werte des 
Typs bekannt. Zum Zeitpunkt der Aus- 
führung sind alle Aufzählungstypen 
durch Zahlen ohne Verweise auf irgend- 
welche Namen codiert. Man muß also 
die Umwandlung zwischen dem Auf- 
zählungstyp und dem auszugebenden 
Namen selbst vornehmen: 

PROCEDURE DRUCKE_AMPEL(A:AMPEL); 
BEGIN 

WRITE( 'Die Ampel zeigt); 

CASE A OF 


ROT WRITELN('rot'); 

GELB : WRITELN('gelb'); 

GRUEN: WRITELN('grün'); 
END; 


END; (* DRUCKE_AMPEL *) 

Natürlich können auch Auschnittsty- 
pen von Aufzählungstypen gebildet 
werden: 

TYPE ENDSPIELFIGUR = 
LAEUFER. .KOENIG; 

Mit den Aufzählungstypen lernen Sie 
den letzten skalaren Typen in Pascal 
kennen. Alle weiteren Typen, die den 
Rest des Artikels einnehmen, sind 
zusammengesetzte Typen wie das 
Array. Mengen von Zahlen sind Ihnen 
sicher bekannt. Um einen Mengentyp 
zu deklarieren, verwendet man die 
Wortsymbole SET und OF, denen ein 
skalarer Typ folgen muß: 

TYPE FIGUREN = SET OF FIGUR; 
VAR MEINE, DEINE: FIGUREN; 

Mit den Mengen-Variablen MEINE 
und DEINE kann man beispielsweise 
über die geschlagenen Figuren führen. 
Am Spielbeginn gilt: 

MEINE:= [BAUER...KOENIG); 
DEINE:= MEINE; 

IF [TURM,DAME,KOENIG] < 
=MEINE THEN... 

Mit dieser Abfrage wird also getestet, 
ob ein Spieler noch Turm, Dame und 
König besitzt. Daeine Menge jedesEle- 
ment nur einmal oder keinmal enthält, 
werden Mengen überall dort verwen- 
det, wo das Vorhandensein einer 
gewissen Eigenschaft signalisiert wer- 
den soll. 

Arrays und Mengen fassen mehrere 
Werte eines Typs zu einem zusammen- 
gesetzen Typ zusammen. Besonders in 
großen Programmen ist es jedoch auch 
sinnvoll, Werte verschiedener Typen zu 
einer Einheit zu verbinden. Zur Kon- 
struktion solcher Typen verwendet man 
in Pascal Recordtypen (Verbundtypen): 
TYPE POSITION = RECORD 

X,Y: REAL; 

END; 
ADRESSE = RECORD 
NAME, VORNAME: STRING; 
ORT, STRASSE : STRING; 
HAUSNUMMER : INTEGER; 
PLZ : INTEGER; 
END; 


X sJsy... 
{ . 





PROGRAM ACHT_DAMEN ( INPUT, OUTPUT); 


(* ACHT DAMEN AUF EINEM B * 8 SCHACHBRETT *) 
ca 2 Zar NN“) 


CONST N 8; 
N2 - 16; 
DAME : ARRAY [1..N OF INTEGER; 
SPALTE_FREI: ARRAY (1..N] OP BOOLEAN, 
DIAGI_FREI : ARRAY 1 2..N2) OF BOOLEAN,;, 
DIAG2_FREI : ARRAY { -N. N) OF BOOLEAN, 
LOESUNG : INTEGER; 

I : INTEGER; 


PROCEDURE DRUCKELOESUNG, 
(2 ZEIGE DIE POSITION DER DAMEN AN, ERHÖHE DEN ZÄHLER FÜR DIE LÖSUNGEN A) 


VAR ZEILE, SPALTE: INTEGER; 
BEGIN 
LOESUNG: = LOESUNG + 1; 
WRITELN, WRITELN; WRITELN(' LÖSUNG', 
FOR ZEILE: =1 TO N DO 
BEGIN 
POR SPALTE: »1 TO N DO 
IF SPALTE = DAMEIZEILEI THEN WRITE(' “*') 
ELSE WRITELU' +'),; 


LOESUNG: 2, ':'); 


WRITELN; 
END; 
END; (= DRUCKELOESUNG *) 


PROCEDURE SETZE_ZEILE(I: INTEGER); 
(* SUCHE FREIE POSITION FÜR DAME IN ZEILE I. FALLS EIN PLATZ GEFUNDEN 4) 
(% WURDE, WIRD EINE DAME IN ZEILE I+1 GESETZT ODER DIE VOLLSTAENDIGE *) 
(* STELLUNG ANGEZEIGT. SONST ERFOLGT EIN RUECKSPRUNG. a) 
VAR J: INTEGER, 
BEGIN 
FOR J:= 1 TO N DO 
IF SPALTE_FREILJ) AND DIAGI_FREILI+J) AND DIAG2_FREILJ-II THEN 
BEGIN (* HIER KANN JETZT DIE DAME GESETZT WERDEN: #) 
DAMEI II: = J; 
SPALTE_FREI ( J]) := FALSE; 
DIAGI1_PREI LIrJil:= FALSE: 
DIAG2_FREI (J-Il:= FALSE; 
IF I=N THEN (* ALLE DAMEN GESETZT, LÖSUNG DRUCKEN: 
DRUCKELOESUNG 
ELSE (“2 IN DER NÄCHSTEN ZEILE WEITERSUCHEN 
SETZE_ZEILE(1+1); 


(* JETZT DEN LETZEN ZUG RÜCKGÄNGIG MACHEN: 
SPALTE_FREI [ J]I := TRUE, 
DIAG!I_FREI [IeJl:= TRUE, 
DIAG2_FREI [ J-Il:= TRUE, 
END: 
END, (* SETZE_ZEILE *) 


BEGIN 
(* SPIELBRETT IST NOCH LEER: *) 
POR I:= 1 TO 8 DO SPALTE_FREI (11:= TRUE; 
POR I:= 2 TO N2 DO DIAGI_PREI (I):= TRUE; 
POR I: =-N TO N DO DIAG2_FREI (I1l:= TRUE; 
LOESUNG: = 0; 
SET2ZE_ZEILE(1); 

END. 


Listing 13. Das Acht-Damen-Problem, ein Beispiel für einen 
rekursiven Algorithmus. 





Bild 7. Darstellung von Jahresumsätzen als Beispiel 





VAR P1,P2 : POSITION; PLY:= 40; 
ADR : ADRESSE; ADR.ORT := 'MONOPOLY'; 
Nach einer solchen Deklaration ADR.STRASSE:= 'Schloßallee'; 
bezeichnet man P1, P2 und ADR als ADR.HAUSNR := 4; 
Records. Ein Record besitzt einzelne Andererseits kann man aber auch 


Felder, auf die man durch Angabe ihres 
Namens nach einem Punkt zugreift: 
P1.X:= 30; 





den Record als Ganzes ansprechen: 
Pl:= P2 
Durch diese Zuweisung werden alle 
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PROGRAM UMSAETZE (INPUT, OUTPUT); 
TYPE MONAT = 1..12; 
JAHR = 1980..1985; 
UMSATZTABELLE: 
VAR PARBEN, 


LACKE: UMSATZTABELLE,; 


FUNCTION JAHRESSUMME( J: JAHR, VAR T: 


TABELLE T: *) 


VAR M: MONAT; 
S: REAL; 


BEGIN 
S:= 0; 
FOR M: = 1 TO 12 DO S:= S + TUJ,M; 
JAHRESSUMME: = 8 

END. (A JAHRESSUMME *) 

FUNCTION MONATSSUMME( M: 


MONAT: VAR T: 


BIS 1985 %) 


VAR J: JAHR; 
S: REAL; 


ARRAY L JAHR, MONAT] OF REAL; 


UMSATZTABEI.LE): 
(%* BERECHNE DIE SUMME DER MONATSUMSÄTZE IM JAHR [ 


UMSATZTABELLE): 
(* BERECHNE DIE SUMME ALLER UMSÄTZE IM MONAT M PÜR 198a0 


POR J:= 1980 TO 1985 DO S:= S + TLUJ,M; 


MONATSSUMME: = S 
END; 


PROCEDURE GESAMTSUMME (VAR T: 


(* MONATSSUMME *) 


UMSATZTABELLE): REAL; 


(* BERECHNE DIE SUMME ALLER UMSÄTZE *) 


REAL; 
IN DER VAR J: JAHR; 


S: REAL; 


BEGIN 
S: = O0; 


FOR J: = 1980 TO 1985 DO S:= S « JAHRESSUMME(J,T); 


GESAMTSUMME: = S 
END; 


BEGIN 


(” GESAMTSUMME *%) 


(* HIER WERDEN DIE UMSÄTZE FÜR FARBEN UND LACKE VORBELEGT *) 


REAL; 


WRITELN(' UMSATZ PARBEN 1980: ', 
WRITELN( ' UMSÄTZE LACKE JANUAR 1980-1985: '); 


JAHRESSUMME( 1980, FARBEN), 


MONATSSUME( 1, 


LACKE); WRITELN!' UMSÄTZE LACKE UND FARBEN INSGESAMT: ', 
GESAMTSUMME( LACKE) + GESAMTSUMME (FARBEN));, 


END. 


Listing 14. Bearbeitung zweidimenslonaler Tabellen 


Felder im Record übertragen. Wichtig 
und charakteristisch für das Typkon- 
zept in Pascal ist die Tatsache, daß 
zusammengesetzte Typen auch mehr- 
stufig aufzubauen sind: 
VAR POSITIONEN: ARRAY [1...99] OF 
POSITION; 
Den umgekehrten Fall, daß ein 
Record aus Arrays besteht, finden Sie 
bereits im Beispiel des Typs ADRESSE. 
Dort sind die Felder NAME und VOR- 
NAME vom Typ STRING, den wir ja als 
TYPE STRING = ARRAY [1..11] 
OF CHAR; 
vereinbart hatten. Sollen viele Operatio- 
nen mit den Feldern eines Records 
durchgeführt werden, so ist die stän- 
dige Wiederholung des Variablenna- 
mens lästig. Für diesen Fall existiert die 
WITH-Anweisung: 
WITH Recordvariable DO Anweisung 
So kann man folgende Zuweisungen 
ADR.NAME :='Hugendubel'; 
ADR.VORNAME:='"Kunigunde'; 
ADR.ORT :='7 Berge!; 
ADR.STRASSE:='7 Zwerge'; 
schreiben als: 


WITH ADR DO 

BEGIN 
NAME = 'Hugendubel'; 
VORNAME: = 'Kunigunde'; 
ORT = '7 Berge'; 
STRASSE:= '7 Zwerge'; 

END; 


Wie alles in Pascal können auch 
WITH-Anweisungen geschachtelt wer- 
den. Nach der geschachtelten Record- 
Deklaration 
TYPE DATUM = RECORD 


TAG 1433 1% 

MONAT : 15.312; 

JAHR INTEGER; 
END; 


BANKAUSZUG = RECORD 
DATUM: DATUM; 
KONTOSTAND: REAL 
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END; 

VAR MEINBANKAUSZUG: BANKAUSZUG; 
prüft man folgendermaßen das Datum 
auf dem Bankauszug: 
WITH MEINBANKAUSZUG DO 
BEGIN 

IF KONTOSTAND >0 THEN 

WITH DATUM DO 

WRITELN(TAG,'.',MONAT,'.', 

JAHR) 
END; 


Dabei muß sich die innere WITH- 
Anweisung auf ein Feld in dem Record 
der äußeren WITH-Anweisung bezie- 
hen. Hier ist dies also das Feld MEIN 
BANKAUSZUG.DATUM. Bemerkens- 
wert sind noch die Sichtbarkeitsregeln 
für Feldnamen. Man kann ohne Na- 
menskonflikte Variablen mit dem Feld- 
namen aus der Record-Deklaration 
definieren. Der Feldname ist durch 
einen Punkt oder die WITH-Anweisung 
an den Variablennamen des Records 
gebunden. 

Am besten verdeutlicht wiederum ein 
Beispiel die Arbeit mit Records. In 
Listing 15 wird der Typ 
TYPE BRUCH = RECORD 

ZAEHLER, NENNER: INTEGER; 
END; 
definiert. Man möchte also auch gebro- 
chene Zahlen »exakt« darstellen. Nun 
lernt man aber in der Schule, daß 
123456 


245912 

dieselbe Zahl darstellen. Deshalb wer- 
den bei allen Operationen Zähler und 
Nenner gekürzt dargestellt. Zum Kür- 
zen muß man den größten gemeinsa- 
men Teiler (ggT) von Zähler und Nenner 
kennen. Beim Addieren werden die bei- 
den Brüche auf einen Hauptnenner 
gebracht, der natürlich möglichst klein 
bleiben soll. Daher ist im Programm 
auch eine Funktion zur Berechnung 








des kleinsten gemeinsamen Vielfachen 
(kgV) enthalten. Nach der Erweiterung 
der beiden Zähler ergibt sich durch 
Addieren der Zähler des Summenbru- 
ches. Wegen der teilerfremden Aus- 
gangsbrüche und der Wahl des Haupt- 
nenners spart man es sich, den Zähler 
gegen den Nenner zu kürzen. 


Die Multiplikation verläuft wie in der 
Schule nach der Regel Zähler mal Zäh- 
ler und Nenner mal Nenner. Jedoch 
werden zuvor die Brüche kreuzweise 
gekürzt, um die Produkte möglichst 
klein zu halten. Vielleicht ist es eine 
gute Denksportaufgabe, zu überlegen, 
warum nach der Multiplikation Zähler 
und Nenner teilerfremd sind. 


Die Subtraktion ist einfach auf die 
Addition zurückzuführen, ebenso wie 
die Division durch Kehrwertbildung auf 
die Multiplikation zurückführt. Bei der 
Berechnung des Kehrwertes ist jedoch 
auf eine korrekte Behandlung des Vor- 
zeichens zu achten. 


Normalerweise eignen sich zur Erläu- 
terung von Records Beispiele aus der 
kaufmännischen Datenverarbeitung, da 
man einen Record am einfachsten als 
ein Formblatt beschreiben kann, das 
verschiedene Felder enthält, die nur 
Werte gewisser Typen beinhalten dür- 
fen. 

TYPE KRAFTFAHRZEUGSCHEIN = 

RECORD 

WAGEN: KENNZEICHEN; 
WOHNORT, STANDORT: ADRESSE; 
LEISTUNG: INTEGER; 

END; 

Diese Deklaration setzt natürlich vor- 
aus, daß zuvor die Typen KENNZEI- 
CHEN und ADRESSE (zum Beispiel 
selbst als Records) definiert wurden. 

Es gibt jedoch auch Felder, die nur 
dann gültig sind, falls in einem anderen 
Feld ein bestimmter Wert steht. 


























TYPE PERSONALAKTE = 


RECORD 
NAME STRING; aus einem festen Teil (den Feldern 
VORNAME: STRING; NAME und VORNAME), dem ein verän- 
CASE STAND: FAMILIENSTAND OF derbarer Teilfolgt. Dieser Teil wird durch 
LEDIG:>; : (35 das Schlüsselwort CASE eingeleitet. 


VERHEIRATET ,GETRENNT: 
(HEIRAT: DATUM); 
GESCHIEDEN: 
(SCHEIDUNG: DATUM; 
ALIMENTE : BOOLEAN); keit. 
END; 


VAR AKTEl: PERSONALAKTE; 


PROGRAM BRUECHE (INPUT, OUTPUT); 
(* RECHNUNG MIT BRUECHEN IN DER DARSTELLUNG ZAEHLER, NENNER *) 
TYPE BRUCH = RECORD 

ZAEHLER: INTEGER; 

NENNER : INTEGER; 

(# ZAEHLER UND NENNER IMMER “) 

(* TEILERFREMD, NENNER POSITIV ®) 

END; 
VAR A, B, SUMME, DIFFERENZ, PRODUKT, QUOTIENT: BRUCH, 
PROCEDURE KUERZE( VAR A, B: INTEGER): 


(%2 KUERZE A UND B DURCH IHREN GROESSTEN GEMEINSAMEN TEILER *) 
VAR X: INTEGER, 


PUNCTION GGT (X,Y: INTEGER): INTEGER, 
t(* BERECHNE DEN GRÖSSTEN GEMEINSAMEN TEILER VON X UND Y * 
VAR H: INTEGER,; 
BEGIN 
IF Y»X THEN 
BEGIN H: =X;, X: 
REPEAT 
H; = X MOD Y,; 
X:= Y Y:=-H 
UNTIL H = 0; 
GGT: = %; 
END: (* GGT *) 


=Y; Y:=H END; 


BEGIN (* KÜRZE A) 
X: = GGTtABS(A), B); 
IF Xc>1 THEN 

BEGIN 
A:= A DIV X: 
B:= B DIV X; 
END; 

END; (* KÜRZE *) 

FUNCTION KGV(X,Y: INTEGER): INTEGER,; 

(®2 BERECHNE DAS KLEINSTE GEMEINSAME VIELFACHE VON X UND Y *%) 
VAR U,V: INTEGER,; 

BEGIN 
U:= X; V:= Y 
WHILE X<>»Y DO 

IF X>Y THEN 
BEGIN X: = X-Y: 
ELSE 
BEGIN Y: > Y-X; 


U: = U+V END 
V:= V+U END; 


KGV: = (U+V) DIV 2 


(* ÜBRIGENS IST CGCTIX,Y) = X 
END; (* KGV ®) 
PROCEDURE ADDIERE (A, B: BRUCH: VAR C: BRUCH); 


(* ADDIERE DIE BRÜCHE A UND B ZUM BRUCH C *) 


VAR HN: 


BEGIN 
WITH C DO 
BEGIN 
(8 HAUPTNENNER BERECHNEN #) 
HN i= KGV(A.NENNER, B.NENNER) 3 
NENNER ı= HN; 
(® AUF HAUPTNENNER BRINGEN #) 
ZAEHLER ı= A. ZAEHLER «= (HN DIV A.NENNER) + B.ZAEHLER «® 
(HN DIV B.NENNER) 3 


INTEGER, (* HAUPTNENNER *) 


END; (# WITH ®) 

ENDI (* ADDIERE «) 
PROCEDURE SUBTRAHIERE( A, B: BRUCH: VAR C: BRUCH); 
(®* SUBTRAHIERE B VON A. ERGEBNIS INC *% 
BEGIN 

B. ZAEHLER: = - B. ZAEHLER; 

ADDIERE(A,B,C) 
END; (* SUBTRAHIERE ®) 
PROCEDURE MULTIPLIZIEREL A, B: BRUCH; VAR C: BRUCH); 


Dieses Beispiel zeigt einen varianten 
(veränderlichen) Record. Er besteht 


Ihm folgt ein Feldname mit Typangabe. 
In Abhängigkeit der Werte dieses skala- 
ren Typs besitzen die nachfolgenden 
Feldlisten in runden Klammern Gültig- 


Nach der Zuweisung »AKTE 1.STAND: 
= LEDIG« sind nur die Felder NAME 


und VORNAME gültig. 
»AKTE1.STAND = VERHEIRATET«, so 
wird zusätzlich das Feld HEIRAT vom 
Typ DATUM relevant. Ihm darf man jetzt 
Werte des korrekten Typs zuweisen: 

AKTE1. HEIRAT.TAG 
AKTE1l. HEIRAT.MONAT:=6; 


Ist jedoch 


AKTE1l. HEIRAT.JAHR :=1973; 
Dieselben Felder gelten auch für 
»STAND = GETRENNT. Sollte im Laufe 
der Ehegeschichte eine Scheidung 
eintreten, so werden sich auch in der 
Personalakte gravierende Änderungen 


(# ZAEHLER MAL ZAEHLER UND NENNER MAL NENNER. VOR DER ®) 
(#e MULTIPLIKATION WERDEN ZAEHLER UND NENNER GEKUERZT. ®#) 


BEGIN 
(8 KUERZE ZUNAECHST KREUZWEISE, DAMIT PRODUKT NICHT #) 
(= ZU GROSS WIRD ®) 


KUERZE (A. ZAEHLER, B.NENNER); 
KUERZE (B.ZAEHLER, A.NENNER); 


C. ZAEHLER: = A. ZAEHLER * B. ZAEHLER.: 
C. NENNER : =» A. NENNER * B. NENNER, 


(* ZÄHLER UND NENNER VON C SIND HIER NOCH TEILERFREMD ") 
END; (* MULTIPLIZIERE %) 


PROCEDURE KEHRWERT( VAR A: BRUCH), 
(* BERECHNE DEN KEHRWERT VON A. BEACHTE DIVISION DURCH O0 
UND VORZEICHEN *) 

VAR T: INTEGER; 
BEGIN 

T:= A. ZAEHLER,; 


IF T=0 THEN WRITELNE' DIVISION DURCH NULL!‘ ) 


ELSE 
IF T>O THEN 
BEGIN 
A. ZAEHLER: = A. NENNER, 
A. NENNER : = T 
END 
ELSE 
BEGIN 
A. ZAEHLER: = -A. NENNER, 
A.NENNER := -T; 


END; 
END, (* KEHRWERT *) 
PROCEDURE LESEN (VAR Aı BRUCH); 
(# LIEST EINEN rBRUCH VON DER TASTATUR. WIRD NACH «#) 
(« DEM ZAEHLER’ DAS ZEILENENDE ERREICHT, SO WIRD ®) 
(«e DER NENNER GLEICH EINS GESETZT “) 


BEGIN 
WITH A DO 
BEGIN 
READ( A. ZAEHLER),; 
IF EOLN THEN A. NENNER: = 1 
ELSE READLN(A. NENNER), 
END; 
KUERZE( A. ZAEHLER, A. NENNER); 
END, (* LESEN *) 


PROCEDURE DRUCKEN (A: BRUCH), 


BEGIN 
WITH A DO 
IF NENNER = 1 THEN WRITELN( ZAEHLER) 
ELSE 
WRITELN!ZAEHLER, '/', NENNER) 
END: (= DRÜCKEN A) 
BEGIN 


WRITELN(' RECHNEN MIT BRUECHEN: (ENDFE MIT A = 0)'); 


REPEAT 
WRITE('A = '), LESEN(A), 
RRITEU'B = '), LESEN(B),; 


ADDIERE(A, B, SUMME), 

WRITEC'A + B = ‘);, DRUCKEN SUMME); 

SUBTRAHIERE(A,B, DIFFERENZ), 

WRITEU('A - B = ');, DRUCKENDIFFERENZ),;' 

MULTIPLIZIERE(A, B, PRODUKT); 

WRITE(L'A * B = '):; DRUCKEN! PRODUKT); 

KEHRWERT(B); MULTIPLIZIERE(A,B, QUOTIENT); 

WRITEC'A / B = '‘); DRUCKEN: QUOTIENT): 
UNTIL A. ZAEHLER = 0; 


END. 


Listing 15. Bruchrechnung mit Records In Pascal 
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vollziehen. Mit »AKTE1.STAND := GE- 
SCHIEDEN« wird das Feld HEIRAT un- 
gültig und statt dessen das Feld SCHEI- 
DUNG (ebenfalls ein Datum) mit dem 
booleschen Feld ALIMENTE wirksam. 

Offensichtlich kann man mit varianten 
Records sehr gut die Tatsache wieder- 
geben, daß gewisse Attribute eines 
Objektes nur unter gewissen Randbe- 
dingungen relevant sind. Dies wird 
dadurch erreicht, daß zu jedem Zeit- 
Punkt immer nur eine der Feldlisten in 
Klammern hinter den Konstanten gültig 
ist. Diese zusätzlichen Informationen 
nutzt der Pascal-Compiler, um wie- 
derum Speicherplatz zu sparen. Er legt 
alle Varianten (also alle Feldlisten, die zu 
verschiedenen Werten des Auswahlfel- 
des gehören) an dieselbe Speicherpo- 
sition. Zur Laufzeit bestimmt dann das 
Auswahlfeldnach CASE (engl. tagfield), 
wie der Inhalt des Speichers zu inter- 
pretieren ist. Alle gemeinsamen Felder 
aus dem festen Teilsind eindeutig, wäh- 
rend die Felder im varianten Teil sich 
gegenseitig überlappen. 


Diese Überschneidung muß beach- 
tet werden, wenn ein Wechsel des Aus- 
wahlfeldes anfällt. Eine Anwendung 
varianter Records zeigt Listing 16. 
Bekanntermaßen kann man einen 
Punkt in der Ebene auf zwei verschie- 
dene Methoden darstellen: 


PROGRAM KOORDINATEN ( INPUT, OUTPUT); 


(* RECHNUNG MIT POLAR- UND RECHTWINKLIGEN KOORDINATEN, 2) 
(1% DARGESTELLT DURCH VARIANTE RECORDS IN PASCAL. ”) 
(* RUNDUNGSFEHLERGRENZE *) 


CONST EPSILON = 1.0E-7; 


TYPE KOORDINATENTYP = (RECHTWINKLIG, 


KOORDINATE = RECORD 


POLAR), 


In rechtwinkligen X- und Y-Koordina- 
ten oder mit Polarkoordinaten, durch 
Angabe der Entfernung des Punktes 
zum Koordinatensprung (L) und des 
Winkels zur X-Achse (PH). 

Da sich eine Darstellungsform für 
gewisse Anwendungen jeweils besser 
eignet, wird in diesem Programm mit 
varianten Records ein Wechsel zwi- 
schen beiden Darstellungen zugelas- 
sen: 


TYPE KOORDINATE = 
RECORD 
CASE TYP:KOORDINATENTYP OF 
RECHTWINKLIG: 
(X,Y: REAL); 
POLAR: 
(L,PHI: REAL); 
END; 


Es ist zu beachten, daß die Angabe 
des Typs des Auswahlfeldes (hier 
KOORDINATENTYP) durch einen Typ- 
namen erfolgen muß. Jenach dem Wert 
von Typ ist also die Koordinate durch X 
und Y oder L und PHI bestimmt. Im übri- 
gen Programm können Sie neben dem 
Nutzen der WITH-Anweisung bei der 
Arbeit mit Records auch den Vorteil der 
Case-Anweisung bei varianten Records 
erkennen. Indem man vor dem Zugriff 
auf eine Variante eine CASE-Anweisung 
setzt, die die Konstanten aus der 


WITH P DO 
CASE TYP OF 


BEGIN 
R 
PHI 
L 


RECHTWINKLIG: 


Record-Deklaration wiederholt, ist man 
vor unerlaubten Zuweisungen wie 
P.TYP:= POLAR; 

P.X := 39.4; 

geschützt. Erwähnenswert ist noch die 
Ende-Bedingung der Repeat-Schleife 
UNTIL BETRAG(P) <= EPSILON; 

Das Programm soll beendet werden, 
wenn die Entfernung des Punktes vom 
Ursprung Null ist. Da jedoch alle reellen 
Zahlen nur mit Rundungsfehlern 
berechnet werden können, verwendet 
man zwischen reellen Zahlen nie den 
Test auf Gleichheit (A=B), sondern nur 
eine Prüfung der Form ABS(A-B) <= 
EPSILON mit einer Konstanten EPSI- 
LON, die eine Schranke für die Run- 
dungsfehler auf dem jeweiligen Rech- 
ner angibt. Die Berücksichtigung dieser 
Regel hilft eine Reihe häufiger Fehler zu 
vermeiden. 

Nun sind wir am Ende unserer Einfüh- 
rung in das Programmieren mit Funktio- 
nen, Prozeduren und Datentypen ange- 
langt. Zur Vertiefung der gewonnenen 
Erkenntnisse sei es dringend angera- 
ten, ein wenig mit den abgedruckten 
Beispielen herumzuexperimentieren, 
sie zu erweitern und abzuändern. Denn 
auch in Pascal gilt der altbekannte 
Spruch vom Meister, den man nur durch 
Übung... 


(Florian Matthes/er) 


SORTIX*X + Yayıı 
ARCTANY/N); 


TYP: POLAR; 
END; 
POLAR; 
BEGIN 
R eo 
Y wm 
cm 
TYP: = 
END; 
END; (* CASE & WITH *) 
(“ UMRECHNUNG *) 


CASE TYP: KOORDINATENTYP OF 
RECHTWINKLIG: (X,Y : REAL); 
POLAR : tL,PHI: REAL); 


END; SINtPHI) AL; 


COS(t PHI)*L; 


VAR P: KOORDINATE,; 


R; 
PROCEDURE HOLEPUNKT (VAR P: RECHTWINRKLIG 


KOORDINATE); 
BEGIN 
REPEAT 
WRITE 'C-ARTESISCH ODER P-OLAR ?'); 
READLN{CH) 
UNTIL CH IN 1 'C','P'),; 


END: 
FUNCTION BETRAG( P: KOORDINATE): 
BEGIN 
IE P. TYP = RECHTWINKLIG THEN 
BETRAG: = SORT! SORLP.X) + SQORLP.Y) ) 
ELSE 
BETRAG: = P.L 
(®r BETRAG 4) 


REAL: 


WITH P DO 
IP CH = 'C‘ 
BEGIN 
TYP: = RECHTWINKLIG, 
WRITEU'X = '). READLNY; 
WRITEL'Y = '), READLN(Y) 
END 
ELSE 
BEGIN 
TYP. = CARTESISCH, 
WHRITEL'L .'); 


THEN 


PROCEDURE DRUCKEPUNKT (P: 

BEGIN 
WITH P DO 

CASE TYP OF 
RECHTWINKLIG: WRITELNU' X = ' 
POLAR : WRITELNU'L = 

END, (*% CASE *) 

(®* DRUCKEPUNKT *%) 


KOORDINATE); 


READLN(L),; (® ABSTAND VOM KOORDINATEN 
*) URSPRUNG 
WRITEU'PHI = '‘); 
END 
(®*2 HOLEPUNKT *) 


END; 
BEGIN 
REPEAT 
HOLEPUNKT( PD; 
DRUCKEPUNKTEP),; 
UMRECHNUNG(P); 
DRUCKEPUNRTEP); 
UNTIL BETRAG(P)<= EPSILON; 
END. 


READLN( PHI); (* WINKEL ZUR X-ACHSE *) 

END; 

PROCEDURE UMRECHNUNG (VAR P: KOORDINATE); 

(* UMRECHNUNG DER BEIDEN KOORDINATENTYPEN *) 
VAR R: REAL: 


BEGIN 


Listing 16. Koordinatenumrechnung mit varlanten Records 











Spitzen-Softwure für 
Schneider-Computer 
und Commodore 128 PC 








WordStar 3.0 mit MailMerge ner Bestseller unter den Textverarbei- 
tungsprogrammen für PCs bietet Ihnen bildschirmorientierte Formatierung, deutschen 
Zeichensatz und DIN-Tastatur sowie integrierte Hilfstexte. Mit MailMerge können Sie 
Serienbriefe mit persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben 
und auch die Adreßaufkleber drucken. 

WordStar/MailMerge für den Schneider CPC 464°, CPC 664° 

Bestell-Nr. MS 101 (3° -Diskette) 

Bestell-Nr. MS 102 (5'/, "-Diskette Im VORTEX-Format) 

WordStar/MaliMerge für den Schneider CPC 6128 

Bestell-Nr. MS 104 (3° -Diskette) 

WordStar/MailMerge für den Schneider Joyce PCW 8256 

Best.-Nr. MS 105 (3 ° -Diskette) 

Hardware-Anforderungen: Schneider CPC 464 *, CPC 664°, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* Der Standard-Speicherplatz beim CPC 464/664 erlaubt ohne Speichererweite- 
rung Blockverschiebe-Operationen nur bedingt und Simultan-Drucken gar nicht. 
WordStar/MailMerge für den Commodore 128 PC 

Bestell-Nr. MS 103 (5', ”-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


dBASE li, Version 2.41 dBAse ıı, das meistverkaufte Programm unter 
den Datenbanksystemen, eröffnet Ihnen optimale Möglichkeiten der Daten- u. Datei- 
handhabung. Einfach u. schnell können Datenstrukturen definiert, benutzt und geän- 
dert werden. Der Datenzugriff erfolgt sequentiell oder nach frei wählbaren Kriterien, die 
integrierte Kommandosprache ermöglicht den Aufbau kompletter Anwendungen wie 
Finanzbuchhaltung, Lagervermaltung, Betriebsabrechnung usw. 

dBASE Il für den Schneider CPC 464°, CPC 664° 

Bestell-Nr. MS 301 (3° -Diskette) 

Bestell-Nr. MS 302 (5'/, "-Diskette Im VORTEX-Format) 

dBASE II für den Schneider CPC 6128 

Bestell-Nr. MS 304 (3 ”-Diskette) 

dBASE Il für den Schneider Joyce PCW 8258 

Best.-Nr. MS 305 (3 "-Diskette) 

Hardware-Anforderungen: Schneider CPC 464 *, CPC 664 *, CPC 6128 oder Joyce. 
beliebiger Drucker mil Centronics-Schnittstelle 

* dBASE Il für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. Diese erhalten Sie direkt bei der Firma VORTEX oder bei 
Ihrem Computerhändler 

dBASE II für den Commodore 128 PC 

Bestell-Nr. MS 303 (5 ” -Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


MULTIPLAN, Version 1.06 wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen mit Bleistift, Radiergummi und Rechenmaschine 
satt haben, dann ist MULTIPLAN, das System zur Bearbeitung »elektronischer Datenbilät- 
ter«, genau das richtige für Sie! Das benutzerfreundliche und leistungsfähige Tabellenkal- 
kulationsprogramm kann bei allen Analyse- und Planungsberechnungen eingesetzt wer- 
den wie z.B Budgetplanungen, Produktkalkulationen, Personalkosten usw. Spezielle For- 
matierungs-, Aufbereitungs- und Druckanweisungen ermöglichen außerdem optimal auf- 
bereitete Präsentationsunterlagen! 

MULTIPLAN für den Schneider CPC 464°, CPC 664° 

Bestell-Nr. MS 201 (3 °-Disketie) 

Bestell-Nr. MS 202 (5', “-Diskette im VORTEX-Format) 

MULTIPLAN für den Schneider CPC 6128 

Bestell-Nr. MS 204 (3 "-Diskette) 

MULTIPLAN für den Schneider Joyce PCW 8256 

Best.-Nr. MS 205 (”-Diskette) 

Hardware-Anforderungen. Schneider CPC 464 *, CPC 664 *, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* MULTIPLAN für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. 

MULTIPLAN für den Commodore 128 PC 

Bestell-Nr. MS 203 (5), "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


Sie erhalten jedes WordStar-, dBASE Ik und MULTIPLAN-Programm für Ihren Schneider- 
Computer oder Commodore 128 PC fertig angepaßt (Bildschirmsteuerung) Jeweils 
Orlginalproduktel Jedes Programmpaket enthält außerdem ein ausführliches Handbuch 
mit kompakter Befehlsübersicht. Die VORTEX-Speichererweiterung für den Schneider 
CPC 464 erhalten Sie direkt bei der Firma VORTEX oder bei Ihrem Computerhändler. 
Diese Markt & Technik-Softwareprodukte erhalten Sie In den Computer-Abteilungen 
der Kaufhäuser, bei Ihrem Computerhändler oder Im Buchhandel. 

Wenn Sie direkt beim Verlag bestellen wollen: gegen Vorauskasse durch Verrechnungs- 
scheck oder mit der eingehefteten Zahlkarte. 

Bestellungen im Ausland bitte an untenstehende Adressen. 

Schweiz: Markt & Technik Vertriebs AG, 

Kollerstrasse 3, CH-6300 Zug, 2 042/415656 

Österreich: Überreuter Media, Handels- und Verlagsges. mbH, 

Alser-Str. 24, A-1091 Wien, E 0222/48 1538-0 


Für Auskünfte steht Ihnen Herr Teller, Telefon 089/46 13-205, gerne zur Verfügung. 
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Dateiverwaltung mil 


at man große Datenmengen zu 
verarbeiten, so reicht der 
Arbeitsspeicher des Compu- 
ters im allgemeinen nicht aus. Außer- 
dem gehen alle Daten im Hauptspei- 
cher beim Ausschalten des Computers 
verloren. Um langfristig große Datenbe- 
stände zu konservieren, benötigt man 
externe Speichermedien (Floppy-Disk, 
Festplatten, aber auch Band- und Kas- 
settenlaufwerke). 

Ein großes Problem ist nun die Tat- 
sache, daß es fast so viele Betriebs- 
systeme wie Computertypen gibt. Da 
jedoch Pascal sowohl auf Mikrocompu- 
tern als auch Großrechenanlagen im- 
plementiert ist, muß ein möglichst 
systemunabhängiges Konzept zur Dar- 
stellung externer Speicher in der Spra- 
che gefunden werden. Diese Lösung 
besteht in der Formalisierung des Prin- 
zips der sequentiellen Dateien, die man 
als den kleinsten gemeinsamen Nenner 
aller Dateiverwaltungssysteme be- 
zeichnen kann. 

Mit der Deklaration 
TYPE ZAHLENDATEI = FILE OF 
INTEGER; 

VAR D: ZAHLENDATEI; 

wird ein File D vereinbart, dessen Kom- 
ponenten aus ganzen Zahlen beste- 
hen. Allgemein kann nach den Schlüs- 
selworten FILE und OF jeder beliebige 
(auch zusammengesetzte) Typ folgen. 
Wie in einem Array besitzen alle Kom- 
ponenten denselben Typ. Jedoch kann 
ein File (praktisch) beliebig viele Kom- 
ponenten umfassen, die nur in fester 
Reihenfolge adressiert werden können. 
Zu jedem Zeitpunkt ist immer nur eine 
Komponente erreichbar. Diese aktuelle 
Komponente wird im obigen Beispiel 
mit Di bezeichnet und ist vom Typ INTE- 
GER. 

Um nun weitere Komponenten zu 
erreichen, kann man die aktuelle Kom- 
ponente (Puffervariable) Di wie ein 
Fenster über das gesamte File ver- 
schieben (siehe Bild 1). Ein konkretes 
Beispiel für das Schreiben und Lesen 
eines Files zeigt Listing 1. Es demon- 
striertr die beiden Methoden des 
Zugriffs auf Files in Pascal. 





1. Sequentielles Schreiben 

Um ein File zuerzeugen, muß man die 
Standardprozedur REWRITE mit der 
Filevariablen (im Beispiel also D!) aufru- 
fen. Dadurch werden alle Komponenten 
gelöscht, die eventuell zuvor im File exi- 
stierten. Das Schreibfenster (D1 im Bei- 


AR 





Pascal 


Dieser Beitrag beschäftigt sich 
mit dem Datei-Begriff von Pascal 
und gibt Hinweise und Beispiele 
für die effiziente Verwaltung gro- 
Ber Datenmengen. 


spiel) steht über der ersten Kompo- 
nente und besitzt einen undefinierten 
Wert (siehe Bild 2a). Eine Zuweisung wie 
DI := 99; 

füllt den Puffer mit dem angegebenen 
Wert (Bild 2b). Natürlich erfolgen auch 
bei Files die üblichen Typüberprüfun- 
gen, so daß der Compiler die Zuwei- 
sung »D! :='K'« als fehlerhaft erkennt. 
Mit PUT(D) wird der Wert des Puffers in 
das File geschrieben und der Schreib- 
zeiger eine Position weiter gesetzt. 
Jede Wiederholung der Schritte Wert- 
zuweisung an den Puffer und Puffer 
schreiben erweiter das File um jeweils 
eine Komponente (Bild 2c): 

Di@2=2235 PUT(D); 

Es ist beim sequentiellen Schreiben 
nicht möglich, eine bereits geschrie- 
bene Komponente wieder zu korrigie- 
ren, da dazu der Schreibzeiger rück- 
wärts bewegt werden müßte. 

2. Sequentielles Lesen 

Durch den Aufruf der Standardproze- 
dur RESET mit der Filevariablen als 
Parameter wird die Puffervariable auf 
den Wert der ersten Komponente im 


PUT, OUTPUT): 
: FILE OF INTEGER; 


: INTEGER; 





File gesetzt (Bild 2d). Die Puffervariable 
kann man wie eine »normale« Variable in 
Ausdrücken verwenden und so das File 
Stück für Stück bearbeiten. Im Beispiel 
ergibt die Befehlsfolge 

RESET(D); WRITE(DI, DI+5) 

die Ausgabe »99 104«. Aufruf GET(D) 
setzt die Puffervariable wiederum eine 
Position weiter, so daß D! den Wert 43 
enthält (Bild 2 e). Nach einem erneuten 
Aufruf von GET(D) steht das Lesefen- 
ster hinter der letzten belegten Kompo- 
nente (Bild 2f) und die Puffervariable ist 
undefiniert. Um festzustellen, ob das 
Lesefenster über einem definierten 
Wert steht oder sich hinter dem 
Fileende befindet, dient die Standard- 
funktion 

EOF(Filevariable) 

So lieferte EOF(D) den booleschen 
Wert TRUE, falls DI sich in der letzten 
Komponente (wie in Bild 2f) befindet. 
Insbesondere ist EOF=TRUE, falls man 
ein leeres File mit RESET zum Lesen 
eröffnet. Da im Beispielprogramm in 
Listing 1 die Länge des Files unbekannt 
ist, wird eine Schleife der Form 
WHILE NOT EOF(D) DO 
verwendet. Übrigens ist per Definition 
EOF(D)=TRUE, falls auf das File D 
(nach RESET(D)) geschrieben wird. 

Man kann ein File in beliebiger Rei- 
henfolge mit RESET und REWRITE zum 
sequentiellen Lesen und Schreiben 


(* ZAHLEN VON DER TASTATUR AUF FILE SCHRIEIBEN: *) 


REWRITE( ZAHLENDATEI); 
REPEAT 
READLN(X); 
ZAHLENDATEI : = X; 
PUT(ZAHLENDATEI); 
UNTIL X=0; 


(* SEQUENTIELL SCHREIBEN *) 


(* PUFFER MIT ZAHL FÜLLEN *) 
(* PUFFER SCHREIBEN n) 


(%* ZAHLEN VOM FILE LESEN UND SCHREIBEN: *) 


RESET ZAHLENDATEI), 


(* SEQUENTIELL LESEN *) 


WHILE NOT EOF( ZAHLENDATEI) DO (* SOLANGE NICHT HINTER DEM DATEIENDE * 


BEGIN 
X: = ZAHLENDATEI ; 
HRITELN(NY); 
GET(ZAHLENDATEI); 

END; 

END. 


(* PUFFER AUSLESEN *) 


(%* PUFFER AUF NÄCHSTE ZAHL *) 


Listing 1. Grundlegende Flleoperationen 
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Bild 2. Operationen in einem File (a bis f) 


PROGRAM MERGE( INPUT, OUTPUT), 
(?* 2 PHASEN 3-BAND NATÜRLICHES MISCHSORTIERTEN *) 


TYPE ITEM = RECORD 
KEY: INTEGER, (A ODER CHAR, REAL, 
(% HIER KÖNNEN WEITERE FELDER STEHEN *) 


END; 
TAPE = FILE OF ITEM; 


(* DIESES FILE WIRD SORTIERT *) 
(* HILFSVARIABLE ZUR EINGABE *) 


VAR C 
BUF: 


TAPE; 
ITEM; 


PROCEDURE LIST (VAR F: TAPE); 
(*% 2EIGE DEN INHALT VON F AN %) 
VAR X: ITEM; 
BEGIN 
RESET(F): 
WHILE NOT EOF(F) DO 
BEGIN 
X.KEY:= FE. KEY; 
GET(F); 
WRITELX. KEY: 4) 
END; 
WRITELN 
END; (* LIST %) 


PRCEDURE NATURALMERGE; 
(* SORITERE DAS FILE C (GLOBAL) 
(* DIE PROZEDUR BENUTZT ZWEI HILFSFILES A UND B. 
VAR L INTEGER; (* ANZAHL DER LÄUFE AUF C 
EOR: BOOLEAN (”% END OF RUN, ENDE DES LAUFES 
A,B: TAPE, (%* HILFSFILES 


PROCEDURE COPYLVAR X,Y: TAPE), 
(* KOPIERE RECORD VON X NACH Y, 
VAR BUF: ITEM: 
BEGIN 
BUF. KEY: = X°.KEY; GET(XY); 
Y’.KEY:= BUF. KEY; PUT(Y); 
IF EOF( X) THEN EOR: =TRUE 
ELSE EOR: =BUF. KEY>X . KEY 
END; (* COPY +) 


AKTUALISIERE EOR 


PROCEDURE COPYRUN (VAR X,Y: TAPE), 
(#4 KOPIERE KOMPLETTEN LAUF VON X NACH Y *) 
BEGIN 

REPEAT COPY(X, 9 
END, (* COPYRUN *) 


UNTIL EOR 


PROCEDURE DISTRIBUTE, 
t(* KOPERE LÄUFE VON C ABWECHSELND AUF A UND B *%) 
BEGIN 

REPEAT 


Listing 2. Natürliches Mischsortieren mit Flies 


AN; ” 
GEllus 3b 





ARRAIL.. 


IN MEHREREN DURCHLÄUFEN. 


a) REWRITE (D) 


b)DI:=99 


c) PUT (D), DI =43 


d) RESET (D) 





I OF CHAR *) 














eröffnen, jedoch ist zu beachten, daß 
jeder Aufruf mit REWRITE alle im File 
existierenden Komponenten löscht. 
Möchte man ein bestehendes File am 
Ende erweitern, so muß man zunächst 
das gesamte File mit GET und PUT auf 
ein anderes File kopieren, an das man 
dann mit PUT die neuen Komponenten 
anfügt. Sollten Sie beim Test des Pro- 
grammes in Listing 1 nicht das 
gewünschte Ergebnis erhalten, so liegt 
das wahrscheinlich daran, daß der 
Compiler für Ihren Computer zusätzli- 
che Anweisungen zur Arbeit mit Files 
benötigt. 

In Turbo-Pascal zum Beispiel verlangt 
eine Filevariable vor dem ersten RESET 
oder REWRITE mit der Prozedur 
ASSIGN einen 
ASSIGN(D, 'DATEN.SEQ') 

Außerdem sollten in Turbo-Pascal 
unter dem Betriebssystem PC-DOS alle 
Files (auch solche, von denen nur gele- 
sen wurde) am Ende der Verarbeitung 
mit CLOSE geschlossen werden: 
CLOSE(D) 

Werfen Sie bei Schwierigkeiten also 
zunächst einen Blick in die Handbü- 
cher. Neben diesem zusätzlichen Auf- 
wand bei der Behandlung sequeniieller 
Dateien bieten viele Compiler die Mög- 
lichkeit, die Schreib- und Leseposition 
in einem File gezielt zu setzen. Mit 
SEEK(D,400) 
zeigt die Puffervariable auf die 400. 
Komponente im File. Arbeitet man mit 
einer Festplatte, so läßt sich ein File wie 
ein Array variabler Größe mit hundert- 
fach langsamerer Zugriffszeit verwen- 
den. 

Zurück zum Pascal-Standard. Eine 
grundlegende Operation mit Files ist 
das Sortieren. Für das Sortieren von 
Arrays gibt eseine Vielzahl von Algorith- 
men, deren Verständlichkeit oft umge- 
kehrt proportional zur Sortiergeschwin- 
digkeit ist. Falls Sie Pascal und nicht das 
Sortieren auf externen Speicherme- 
dien lernen wollen, ist in Listing 2 ein 
Programm zum sogenannten »3-Band-, 
2-Phasen-Mischsortieren« abge- 
druckt. 


Natürlich kann man ein File dadurch 
sortieren, daß man es komplett in den 
Speicher lädt, dort sortiert und es 
anschließend geordnet zurückschreibt. 
Reicht jedoch (was häufig der Fall ist) 
der Arbeitsspeicher nicht aus, so hat 
man von jedem File in jedem Schritt nur 
die Komponente der Puffervariablen 
zur Verfügung. Um ein File umzusortie- 
ren, benötigt man also mindestens drei 
Files. Von einem File wird sequentiell 
gelesen, während die gelesenen Werte 
in möglichst geschickter Reihenfolge 
auf die beiden übrigen Files verteilt wer- 
den (Prozedur DISTRIBUTE). Anschlie- 
Bend werden die beiden erzeugten 
Files zum Lesen eröffnet und auf das 
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ursprüngliche Lesefile zurückgeschrie- 
ben (Prozedur MERGE), wobei jeweils 
zwei sortierte Teilsequenzen zu einer 
sortierten Sequenz auf dem Ausgangs- 
file verbunden werden. 

Durch eine Wiederholung der zwei 
Phasen Verteilen und Mischen (dies ist 
der Fachausdruck für das Zusammen- 
fassen zweier teilweise geordneter 
Files zu einem dritten, ebenfalls geord- 
neten File) erhält man schließlich ein 
sortiertes File. Ein Beispiel soll das Ver- 
halten des Programmes verdeutlichen: 
C= (143275 6 8) verteilt ergibt 


( 
( 


( 
( gemischt ergibt 
(124345678) 

Noch ein paar Worte zur Theorie: 
Eine geordnete Teilfolge innerhalb 
eines Files wird als Lauf (englisch run) 
bezeichnet. So besteht die Folge 
1,4/3/2,7/5,6,8 
aus Läufen. Demzufolge werden mit 
DISTRIBUTE Läufe von C abwechselnd 
nach AundB verteilt, und anschließend 
mit MERGE Läufe auf A und B zu Läufen 
auf C zusammengefaßt. Die Variable L 
zählt die Anzahl der Läufe auf ©. IstL=1, 
so muß also C aufsteigend geordnet 
sein. 

Das Programm selbst zeigt praktisch 
alle Operationen, die mit Files in Pascal 
möglich sind. Zunächst wird ein 
Recordtyp ITEM vereinbart, der ein 
Schlüsselfeld KEY vom Typ INTEGER 
besitzt. Natürlich könnte an dieser 
Stelle auch ein anderer skalarer Typ 
oder auch der Typ ARRAYf1..N] OF 
CHAR stehen. Dann interpretiert der 
Compiler alle Vergleichsoperationen 
mit »=« und »>« korrekt. 

Anschließend wird der eigentliche 
Filetyp TAPE deklariert. Jede Kompo- 
nente der Files besteht also aus einem 
Record, so daß mit jedem Aufruf von 
PUT und GET ein kompletter Record 
zwischen Puffervariable und File über- 
tragen wird. 

C bezeichnet das zu sortierende File, 
das am Programmanfang in einer 
REPEAT-Schleife mit einer Folge gan- 
zer Zahlen gefüllt wird. Die Prozedur 
LIST zeigt, daß man auch Files als Para- 
meter übergeben kann. Dabei muß man 
jedoch Variablenmeter verwenden. In 
LIST wird zunächst das File F zum 
Lesen eröffnet und anschließend in 
der üblichen Weise mit einer WHILE- 
Schleife ausgelesen. Hinter dem 
Namen NATURALMERGE verbirgt sich 
die eigentliche Prozedur zum Sortieren. 
Den Beginn und das Ende des Anwei- 
sungsteils der Prozedur kennzeichnen 
Kommentare. Sicher ist Ihnen schon 
aufgefallen, daß man ein größeres File 
in Pascal am besten von hinten liest, da 
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COPYRUN(C, A); 


IF NOT EOFtC) THEN COPYRUN(C,B),; 


UNTIL EOP(C), 
END, (* DISTRIBUTE *) 


PROCEDURE MERGE, 
(* MISCHE FILE A UND B ZU FILE C. 


PROCEDURE MERGERUN,;, 


L (GLOBAL) ZÄHLT DIE LÄUPE *) 


(® MISCHE LÄUFE VON A UND B ZU LÄUFEN AUF C *) 


BEGIN 
REPEAT 
IF A. KEY<B". KEY THEN 
BEGIN 
COPY(LA,C); 
IF EOR THEN COPYRUN(B,C) 
END 
ELSE 
BEGIN 
COPY(B,C);, 
IF EOR THEN COPYRUN(A,C) 
END 
UNTIL EOR; 
END; (* MERGERUN %) 


BEGIN (* MERGE *) 
L: = 0; 
(% ZUNÄCHST FILES MISCHEN, 
REPEAT 
MERGERUN; L: =L+1 
UNTIL EOF(A) OR EOF(B), 


(* KLEINEREN SCHLÜSSEL KOPIEREN *) 


BIS EINES ZU ENDE: *) 


(* JETZT DEN REST VOM JEWEILIGEN PILE KOPIEREN *) 


WHILE NOT EOF(A) DO 
BEGIN 
COPYRUN A,C); 
L: =L+1 
END; 
WHILE NOT EOF(B) DO 
BEGIN 
COPYRUN: B,C); 
L: =L+1 
END; 
END, (* MERGE *) 


BEGIN (* NATURALMERGE *) 


(* ABWECHSELND VERTEILEN UND MISCHEN, BIS NUR 


REPEAT 
REWRITE(A); 
DISTRIBUTE,; 
RESET( A); RESET(B); 
MERGE; 
LIST(C); 

UNTIL L=e1; 

END; (* NATURALMERGE *) 


REWRITE(B), 


BEGIN (* HAUPTPROGRAMM *) 


RESET(C); 


REWRITE(C) 


EIN LAUF AUF C IST *) 


(* VON C NACH A UND B *) 


(* NUR ZUR VERDEUTLICHUNG *) 


WRITELN!' SORTIEREN EINES SEQUENTIELLEN FILES: '‘),; 


WRITELNt' EINGABEZAHLEN: 


REWRITELC): 
READ( BUF. KEY); 
REPEAT 
C’.KEY: = BUF. KEY; 
READ( BUF. KEY) 
UNTIL BUF. KEY=0; 


PUT(C),; 


LIST(C), 
NATURALMERGE; 
END. 


(* SORTIERE C *) 


(MIT 0 ABSCHLIESSEN) '),; 


(* AUF C SCHREIBEN 4) 


(“2 ZUR KONTROLLE EINGABEZAHLEN ANZEIGEN *) 


Listing 2. Natürliches Mischsortieren mit Flies (Schluß) 





durch die Schachtelung der Prozedu- 
ren die Anweisungsteile des Hauptpro- 
grammes und der wichtigen Prozedu- 
ren eben nach »hinten« wandern. 
NATURALMERGE selbst besteht, 
wie bereits besprochen, im wechsel- 
seitigen Aufruf der beiden Phasen 
DISTRIBUTE und MERGE, bis C nur 
noch einen Lauf umfaßt. In der Hierar- 
chie der Prozeduren steht die Prozedur 
COPY am weitesten unten. Sie kopiert 
eine Komponente vom FileX zum File Y. 
Um das Ende eines Laufes zu erken- 
nen, findet hier die boolesche Variable 
EOR (end of run, Ende des Laufs) 
Anwendung. So istnach der Zuweisung 





EOR:= BUF.KEY >X1.KEY 
die Variable EOR = TRUE, falls das Feld 
KEY im Record BUF größer als das ent- 
sprechende Feld in der Puffervariablen 
des Files X ist. Danach jedem Durchlauf 
die bisher erreichte Sortierung auf dem 
File C angezeigt wird, sehen Sie mit den 
folgenden Testdaten die Funktions- 
weise des Programmes am deutlich- 
sten: 
8,7,6,5,4,3,2,1,0 

Als nächstes wenden wir uns einem 
speziellen Typ von Files zu. Während 
die Files, die mit PUT und GET erzeugt 
werden, die Daten Byte für Byte wie im 
Speicher darstellen, ist es oft sinnvoll, 








Ein- und Ausgaben zu verwenden, die 
ein Mensch verstehen kann. Konkret 
gesprochen stellt man sich unter der 
Zahl 12345 die Zeichenfolge »12345« 
und nicht etwa zwei Byte ($30 und $39 
hexadezimal) vor. 

Da Files die aus Zeichenfolgen 
bestehen, eine große Rolle spielen, exi- 
stiert in Pascal ein vordefinierter Typen- 
bezeichner 
TYPE TEXT = FILE OF CHAR; 

Mit der Deklaration 

VAR F: TEXT; 

können neben den Operationen RESET 
und REWARITE auf das Textfile F auch 
formatiert Werte ein- und ausgegeben 
werden. Das Prinzip besteht darin, den 


PROGRAM TEXTFILES (INPUT, OUTPUT); 


PROCEDURE FORMAT( VAR EINGABE, 


AUSGABE: 





Prozeduren READ, READLN, WRITE 
und WRITELN als ersten Parameter 
eine Filevariable zu übergeben, von der 
die Eingabe kommt oder auf welche die 
Ausgabe erfolgen soll: 

(1) WRITE(F,AUSDRUCK : n) 

Mit diesem Prozeduraufruf wird der 
Ausdruck vom Typ INTEGER, REAL, 
CHAR oder BOOLEAN auf das File F in 
ein Feld mit einer Mindestlänge von n 
Zeichen geschrieben. Ist die Länge des 
auszugebenden Wertes größer als n, 
so wird n ignoriert: 


WRITE(123456 : 10); WRITE('*': 3) 
erzeugt also folgende Ausgabe: 
AIR ee 


Ist der Ausdruck vom Typ REAL, so 


TEXT, RECHI1S: INTEGER), 


(* FORMATIERE VON EINGABE NACH AUSGABE AUF RECHTEN RAND IN DER SPALTE 


(4 RECHTS. LEERE ZEILEN, 
(* VERÄNDERT. 


CONST SPACE = en 
TYPE LINEINDEX = 1..136; 
VAH LINE 
BIS,I: LINEINDEX; 
ZEILE: INTEGER, 
3 : INTEGER: 
P.W INTELER: 
T : INTEGER, 


LFD. 


ODER ZEILEN MIT NUR EINEM WORT WERDEN NICHT 


ARRAY ULINEINDEX]) OF CHAR, 


ZEILENNUMMER 
ANZAHL DER EINZUFÜGENDEN LEERZEICHEN IN ZEILE 
ANZAHL DER LEERZEICHEN NACH JEDEM WORT 

INDEX DES WORTES, 


NACH DEM ZUM 1. MAL u LEER- 


ZEICHEN EINGEFÜGT WERDEN SOLLEN 


‚N :  INTEGER, 


PROCEDLUNRE READLINE(VAR 


LASTCOLUMN. INTEGER:; 


ANZAHL DER WORTE IN DER ZEILE 


VAR WORDS: INTELER), 


(A KOMPLETTE ZEILE EINLESEN UND IN LINE (GLOBAL) SPEICHERN 
(%* AN LASTCOLUMN STEHT DAS LETZTE ZEICHEN UNGLEICH SPACE IM 


i% TEXT. 
(* LEERZEICHEN GETRENNTEN HORTE. 
VAR MWASSPACE, 
I : 
CH : CHAR, 

BEGIN 
L: =1; WASSPACE: = TRUE, 
WHILE NOT EOLN( EINGABE) DO 

BEGIN 
READ( EINGABE, CH), 
ISSPACE: = CH=SPACE,; 
IE NUT ISSPACE THEN 
BEGIN 

LASTCOLUMN: = |; 


ISSPACE: 


IF WASSPACE THEN WORDS: = WORDS +1; 


END; 
WASSPACE: = ISSPACE; 
END; 
LINELLASTCOLUMN+ 1]: = SPACE; 
END: (* READLINE A) 


PROCEDURE COPYWORD, 


HINTER DEM TEXT EIN SPACE. 


BOOLEAN, 
LINEINDEX,; 


WORDS: = 


LINEI I): = 


I:= Iei 


WORD ZÄHLT DIE DUHCH 


0; LASTCOLUMN: =0; 


CH; 


(4 WORTANFANL 4) 


READLN(EINGABE), 


(4 Ab DER MOMENTANEN POSITION IN LINE WORT MIT VORLAUFENDEN SPACES *) 


(A BIS ZUM NÄCHSTEN SPACE AUSGEBEN 


BEGIN 
WHILE LINEILI]I=SPACE DO 
BEGIN WRITE( AUSGABE, SPACE); 
REPEAT 
WRITE( AUSGABE, LINE I]D, 
UNTIL LINELI]=SPACE; 
END; (* COPYWORD *) 


PROCEDURE INSERTSPACESIN: 
(* N LEERZEICHEN AUSGEBEN %) 
BEGIN 

IF NO THEN WRITE (AUSGABE, 
END; (* INSERTSPACES *) 


BEGIN (* FORMAT :) 
RESET( EINGABE), 
ZEILE: = 0; 


WHILE NOT EOF( EINGABE) DO 
DEGIN 

READLINE(BIS,N); 

S: = RECHTS-BIS,; 


I: =I#1 


I:= Ir+1i END; 


INTEGER), 


SPACE : N) 


REWRITE( AUSGABE), 


ZEILE: = ZEILE + 1, 
(* ANZAHL DER FEHLENDEN LEERZEICHEN *) 


Listing 3. Kopleren und Formatieren eines Textfiles 

















sind nach dem Doppelpunkt zwei For- 
matierungsangaben möglich: 


WRITE(F,reeller Ausdruck: n : m) 
druckt die reale Zahl nicht in Gleit- 
kommadarstelung (zum Beispiel 
1.00000E + 2), sondern in Festkomma- 
darstellung. Dabei gibt n wieder die 
Mindestgröße des Feldes an, in das die 
Zahl ausgegeben wird, wohingegen m 
die Anzahl der angezeigten Nachkom- 
mastellen wiedergibt: 

WRITELN(1.2345 : 10: 5) 

ergibt die Ausgabe 

___1.23450 

(2) WRITELN(F) 

Wichtig ist die Tatsache, daß sich die 
Zeichen auf einem Textfile in Zeilen glie- 
dern. Mit dem Prozeduraufruf WRI- 
TELN(F) wird auf dem Texttfile F ein Zei- 
lenende erzeugt. Technisch bewirkt 
dies die Ausgabe von ein oder zwei 
Steuerzeichen (CR, eventuell LF, car- 
riage return und line feed, also Wagen- 
rücklauf und Zeilenvorschub) auf das 
File F. 

Eine Folge von Ausgaben, wie 
WRITE(F,A); WRITE(F,B); WRITE(F, 
0); 
kann immer zusammengefaßt werden 
zu 
WRITE(F,A,B,C) 

Außerdem entspricht der Aufruf 
WRITELN(F,A,B,...) 

der Befehlsfolge 
WRITE(F,A,B,...);WRITELN(F) 

Somit erzeugt also die Ausgabe mit 
WRITELN immer einen Zeilenwechsel 
am Ende der Ausgabe. Natürlich muß 
vor allen Schreiboperationen das FileF 
mit REWRITE(F) zum Schreiben eröff- 
net worden sein. Dabei werden wieder 
alle Zeichen, die eventuell zuvor in F 
existierten, gelöscht. Beabsichtigt man 
eine Ausgabe auf dem Standard-Aus- 
gabegerät (dem Bildschirm), so bietet 
sich als Filevariable die vordeklarierte 
Variable OUTPUT an. Diese kann man 
sich mit der Deklaration 
VAR OUTPUT: TEXT; 
vereinbart denken. In Wirklichkeit wird 
man jedoch in diesem Fall den Filepara- 
meter bei WRITE nicht angeben, und 
erhält somit die vereinfachte Syntax, 
die Sie bereits am Anfang des Artikels 
kennengelernt hatten: 

WRITE(OUTPUT, 'Hallo Bildschirm!) 
läßt sich also ersetzen durch 

WRITE( 'Hallo Bildschirm'). 

(3) READ(F, Variable) 

Vom Textfile F werden Zeichenfolgen 
eingelesen und als Werte des Typs der 
Variablen interpretiert. Am besten kann 
man diese Umwandlung von Zeichen- 
folgen auf dem File in Werte, zum Bei- 
spiel des Typs INTEGER, an Beispielen 
verdeutlichen: 

VAR I: INTEGER; 
R: REAL; 
C: CHAR; 
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Befindet sich auf dem File F folgende 
Zeichenfolge: 

1234 34 .55X 

so bewirkt der Prozeduraufruf READ 
(FI,R,C) folgende Zuweisungen: 
I:=1234; R:=34.55; C:='X' 

Ist der Parameter bei READ eine 
ganze oder reelle Zahl, so werden zu- 
nächst Leerzeichen und Zeilenwechsel 
ignoriert. Anschließend wird eine Zif- 
fernfolge eingelesen und der entspre- 
chende Wert der Variablen zugewie- 
sen. Eine nachfolgende READ- 
Operation verarbeitet das Zeichen, das 
direkt hinter der gelesenen Zahl 
beginnt. Daher besitzt die Variable C im 
obigen Beispiel den Wert »X«. 

(4) READLN(F) 

Vom File F werden solange Zeichen 
eingelesen, bis ein Zeilenende erkannt 
wurde. Der nächste Aufruf der Prozedur 
READ mit dem File F liest das erste Zei- 
chen der folgenden Zeile. Es gibt eben- 
falls ein Standardfile zur Eingabe, das 
folgendermaßen vordeklariert ist: 

VAR INPUT: TEXT; 

Wiederum kann man Eingaben von 
der Tastatur als Standard-Eingabe auch 
ohne Angabe einer Filevariablen errei- 
chen. READ(INPUT,I,R.C) entspricht 
READII,R,C) und liest drei Werte von 
der Tastatur. 

(5) EOLN(F) 

Die Standardfunktion EOLN, ange- 
wandt auf ein Textfile F, liefert einen 
booleschen Wert. Er ist genau dann 
TRUE, falls bei der letzten Eingabe vom 
File F das Zeilenende erreicht wurde. 
Bitte beachten Sie, daß Sie beim Ein- 
lesen nie die oben genannten Steuer- 
zeichen (Zeilenwechsel oder Wagen- 
rücklauf) erhalten, da diese vom Pascal- 
Laufzeitsystem automatisch in Leerzei- 
chen (blanks) umgewandelt werden. 

Nach diesen zugegebenermaßen 
recht detaillierten Ausführungen über 
Textfiles in Pascal sollen Sie zur Beloh- 
nung auch ein wirklich sinnvolles Pro- 
gramm kennenlernen. Es kopiert einen 
Text von einem Textfile zu einem ande- 
ren und formatiert dabei Zeilen rechts- 
bündig (Listing 3). 

Die Prozedure FORMAT wird mit drei 
Parametern aufgerufen. EINGABE liest 
den zu formatierenden Text und 
schreibt ihn auf AUSGABE. RECHTS 
enthält die Spalte, in der jede Zeile 
enden soll. Für einen Testlauf können 
Sie RECHTS beispielsweise auf 40 Zei- 
chen setzen. 

Nachdem EINGABE und AUSGABE 
korrekt zum Lesen und Schreiben eröff- 
net wurden, wird jeweils eine Zeile mit 
READLINE eingelesen, entschieden, 
ob die Zeile formatiert werden muß und 
schließlich die formatierte Zeile ausge- 
geben. Beim Einlesen (READLINE) wird 
der Text in einen Zeilenpuffer LINE 
geschrieben. Alle Indizes in diesem 


92 


IF (N<=1) OR (S<c=O) THEN (* 1:1 KOPIEREN *%; 


WHILE I<c=BIS DO 
BEGIN WRITE( AUSGABE, 
ELSE 


LINELI))D, 


I:= I»1 END 


BEGIN (* BERECHE ANZAHL DER LEERZEICHEN UND VERTEILUNG: *) 


IF ODDE ZEILE) THEN 
BEGIN 
P:= S DIV (N-1),; 
Q: = Pr1; 


TRIP RENT). € No 


END 
ELSE 
BEGIN 


Q:= S DIV (N-1); 

P:=2 Q+1; 

IS + 1-9 *“ NEM 
END; 


FOR K:= 1 TO N-1 DO 
BEGIN 
COPYWORD, 


(* VON LINKS EINFÜGEN *) 


(* VON RECHTS EINFÜGEN *) 


(* WORTE KOPIEREN UND ERWEITERN *) 


IF K>=T THEN INSERTSPACES(Q) 
ELSE INSERTSPACES(P) 


END; 
COPYWORD,; 
END; (* IF *%) 
WRRITELN( AUSGABE); 
END, (* WHILE NOT EOF... *) 
END; (* FORMAT *) 


BEGIN 
FORMAT(U INPUT, OUTPUT, 40), 
END. 


(* LETZTES WORT *) 


Listing 3. Kopieren und Formatieren eines Textflles (Schluß) 





ARRAY von Zeichen sind als Aus- 
schnittstypen 

TYPE LINEINDEX = 1..136 

deklariert. Außerdem bestimmt READ- 
LINE die Anzahl der Worte in der Zeile 
und die letzte Spalte, in der ein Buch- 
stabe stand. Diese Werte kommen als 
Variablenparameter zurück. Anschlie- 
Bend wird die Anzahl der Leerzeichen 
bestimmt, die in die Zeile einzufügen 
sind, damit das letzte Zeichen in Spalte 
RECHTS erscheint. Enthält die Zeile 
nur ein Wort oder fehlen keine Leerzei- 
chen, so kann der Zeilenpuffer LINE 
ohne Änderung ausgegeben werden. 

Ansonsten beginnt die eigentliche 
Formatierung. Dabei sollten Sie vermei- 
den, daß sich die Worte alle am rechten 
und linken Rand sammeln. Daher wer- 
den in Zeilen mit ungerader Zeilennum- 
mer (»ODD(ZEILE)=TRUE«) Leerzei- 
chen von links eingefügt, sonst jedoch 
von rechts. 

Ein Beispiel: Steht in einer Zeile 11 
Mal das Zeichen A mit einem Zwischen- 
raum und ist RECHTS=40, so müssen 
18 Leerzeichen auf 10 Wortzwischen- 
räume verteilt werden. Ein Teil der Zwi- 
schenräume wird also um ein Leerzei- 
chen, der Rest um zwei Leerzeichen 
erweitert. Im Programm übernehmen 
diese Verteilung die Variablen P Q und 
T. Die ersten Worte werden mit P Leer- 
stellen am Ende erweitert, während ab 
dem T-ten Wort Q Leerstellen angefügt 
werden. In der FOR-Schleife enthält 
also K die Nummer des gedruckten 
Wortes. 

Nach diesen Ausführungen kennen 
Sie die Logik des Programmes, so daß 
Sie noch ein paar technische Details 





zum Thema Textfiles aufnehmen kön- 
nen: Zunächst erkennen Sie am Aufruf 
»FORMAT(INPUTOUTPUT,40)e den 
Nutzen der vordefinierten Textfiles 
INPUT und OUTPUT, die jaauch im Pro- 
grammkopf angegeben werden. Mit 
ihnen kann man die Tastatur und den 
Bildschirm wie ein normales File 
ansprechen. Bei der Prozedur READ- 
LINE wird die Funktion EOLN(Eingabe) 
zum Erkennen des Zeilenendes be- 
nutzt. Damit nach der Bearbeitung der 
ersten Zeile beim nächsten Aufruf die 
folgende Zeile weiterbearbeitet wird, 
muß am Ende der Aufruf READLN(EIN- 
GABE) stehen. Die Prozedur INSERT- 
SPACES verwendet die Angabe eines 
Formatierungsparameters nach dem 
Doppelpunkt, um eine definierte Anzahl 
von Leerzeichen zu drucken: 
WRITE(AUSGABE, ' ': N) 

druckt ein Leerzeichen rechtsbündig in 
einem Feld der Größe N. Somit werden 
insgesamt N Leerzeichen ausgegeben. 
Schließlich erfolgt nach der Ausgabe 
jeder Zeile der Aufruf WRITELN(AUS- 
GABE). Damit wird auf dem File AUS- 
GABE ein Zeilenwechsel erzeugt, um 
die Zeilenstruktur des Files EINGABE 
zu erhalten. 

Damit ist die Diskussion des Daten- 
typs File und speziell der Textfiles been- 
det. Als Übung können Sie versuchen, 
das Programm in Listing 3 so zu verän- 
dern, daß es jede Zeile zentriert druckt. 
Sie können also die Prozedur READ- 
LINE wieder verwenden, jedoch dafür 
sorgen, daß die fehlenden Leerstellen 
zur Hälfte vor dem ersten Wort gedruckt 
werden. 

(Florian Matthes/ev) 





Von Zeigern, 
Listen und Graphen 
(Pascal, Teil 4) 


Der letzte Beitrag unserer Einfüh- 
rung in die Programmiersprache 
Pascal beschäftigt sich mit ei- 
nem nicht ganz einfachen, aber 
sehr interessanten Thema: den 
dynamischen Datenstrukturen. 


ie Beschreibung der dynami- 
schen Datenstrukturen steht 
grundsätzlich am Ende jeder 
Einführung in Pascal. Dies liegt einer- 
seits daran, daß es sich dabei um ein 
besonders leistungsfähiges Sprachele- 
ment handelt, andererseits möchte man 
den Anfänger erst zum Schluß mit 
einem völlig neuen Verfahren zur 
Behandlung von Variablen konfrontie- 
ren. Haben Sie also in den vorherge- 
henden Artikeln Ihre ersten Schritte in 
Pascal gemeistert, dürfen Sie an dieser 
Stelle nicht frustriert zur Überzeugung 
gelangen, daß Pascal viel zu kompliziert 
und unverständlich ist. Vielmehr sollten 
Sie, nachdem Sie das bisher Gelernte in 
eigenen Programmen verwendet 
haben, mit diesen Erfahrungen den 
letzten Teil zur Fortbildung nutzen. 
Sicherlich gibt es auch einige Leser, die 
bisher zwar in Pascal programmiert 
haben, dabei jedoch einen weiten 
Bogen um Pointervariablen geschlagen 
haben. Für diese beginnt jetzt wohl der 
eigentlich interessante Teil der Artikel- 
Serie. 

Alle bisher behandelten Datentypen 
und Variablen waren statisch. Am 
Beginn jedes Blockes wurden die loka- 
len Variablen angelegt und waren über 
ihren Namen veränderlich, bis der Block 
wieder verlassen und das Ende der Gül- 
tigkeit der Variablen erreicht wurde. 
Diese Variablenverwaltung hat zur 
Folge, daß bereits zur Übersetzungs- 
zeit der Compiler eine Speicherplatz- 
verwaltung durchführen kann. Außer- 
dem entspricht jedem Variablennamen 
ein (eventuell zusammengesetzter) 
Wert, jedoch gibt es auch gravierende 
Nachteile. Jedes Array besitzt eine 
feste Größe (es gibt keinen variablen 
DIM-Befehl wie zum Beispiel in Basic), 
so daß man oft entweder ein zu kleines 
Array definiert oder unnötig Speicher- 
platz verschwendet. 








Man möchte also zur Laufzeit des 
Programms dynamisch entscheiden, 
ob Speicherplatz für eine Variable anzu- 
legen ist oder ob eine bestehende 
Variable gelöscht werden soll. Außer- 
dem möchte man auf diese dynamisch 
erzeugten Variablen gezielt zugreifen. 
Andererseits will man nicht auf die 
Typüberprüfungen des Compilers ver- 
zichten. Die Lösung des Dilemmas 
besteht darin, Variablen nicht mehr 
durch Namen, sondern durch Zeiger zu 
identifizieren. 

Betrachten wir ein konkretes Bei- 
spiel. Es soll eine Kundenliste gebildet 
werden. Von jedem Kunden wird Name 
und Kundennummer gespeichert. Da 
die Anzahl der Kunden (in der Zukunft) 
unbekannt ist, scheidet ein Array von 
Kundenrecords als Datenstruktur aus. 
Statt die Daten auf einem langsamen 
externen Datenspeicher als File abzule- 
gen, wird eine Liste mit Zeigern gebildet 
(Bild 1). Bildlich gesprochen entspricht 
jeder Record einem Kasten, der alle 
Daten eines Kunden enthält. Um nun 
einen Record im Programm anzuspre- 
chen, benutzt man keinen Variablenna- 
men, sondern einen Zeiger auf diesen 
Kasten. 

TYPE KUNDENZEIGER = I KUNDE; 
KUNDE = RECORD 
NAME: ARRAY[1..10] 
OF CHAR; 
KNUMMER: INTEGER; 
NAECHSTER: KUNDEN- 
ZEIGER; 
END; 
VAR KUNDEi1, KUNDENEU, LETZTER: 
KUNDENZEIGER; 

In Bild 1 zeigt also der Zeiger 
KUNDE1 auf den ersten Kundenre- 
cord. Von dort führt ein weiterer Zeiger 
zum nächsten Kundenrecord und so 
weiter. Jeder Zeiger (pointer) ist an 
einen Typ gebunden. So kann also eine 
Variable vom Typ KUNDENZEIGER nur 
auf einen Record vom Typ KUNDE wei- 
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Bild 1. Eine Liste mit Zeigern 





sen. Die Liste in Bild 1 ist also über 
einen Zeiger (KUNDEI) zugänglich. 
Indem man den Zeigern von Record zu 
Record folgt, kann man nacheinander 
jeden Record in der Liste adressieren. 

Die obige Variablendeklaration defi- 
nierte jeweils nur Speicherplatz für Zei- 
ger auf Kundenrecords, jedoch keine 
Records selbst. Dies geschieht erst 
während der Programmausführung mit 
der Standardprozedur NEW: 
NEW(KUNDE1) 

Damit reserviert man irgendwo im 
Hauptspeicher des Rechners Spei- 
cherplatz für eine Variable des Typs, auf 
den die Pointervariable KUNDE1 zeigt. 
Um diesen neu erzeugten Kundenre- 
cord zu adressieren, wird gleichzeitig 
dem Zeiger KUNDEI die Adresse die- 
ses Records zugewiesen (Bild 2a). 
Jetzt kann man der so erzeugten Varia- 
blen Werte übergeben: 

KUNDE1 I .NAME:= "MAIER 
KUNDE1 ! .KNUMMER:= 100; 

Während KUNDEI eine Zeigervaria- 
ble (vom Typ KUNDENZEIGER) ist, 
bezeichnet KUNDE! eine Variable des 
Typs KUNDE. Indem man also den Pfeil 
hinter eine Zeigervariable stellt, erhält 
man die dynamische Variable, auf die 
die Pointervariable zeigt. Man bezeich- 
net deshalb den Pfeil auch als 
»Dereferenzier-Operator«. 

Da KUNDEI! eine (dynamische) 
Recordvariable ist, folgen nach einem 
Punkt wie üblich die Feldnamen des 
Records. Damit erhält man den Zustand 
aus Bild 2b. Ulm einen weiteren Kunden 
in die Liste aufzunehmen, ist zunächst 
wieder Speicherplatz zu reservieren. 
NEW(KUNDENEU) 

Wie oben kann man jetzt diesen 
Record mit Werten füllen (2c): 
KUNDENEUl .NAME:= 'MÜLLER '; 
KUNDENEU! .KNUMMER:= 200; 

Schließlich soll KUNDENEU als 
Nachfolger von KUNDE1 eingetragen 
werden. Hierzu wird im Feld NAECH- 


MUELLER SCHULZE 
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STER des Records, der durch KUNDE 1 
referiert wird, der Zeiger KUNDENEU 
eingetragen (Bild 2d). 

KUNDE1! .NAECHSTER:= KUNDENEU 

Um den letzten Record hinter KUN- 
DENEU einzufügen, kann man folgende 
Anweisungsfolge verwenden: 
NEW(LETZTER); 

LETZTER! .NAME:='SCHULZE 1; 
LETZTER! .KNUMMER:=300; 
KUNDENEU! .NAECHSTER:= LETZTER 

Damit ergibt sich eine Liste wie in Bild 
2e. Wie erkennt man nun aber das Ende 
der Liste? Man muß wissen, ob das Feld 
NAECHSTER einen gültigen Zeiger 
enthält. Um anzuzeigen, daß ein Zeiger 
auf keine dynamische Variable weist, 
verwendet man den Wert NIL. Diese 
Konstante darf jeder Zeigervariablen 
zugewiesen werden. Mit 
LETZTER]! .NAECHSTER:=NIL 
gibt man alsoan, daßnach LETZTERT! in 
der Liste kein Record mehr folgt. 

Bisher programmierten wir alle Einfü- 
gungen in die Liste »zu Fuß«. Ein kom- 
plettes Programm zur Verwaltung einer 
Kundenliste zeigt Listing 1. Es spei- 
chert die Kunden in alphabetischer Rei- 
henfolge. Zusätzlich existieren am 
Anfang und Ende der Liste je ein leerer 
Record. Damit ergibt sich eine Listen- 
struktur wie in Bild 3. Die Zeiger KOPF 
und ENDE weisen immer auf die beiden 
leeren Records. Im folgenden werden 
alle Funktionen des Programms anhand 
von Abbildungen erklärt. 

Am einfachsten ist die Ausgabe der 
Tabelle (Bild 4a), siehe Prozedur 
TABELLE in Listing 1: Man durchläuft 
mit dem Zeiger Z die gesamte Liste und 
zeigt den jeweiligen Kundenrecord an. 
Mit 
Z:= KOPFti .NAECHSTER 
wird zunächst der leere (schraffierte) 
Record am Listenanfang übersprun- 
gen. Solange der Zeiger Z nicht mit dem 
Zeiger ENDE übereinstimmt, wird der 
Record Z! (nicht der Zeiger Z!) ange- 
zeigt. »Z:= ZI .NAECHSTER« führt 
schließlich von jedem Record zu sei- 
nem Nachfolger in der Liste. 

Die Prozedur EINGABE _ liest 
zunächst von der Tastatur einen Namen 
ein. Dann wird durch den Aufruf der Pro- 
zedur VORHANDEN geprüft, ob dieser 
Name bereits in der Liste steht. Ist dies 
der Fall, so endet die Eingabe. Anson- 
sten wird dann ein neuer Record NEU 
geschaffen und mit Namen und Kun- 
dennummer gefüllt (Bild 4b). Da die 
Liste alphabetisch sortiert bleiben soll, 
muß NEU direkt hinter dem alphabeti- 
schen Vorgänger eingehängt werden. 
Daher liefert die Prozedur VORHAN- 
DEN einen Zeiger VOR, der in jedem 
Fallauf den Vorgänger in der Liste zeigt. 
Die Einfügung selbst geschieht dann in 
zwei Schritten. Zunächst wird der Zei- 
ger NAECHSTER im neuen Record auf 
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PROGRAM KUNDENLISTE ( INPUT, OUTPUT), 
BEISPIEL FÜR DIE VERWALTUNG EINER LISTE MIT DYNAMISCHEN VARIABLEN 
DIE DATEN VOM TYP KUNDE WERDEN STÄNDIG SORTIERT IN EINER EINFACH 
VERKETTETEN LISTE GESPEICHERT. JEDER RECORD BESITZT DAZU EINEN 
ZEIGER AUF DEN ALPHABETISCHEN NACHFOLGER. UM DAS EINFÜGEN UND 
LÖSCHEN EINFACH ZU GESTALTEN, BESITZT DIE LISTE JE EINEN LEEREN 
RECORD AM ANFANG UND ENDE. 

CONST LEN = 10; (* LÄNGE EINES NAMENS IN ZEICHEN 
TYPE STRING = ARRAY (1..LENI OP CHAR; 
KUNDENZEIGER = " KUNDE, 
KUNDE = RECORD 
NAME : STRING; 
KNUMMER : INTEGER; 
NAECHSTER: KUNDENZEIGER,; 
END; 
VAR KOPF: KUNDENZEIGER,;, (* ZEIGER AUF DEN ERSTEN RECORD IN DER LISTE 
ENDE: KUNDENZEIGER; (* ZEIGER AUF DEN LETZTEN RECORD 
CH : CHAR; (*2 BENUTZEREINGABE 
PROCEDURE READSTRING (VAR S: STRING); 
(* STRING MIT LEN ZEICHEN VON DER TASTATUR LESEN *) 
VAR I: INTEGER; 
C: CHAR; 
BEGIN 
REPEAT READ(C)I UNTIL C<>' '; 
I: =1; 


VORLAUFENDE LEERZEICHEN IGNORIEREN 


REPEAT LEN ZEICHEN ODER BIS ZUM ZEILENENDE 
SELIl:= C, I:=» I+»1; 
READ(C) 

UNTIL (I>LEN) OR EOLN; 


WKHILE I<cLEN DO S MIT LEERZEICHEN AUF DIE VOLLE 
BEGIN LÄNGE ERWEITERN 
SIIM:= ' '‘,; I:= Ie1,; 
END; 
READLN 
END; (* READSTRING *) 
FUNCTION VORHANDEN (S: STRING; VAR Z: KUNDENZEIGER): BOOLEAN; 
(* SUCHT DEN NAMEN S IN DER LISTE. ERGEBNIS = TRUE, FALLS S GEFUNDEN 
(* WURDE. Z ZEIGT BEI DER RÜCKKEHR IMMER AUP DIE POSITION DES ALPA- 
(* BETISCHEN VORGÄNGERS. 


VAR 21: KUNDENZEIGER; (* 21 STEHT IMMER EINEN RECORD WEITER ALS 
(* DER ZEIGER 2 
BEGIN 8 
2:= KOPP; Zi:= KOPF”. NAECHSTER; (* 21 ZEIGT AUF ERSTEN GÜLTIGEN 
(* RECORD IN DER LISTE 
ENDE“. NAME: =S; (® MARKE IM LEZTEN RECORD DER LISTEA) 
WHILE 21°, NAME<S DO (* WANDERE MIT 21 DURCH DIE LISTE, *) 
BEGIN i (®* BIS POSITION VON S ERREICHT a) 
Z:= 21; Zi:= 21°. NAECHSTER 
END; 
(4 GEFUNDEN, PALLS NAMEN GLEICH UND NICHT MARKE ERREICHT 
VORHANDEN: = (21°. NAME=S) AND (Z1<C>ENDE); 
END; (* VORHANDEN *) 


PROCEDURE DRUCKE (Z: KUNDENZEIGER), 
Listing 1. Kundenverwaltung mit Listenstruktur 









































BEGIN 2 
WITH 2 DO 
WRITELN(' NAME: ', NAME: LEN+2, ' NUMMER: °, KNUMMER :5) 


END, (% DRUCKE *) 


PROCEDURE EINGABE; 
(*% EINFÜGEN EINES NEUEN KUNDENRECORDS AN DER KORREKTEN POSITION IN ) 


(* DER KUNDENLISTE ZWISCHEN VON UND BIS A) 
VARN : STRING; {* NEUER NAME a) 
NEU: KUNDENZEIGER: (* ZEIGER AUF DEN NEUEN RECORD A) 
VOR: KUNDENZEIGER; (* ZEIGER AUF DEN VORGÄNGER IN DER LISTE “) 
BEGIN 
WRITE ' NAME: '); READSTRINGIN); 
IF VORHANDEN (N, VOR) THEN (* VOR WIRD HIER GESETZT! A) 
WRITELNIN, ‘ IST BEREITS KUNDE! ') 
ELSE 
BEGIN 
NEN ( NEU); (%* NEUEN RECORD BESORGEN n) 
WRITE (' KUNDENNUMMER: ' ); 
READLN ( NEU”. KNUMMER): (* UND MIT WERTEN BELEGEN: n) 


NEU”. NAME: = N; 


(* NEU HINTER VOR EINFÜGEN: *) 
NEU”. NAECHSTER: = VOR’. NAECHSTER; 
VOR’. NAECHSTER: = NEU 
END; 
END; (* EINGABE *) 


PROCEDURE AUSGABE; 


(% AUSGABE EINES KUNDENRECORDS #) 
VARN : STRING; 
VOR: KUNDENZEIGER; ("* ZEIGER AUF ALPHABETISCHEN VORGÄNGER “) 
BEGIN 


WRITE (' NAME: '); 
READSTRINGIN); 
IF VORHANDEN (N, VOR) THEN (* VOR WIRD AUF DEN VORGÄNGER GESETZT! *) 
DRUCKE ( VOR. NAECHSTER) 
ELSE 
WHRITELN (N, * NICHT ALS KUNDE GESPEICHERT! '); 
END; (% AUSGABE %) 


PROCEDURE LOESCHEN; 


(4 LOESCHEN EINES KUNDENRECORDS IN DER LISTE “) 
VARN : STRING; 
VOR: KUNDENZEIGER, (* WIEDERUM ZEIGER AUF DEN VORGÄNGER IN 4) 
(* DER LISTE DER KUNDEN ”) 
BEGIN 
WRITE(' NAME: '), READSTRING(N), 
IF VORHANDEN! N, VOR THEN (* VOR WIRD AUF DEN VORGÄNGER GESETZT A) 
BEGIN 
WRITELN (' GELÖSCHT WURDE: ‘); 
DRUCKE ( VOR’. NAECHSTER); (* ZUR SICHERHEIT ANZEIGEN 4) 
(* JETZT DEN NACHFOLGER VON VOR” AUS DER LISTE ENTFERNEN: rn) 
VOR”. NAECHSTER: = VOR’. NAECHSTER . NAECHSTER; 
END 
ELSE 
WRITELN (N, '‘ NICHT ALS KUNDE GESPEICHERT! '), 


END, (* LOESCHEN %) 


PROCEDURE TABELLE; 
(* DRUCKE EINE ALPHABETISCHE AUFLISTUNG ALLER KUNDEN A) 
VAR Z: KUNDENZEIGER; 


BEGIN 
2:= KOPF . NAECHSTER; (* 2 AUF DEN ERSTEN BELEGTEN RECORD a) 
WHILE Z<C»ENDE DO (* SOLANGE NICHT DER LETZTE (LEERE) a) 
BEGIN (* RECORD ERREICHT WIRD: a) 
DRUCKE( 2); (* ANZEIGE 72° Rn) 
2:= 2°. NAECHSTER,; (* 2UM NÄCHSTEN KUNDEN a) 
END; 


END; (A TABELLE *) 


BEGIN (* HAUPTPROGRAMM *) 


NEW KOPF), NEWUENDE), (* ERSTEN UND LETZTEN RECORD BILDEN “) 
KOPF. NAECHSTER: = ENDE; (* ENDE DIREKT NACH DEM KOPF, ALSO IST *) 
(* DIE LISTE LEER ) 
REPEAT 
WRITELNt'E INGABE L OESCHEN'),; 
WRITELN(' A USGABE TSABELLE?’); 
WRITELN«' X BEENDEN'); 


READLNUCH),;, 
IE CH TENVEREITZ EA LETTER TIL FEREN 
CASE CH OF 
*E': EINGABE; 


"A': AUSGABE; 
"L': LOESCHEN; 
“T': TABELLE; 
X. ‚1% NICHTS %#) 
END (*% CASE *) 
ELSE 
WRITELNCH „' IST NICHT MÖGLICH! '),; 
UNTIL CH='X' 
END; 


Listing 1. Kundenwerwaltung mit Listenstruktur (Schluß). Das Zeichen »° « entspricht 
dem Hochpftell (» | «) 








den Nachfolger des Records VOR! 
gesetzt. Dann kann der Zeiger NAECH- 
STER in VOR! auf den Wert des Zeigers 
NEU gesetzt werden. Damit ergibt sich 
eine Liste wie Bild 4c. Dort sind die 
geänderten Zeiger fett gezeichnet. 

Um in der Prozedur AUSGABE zu 
einem Namen den zugehörigen Kun- 
denrecord in der Liste zu finden, dient 
ebenfalls die Funktion VORHANDEN. 
Da sie jedoch immer einen Zeiger auf 
den Vorgänger liefert, muß der Record 
VOR1!.NAECHSTER verwendet 
werden. 

Ebenso einfach ist das Löschen 
eines Kunden. In der Prozedur LOE- 
SCHEN wird wieder mit VORHANDEN 
ein Zeiger auf den Vorgänger in der 
Liste gesetzt. Mit 
VOR?! .NAECHSTER: =VORI .NAECHSTER!. 
NAECHSTER 
wird im Record VOR! der Zeiger auf 
den übernächsten Nachfolger gerichtet 
(fette Linie in Bild 4d). 

Jetzt ist es an der Zeit, uns mit der 
Funktion VORHANDEN näher zu befas- 
sen. Sie durchsucht die alphabetisch 
sortierte Liste nach dem Namen S. Wird 
ein Record mit NAME=S gefunden, so 
ist VORHANDEN gleich TRUE. Der Zei- 
ger Z weist dann auf den Vorgänger die- 
ses Records. Ist jedoch VORHANDEN 
gleich FALSE, so existiert kein Kunde 
mit dem Namen S. Jetzt zeigt Z auf den 
Record, hinter dem ein neuer Record 
eingefügt werden müßte, um die alpha- 
betische Ordnung zu erhalten. In Bild 
4e ist gezeigt, daß zwei Zeiger Zund 21 
verwendet werden. Man durchläuft wie 
bei der Prozedur TABELLE die Liste bis 
gilt: 


Zil.NAME >=S 


Dabei hinkt der Zeiger Z immer einen 
Record hinter dem Zeiger Z1 her. Ist die 
obige Bedingung eingetreten, so zeigt 
Z auf den alphabetischen Vorgänger. 
Um zu verhindern, über das Listenende 
hinauszulaufen, wird am Anfang der 
letzte (unbenutzte) Record mit dem 
gesuchten Namen gefüllt: 

ENDE! .NAME:=S; (z.B. S='SCHULZE') 

Damit bricht die WHILE-Schleife 
sicher für ZI=ENDE ab. Einen solchen 
Eintrag zur Vereinfachung des 
Abbruchkriteriums bezeichnet man als 
Marke. Das boolesche Ergebnis der 
Funktion bestimmt also abschließend 
die folgende Zuweisung: 

VORHANDEN: = (Z11.NAME=S) AND 
(Z1<> ENDE) 

Am Programmanfang wird mit 

NEW(KOPF) ; NEW(ENDE); 

KOPF! .NAECHSTER:= ENDE 

eine Liste mit zwei wunbenutzten 
Records erzeugt. Durch diese Initiali- 
sierung findet Einfügen und Löschen 
immer zwischen zwei Records statt. 
Wären diese Hilfsrecords nicht vorhan- 
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den, so müßte man zum Beispiel beim 
Löschen immer die Sonderfälle 
Löschen am Listenanfang oder 
Löschen des einzigen Elements in der 
Liste prüfen, da in diesen Fällen auch 
die Zeiger KOPF und ENDE verändert 
werden müßten. 

Jetzt sollten Sie sich zunächst etwas 
Zeit nehmen, alle diese Informationen 
zu verdauen und sich genauer mit dem 
Listing 1 auseinandersetzen. Dann füh- 
ren Sie einen kleinen Verständnistest 
durch: 

1. Was ist der Unterschied zwischen 
den folgenden Zuweisungen? 

KOPF := ENDE und 
KOPFI := ENDEI? 

2. Ändern Sie das Programm so, daß 
die Namen in umgekehrter alphabeti- 
scher Reihenfolge (SCHULZE, MUEL- 
LER, MAIER) in der Liste gespeichert 
werden! 

Zur Beantwortung der ersten Frage 
blättern Sie bei Bedarf zum Anfang der 
Ausführungen über Zweigvariablen 
zurück. Die zweite Aufgabe besteht 
»nur« in der Änderung der Funktion 
VORHANDEN. 

Es gibt sehr viele verschiedene 
Varianten mit dem Konzept der Spei- 
cherung von Daten in Listen. Sie unter- 
scheiden sich in der Methode, wie die 
Records durch Zeiger verkettet sind. Im 
Beispiel der Kundenliste kann man 
ohne Probleme von jedem Kunden zu 
seinem alphabetischen Nachfolger 
gelangen. Jedoch erreicht man den 
Vorgänger im Alphabet nur, indem man 
die Liste vom Kopf her durchläuft. Eine 
naheliegende Lösung besteht darin, 
jeden Record um einen Zeiger auf den 
Vorgänger zu erweitern: 


TYPE KUNDENZEIGER = KUNDE; 
KUNDE = RECORD 
NAME : ARRAY 
[1..10] OF CHAR; 
KNUMMER INTEGER; 
VORIGER KUNDENZEIGER; 
NAECHSTER: KUNDENZEIGER; 
END; 


Diese Verkettung erlaubt zwar ein 
Durchlaufen der Liste vorwärts wie 
rückwärts, jedoch werden die Operatio- 
nen zum Einfügen und Löschen 
wesentlich komplexer, da sie zwei Ver- 
kettungen aktualisieren müssen. Eine 
solche doppelt verkettete Liste zeigt 
symbolisch das Bild 5. 

Es gibt noch viele andere Methoden, 
Datenstrukturen mit Zeigern zu bilden 
(zum Beispiel Bäume), in denen man 
sehr effizient Werte sortiert einfügen, 
suchen und löschen kann. Da dieses 
Themengebiet sehr umfangreich ist 
und wirklich gute Literatur über dieses 
Thema existiert [1], sollen die letzten 
Beispiele mit Zeigern andere Anwen- 
dungen zeigen. 

Zunächst wird ein Verfahren vorge- 
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stellt, das Werte so speichert, daß man 
ohne Suchen in einem Schritt einen vor- 
gegebenen Wert wiederfindet. Die 
angenommene Aufgabe besteht darin, 
für eine Anzahl von Orten die Postleit- 
zahl abzulegen. Man soll also einerseits 
neue Orte mit ihrer Postleitzahl einge- 
ben können und andererseits zu einem 
vorgegebenen Namen die gespei- 
cherte Postleitzahl (falls gespeichert) 
erhalten. 

Bei der Speicherung mit dynami- 
schen Variablen im Programm KUN- 
DENLISTE trat das Problem auf, daß 
man sich erst mit einer (linearen) Suche 
durch die Liste bewegen muß, um einen 
Kundenrecord zu finden. Dabei muß 
man bei n gespeicherten Werten im 
Durchschnitt n/2 Vergleiche aufwen- 
den. Optimal wäre eine Speicherungs- 
methode, bei der man direkt aus dem 
Suchschlüssel einen Verweis auf die 
gespeicherten Informationen erhält. 
Diese Anforderung erfüllt das soge- 
nannte »Hashing«e: Man speichert alle 
Daten in einer Hash-Tabelle. Das ist ein 
Array, das mit ganzen Zahlen indiziert 
wird: 

CONST HASHSIZE = 97; 

TYPE INFO = INTEGER; (* POSTLEIT- 
ZAHL *) 
VAR HASHTAB = ARRAY[O. .HASH- 

SIZE] OF INFO; 

Nun sollen im vorliegenden Beispiel 
als Schlüssel zwanzigstellige Städtena- 
men verwendet werden. Man steht also 
vor dem Problem, aus einem String der 
Länge 20 einen eindeutigen Index zwi- 
schen O und 1000 zu erzeugen. Eine 
solche Hash-Funktion - Schlüssel- 
transformations-Funktion - gibt das 
Programm in Listing 2 unter dem 
Namen HASHINDEX wieder. Zunächst 
wird die Summe aller Codezahlen der 
Zeichen berechnet: 


IC) RS z> nz 


l 
nn nam 
N 
oO 


W 
D 


1043 

Anschließend wird dieser Index 
durch die Tabellengröße geteilt. Der 
Divisionsrest ist eine Zahl zwischen OÖ 
und der Tabellengröße und kann somit 
direkt als Index gelten. 
1034 / 97 = 10 REST 73 

Um die Postleitzahl für Frankfurt 
(6000) zu speichern, sind folgende 
Schritte erforderlich: 





INDEX : =HASHINDEX( ' FRANKFURT 1; 
HASHTAB[ INDEX] := 6000 
Index besitzt also den Wert 73. 
Genauso einfach ist es, die Postleitzahl 
für Frankfurt anzuzeigen: 
INDEX : =HASHINDEX( ' FRANKFURT a 
WRITELN('PLZ:', HASHTAB[INDEX]; 
Das Verfahren besitzt jedoch einen 
gravierenden Nachteil. Die Hashfunk- 
tion, die zu einem Städtenamen einen 
Index zwischen O0 und HASHSIZE 
bestimmt, muß nicht eindeutig sein. Es 
kann also durchaus sein, daß es einen 
weiteren Städtenamen (sagen wir X- 
Stadt) gibt, der bei der obigen Berech- 
nung ebenfalls den Index 73 ergibt. 
Dann kommt es in der Hashtabelle zu 
einer Kollision (»hash clash«). In diesem 
Fall ist es mit der obigen Datenstruktur 
unmöglich festzustellen, ob in HASH- 
TAB[73] die Postleitzahl von Frankfurt 
oder X-Stadt steht. Im Programm nach 
Listing 2 wird das bisherige Konzept 
deshalb folgendermaßen modifiziert: 
TYPE HASHELEMENT = RECORD 
NAME: STRING; 
PLZ : INTEGER; 
NEXT : THASHELEMENT 
END; 
VAR HASHTAB: ARRAY[O..HASHSIZE] OF 
!HASHELEMENT; 


Man speichert in der Hashtabelle nur 
einen Zeiger auf einen Record vom Typ 
Hashelement. Dieses Record enthält 
neben der eigentlichen Information 
(PLZ) noch den Name der Stadt. Ein 
Record vom Typ HASHELEMENT ist 
natürlich nur dann erforderlich, falls 
eine Postleitzahl gespeichert werden 
soll. Ansonsten besitzt der Zeiger in 
HASHTAB den Wert NIL. Diese Vorbele- 
gung führt am Programmanfang die Pro- -» 
zedur LEERETABELLE durch. Das Feld 
NEXT im Record HASHELEMENT dient 
zur Behandlung von Kollisionen. Alle 
Schlüssel, die unter demselben Index 
stehen, werden in zufälliger Reihen- 
folge zu einer Liste mit dem Zeiger 
NEXT verkettet. Beim Einfügen und 
beim Abfragen muß deshalb eventuell 
diese Liste durchlaufen werden. Bild 6 
zeigt die Datenstruktur der Hashtabelle. 
Jeder Zeiger im Array HASHTAB kann 
also Kopf einer Liste von Einträgen 
sein. Bitte nehmen Sie die Werte in der 
Abbildung nicht zu genau, da aus nahe- 
liegenden Gründen nicht für jeden 
Namen die Hashfunktion berechnet 
wurde. 

Unter folgenden Bedingungen ist 
Hashing die mit Abstand beste Spei- 
cherungsform und jeder anderen Spei- 
chermethode in Geschwindigkeit und 
Programmieraufwand weit überlegen: 

1. Es existiert eine Grenze für die 
Anzahl der Werte, die gespeichert wer- 
den sollen. Die Größe der Hashtabelle 
ist etwa um zehn Prozent größer als 
diese Maximalanzahl festzulegen. 
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2. Eine sortierte Ausgabe in der Rei- 
henfolge der Schlüssel ist nicht erfor- 
derlich. Es werden nämlich die Schlüs- 
sel im Idealfall völlig ungeordnet über 
die Hash-Tabelle verteilt, so daß keine 
Möglichkeit existiert, von einem Eintrag 
zu seinem Nachfolger zu gelangen. 


Aus dem bisher Gesagten ist klar, daß 
die Hash-Funktion alle Schlüssel (im 
Beispiel die Städtenamen) möglichst 
gleichmäßig über den gesamten Index- 
bereich verteilen soll. Dabei muß man 
natürlich vermeiden, daß häufig auftre- 
tende ähnliche Schlüssel denselben 


Index erhalten. Soll zum Beispiel die 
Häufigkeit von Variablennamen in Pas- 
cal bestimmt werden, so darf eine 
Hashfunktion keinesfalls alle Namen mit 
nur einem Buchstaben auf denselben 
Index abbilden, da sonst ständig eine 
lange Liste durchsucht werden muß. 
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Bild 3. Kundenliste mit leerem Kopf und Ende 
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Bild 4. Die Kundenliste aus Listing 1 
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Bild 5. Eine doppelt verkettete Liste 





Normalerweise ist die Hash-Funktion 
jedoch unkritisch, so daß man jede 
Information mit nur einem Zugriff auf 
einen Record erhält. Bemerkenswert ist 
noch die Speicherplatzökonomie des 
Verfahrens. Zwar ist ständig ein Array 
der Größe HASHSIZE vorhanden, die- 
ses enthält jedoch nur Zeiger (zwei 
Byte Länge). Nur für tatsächlich vorhan- 
dene Schlüssel wird ein Record vom 
Typ HASHELEMENT dynamisch er- 
zeugt, der neben der eigentlichen Infor- 
mation nur noch Speicherplatz für einen 
Zeiger (NEXT) benötigt. Unter den 
oben genannten zwei Bedingungen ist 
Hashing also wärmstens zu empfehlen, 
da es die Geschwindigkeit von Array- 
Zugriffen mit der Effizienz dynamischer 
Variablen verbindet. 

Als abschließendes Beispiel steht an, 
eine Aufgabe mit Graphen in Pascal zu 
lösen. Ein Graph ist in der Mathematik 
ein abstraktes Gebilde aus Knoten und 
Kanten, die von Knoten zu Knoten füh- 
ren. Uns interessiert eine spezielle Art 
von Graphen, nämlich sloche, deren 
Kanten gerichtet und markiert sind. Das 
klingt schrecklich abstrakt, läßt sich 
jedoch leicht mit einer Abbildung (Bild 
7) erklären: Ein Knoten wird durch 
einen Kreis mit der Nummer des Kno- 
tens dargestellt, während ein Pfeil mit 
einem Zeichen zwischen zwei Knoten 
eine gerichtete, markierte Kante sym- 
bolisiert. Von Knoten 1 führt also eine 
Kante nach 2, die mit X markiert ist. 

Nachdem nun die grundlegenden 
Begriffe bekannt sind, zur eigentlichen 
Aufgabe. Durch einen Graphen kann 
man einfache »Sprachen« beschreiben: 
Bild 8 zeigt einen Graphen, der alle 
Wörter der Form 
AB 
ABAB 
ABABAB 
ABABABAB.. 

»serkennt«. Dies geschieht folgender- 
maßen: Am Anfang setzt man eine 
»Marke« auf den Eingangsknoten 1. 
Außerdem gibt man das Wort vor, von 
dem man wissen will, ob es vom Graph 
erkannt wird: 

ABAB 


Nun liest man Buchstabe für Buch- 
stabe und bewegt die Marke entspre- 
chend den Zeichen an den Kanten 
durch den Graphen. Mit dem ersten 
Buchstaben des Wortes »ABAB« 
erreicht man von Knoten 1 den Knoten 
2, da die Kante von 1 nach 2 mit dem 
Zeichen »A« markiert ist. Da der zweite 
Buchstabe ein »B« ist, wandert die 
Marke vom Knoten 2 entlang der Kante 
mit der Markierung »B« zum Knoten 3. 
Im dritten Schritt wird der dritte Buch- 
stabe (wieder ein »A«) untersucht, so 
daß sich die Marke von Knoten 3 zurück 
zu Knoten 2 bewegt. Mit dem letzten 
Buchstaben »B« kommt die Marke 
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PROGRAM HASHING (INPUT, 
(®* SPEICHERUNG VON POSTLEITZAHLEN MIT HASHING UND ÜBERLAUFLISTEN %) 


OUTPUT), 


CONST HASHSIZE = 97, (* PRIMZAHL *) 


LEN = 20; 
TYPE STRING = ARRAY [1..LEN) OF CHAR; 
HASHELEMENT = RECORD 
NAME : STRING; 
' PLZ INTEGER; 
NEXT : ° HASHELEMENT 
END, 
VAR HASHTAB ARRAYLO.. HASHSIZE]I OF ° HASHELEMENT; 
N : STRING; 
PLZ INTEGER; 


PROCEDURE READSTRING (VAR S: STRING), 
(* STRING MIT LEN ZEICHEN VON DER TASTATUR LESEN *) 
VAR 1: INTEGER,; 
C: CHAR, 
BEGIN 
REPEAT READ(C) 
I: =1; 


UNTIL Ce<»' 


REPEAT 
SIIl:= C; 
READ(C) 

UNTIL (I»>LEN) 


17141; 
OR EOLN; 


WHILE I<LEN DO 
BEGIN 
SLTLI:= N". 
END; 
READLN 
END, (* READSTRING *) 


(“A S MIT LEERZEICHEN AUF DIE VOLLE 
({* LÄNGE ERWEITERN 
1::= 6.41% 


FUNCTION HASHINDEX ( NAME: STRING): INTEGER; 
(* LIEPERT DEN INDEX IN DER HASHTABELLE FÜR D.ESEN NAMEN *) 


VAR I 1.. LEN; 
INDEX: INTEGER, 
BEGIN 
INDEX: = 0; 


FOR I:= 1 TO LEN DO INDEX: = INDEX + ORD(NAMELI)),; 
HASHINDEX: = INDEX MOD HASHSIZE; 
END, (% HASHINDEX *) 
PROCEDURE SPEICHERE (N: 
(* EINTRAG NAME 


STRING; POSTLEITZAHL: INTEGER), 


MIT POSTLEITZAHL, ZUR SICHERHEIT TEST, OB DOPPELT *) 


VAR INDEX INTEGER; (* INDEX IN HASHTAB ® 
PÄNEU : "HASHELEMENT; (* ZEIGER IN ÜEERLAUFLISTE = 
DOPPELT: BOOLEAN, 

BEGIN 
INDEX: = HASHINDEX(N); (* INDEX DES NAMENS BERECHNEN 
P: = HASHTABI INDEX); (* ZEIGER AUS DER HASHTABELLE 
DOPPELT: = PALSE, (4 PRÜFE AUF DOPPELTEN EINTRAG, 
WHILE P<>NIL DO (* FALLS AN DIESER POSITION 
BEGIN (* BEREITS EINTRÄGE EXISTIEREN. 


DOPPELT: = DOPPELT OR (P’. NAME=N); 
P: = P’. NEXT 
END; 


IP DOPPELT THEN 


WRITELNIN, IST BEREITS GESPEICHERT! ') 
ELSE 
BEGIN 
NEN( NEU); (* NEUEN RECORD ERZEUGEN 
WITH NEU” DO 
BEGIN 
NAME: =N; PLZ: = POSTLEITZAHL; (* WERTE EINTRAGEN 
NEXT: = HASHTABI INDEX] (* VOR DEN ALTEN WERTEN EINFÜGEN 
END; 
HASHTABI INDEX]: = NEU (% NEU STEHT AN 1. POSITION 
END; (4 IF ®) 


END; (* SPEICHERE *) 


FUNCTION POSTLEITZAHL( NAME: STRING): INTEGER, 
(*% LIEFERT DIE POSTLEITZAHL ZU DIESEM NAMEN ODER DIE ZAHL O0 A) 


VAR P ©“ HASHELEMENT; 
INDEX: INTEGER; 
BEGIN 
INDEX: = HASHINDEX( NAME); (* BESTIMME DEN INDEX IN HASHTAB 
POSTLEITZAHL: = 0; (* VORLÄUFIG NOCH NICHT GEFUNDEN 
P:= HASHTABI INDEX]; (* DURCHSUCHE DIE ÜBERLAUFLISTE 


WHILE P<>NIL DO 
IF P°. NAME=NAME THEN 


BEGIN 
POSTLEITZAHL: = P’. PLZ; (* FUNKTIONSERGEBNIS PESTLEGEN 
P:= NIL (* ENDE DER SCHLEIFE ERZWINGEN 
END 
ELSE 
P:= P”. NEXT; (* SONST WEITERSUCHEN 


END; (* POSTLEITZAHL *) 


(%* VORLAUFENDE LEERZEICHEN IGNORIEREN 


(* LEN ZEICHEN ODER BIS ZUM ZEILENENDE 
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Listing 2. Datenspeicherung 


PROCEDURE LEERETABELLE; 


mit Hashing 














(* LÖSCHE DIE GESAMTE HASHTABELLE *) 

VAR I: 0. . HASHSIZE; 
BEGIN 

FOR I: = 0 TO HASHSIZE DO HASHTABLI): = NIL 
END; (* LEERETABELLE *) 


BEGIN (A HAUPTPROGRAMM *) 
LEERETABELLE; (* NOCH IST NICHTS GESPEICHERT 
WRITELN(' SPEICHERUNG VON POSTLEITZAHLEN: (BEENDEN MIT NAME = *)'); 


WRITE(' NAME: '). READSTRING(N); 
WHILE NIE Iil<>'*' DO 
BEGIN 
WRITE(' PLZ :'); READ(PLZ), 
If PLZ = 0 THEN 
WRITELN( POSTLEITZAHL(N)) 
ELSE 
BEGIN 
WRITELN; 
SPEICHERE(N, PLZ); 
END; 
WHRITEU' NAME: '); 
END; (* WHILE *) 
END. 


(* SUCHE DIE ZUGEHÖRIGE PLZ: 


(* SPEICHERE NAMEN MIT DIESER PLZ *) 


READSTRING(N) 


Listing 2. Datenspeicherung mit Hashing (Schluß) 


Bild 6. Eine Hashtabelle hilit, 
Daten im Arbeitsspeicher extrem 
schnell und trotzdem mit wenig 
Programmieraufwand zu finden. 
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Bild 7. 
Ein gerichteter und 
markierter Graph 








schließlich auf Knoten 3 zu liegen. Da 
nun das Wort zu Ende ist, kann man aus 
der Position der Marke entscheiden, ob 
der Graph das Wort »erkannt« hat. Die 
Marke befindet sich im Knoten 3, den 
ein dicker Rand hervorhebt. Diese Kno- 
ten sind »akzeptierende« Knoten. 
Befindet sich die Marke am Schluß auf 
einem akzeptierenden Knoten, so ist 
das gesamte Wort erkannt und gehört 
somit zum Sprachschatz des Graphen. 
Sicher verstehen Sie jetzt auch, warum 
der Graph in Bild 8 alle Worte erkennt, 
die aus einer beliebig langen Folge von 
»AB« bestehen. Mit jedem »A« wird die 
Marke auf den Knoten 2 gesetzt, von 
wo aus mit »B« der akzeptierende Kno- 
ten 3 erreicht wird. Hätten wir jedoch 
das Wort 
ABA 
der obigen Testprozedur unterzogen, 
so wäre die Marke im dritten Schritt 
ebenfalls im Knoten 2 gelandet. Da das 
Wort an dieser Stelle bereits zu Ende 
ist, die Marke aber nicht auf einem 
akzeptierenden Knoten liegt, gehört 
»ABA« nicht zur Sprache des Graphen. 
Auch das Wort 
ABAA 
bleibt unerkannt, da mit ABA die Marke 
auf Knoten 2 liegt. Für den folgenden 
Buchstaben »A« existiert jedoch keine 
Markierung an einer Kante von 2 aus, 
so daß das gesamte Wort nicht erkannt 
wird. 

Bild 9 zeigt einen Graphen, der alle 
Worte der Form 


AAB 

AABAAB 

AABAABAAB 

AABAABAABAAB... 

identifiziert. Das können Sie bei der 
Anwendung der obigen Regeln für 
einige Beispielworte leicht herausfin- 
den. 

Listing 3 stellt ein Programm dar, das 
das mühsame Verfolgen des Weges der 
Marke durch den Graphen automatisch 
durchführt. Genauer gesagt soll das 
Programm folgendes leisten: 

1. Es wird eine Beschreibung des 
Graphen eingelesen. 

2. Es wird geprüft, ob überhaupt ein 
akzeptierender Knoten erreicht werden 
kann (siehe Bild 10 für ein Gegenbei- 
spiel). 

3. Für beliebig vorgegebene Wörter 
wird geprüft, ob diese erkannt werden. 

Zunächst muß eine Datenstruktur für 
die interne Repräsentation des Gra- 
phen im Speicher des Computers 
gefunden werden. Da es beliebig viele 
Knoten und Kanten geben kann, wird 
man diese mit dynamischen Variablen 
darstellen. Graphen sind nämlich gera- 
dezu das klassische Beispiel für die 
Verwendung von Zeigern. Für jeden 
Knoten speichert man seine Nummer 
und eine Liste der Kanten, die von die- 
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sem Knoten wegführen. Jede Kante in 


PROGRAM GRAPH ( INPUT, OUTPUT), 


dieser Liste enthält ihrerseits die Mar- ("* DIESES PROGRAMM DEMONSTRIERT DIE VERWENDUNG VON DYNAMISCHEN VARIABLEN ®) 
. r (* ZUR DARSTELLUNG EINES GERICHTETEN, MARKIERTEN GRAPHEN IM SPEICHER DES *) 
kierung und einen Zeiger auf den Kno (®* COMPUTERS. DIE PROZEDUR GRAPHEINLESEN BAUT EIN NETZWERK AUS RECORDS *) 
ten, zu dem sie führt. (* DER TYPEN TKNOTEN UND TKANTE AUP, DESSEN ERSTER KNOTEN ÜBER DEN “) 
e (* ZEIGER ANFANG ERREICHT WERDEN KANN. DIE FUNKTIONEN ISTLEER UND “) 
TYPE TKNOTENREF =! TKNOTEN; (= ERKANNT BENUTZEN DIESE DATENSTRUKTUR, UM DIE DURCH DEN GRAPHEN BE- ") 
TKANTENREF =! TKANTE; (* SCHRIEBENE SPRACHE NÄHER ZU UNTERSUCHEN (S. TEXT) I) 
TKNOTEN = RECORD CONST ENDE = '$'; (* MARKIERUNG AM ENDE DER EINGABE a) 
NUMMER: INTEGER; 
KANTENLISTE: TKANTENREF TYPE TEINGABE =- CHAR; = Be RR ee BESTEHEN 5 
END; TKNOTENREP = "TKNOTEN; (* ZEIGER AUF EINEN KNOTEN en) 
KAN & TKANTENREP = "TKANTE; (* ZEIGER AUF EINE KANTE “) 
T ee. ER TKNOTEN = RECORD 
: ; NUMMER: INTEGER; (* NEGATIV, FALLS AKZEPTIEREND “) 
NEXT: TKANTENREF; ISTMARKIERT: BOOLEAN; (* FÜR FUNKTION ISTLEER a) 
KANTENLISTE: TKANTENREF;: (* LISTE ALLER KANTEN, DIE *) 
NACH: TKNOTENREF; (® VON DIESEM KNOTEN WEGFÜHREN “) 
END; NEXT: TKNOTENREF;, (* VERKETTET ALLE KNOTEN IM GRAPH *) 
Es gibt also zwei Zeigertypen. Zeiger En RES rue ’ 
vom Typ TKNOTENREF zeigen immer TKANTE = RECORD 
auf Knoten (Records vom Typ TKNO- a or ZIELKNOTEN DIESER KANTE a) 
TEN), während Zeiger vom Typ TKAN- NEXT: TKANTENREF; (* ZEIGER AUF DIE NÄCHSTE KANTE, ®) 
TENREF immer auf Kanten (Records ur DEE RN SE een 
vom Typ TKANTE) weisen. Die Bilder 11 VAR KNOTENLISTE: TKNOTENREF; (= ANFANG DER LISTE ALLER KNOTEN a) 
und 12 verdeutlichen jeweils die interne u anmerl.  To0T vor cnin. (2 horreren FRlrene ee . 
Darstellung eines Graphen. Die großen 1: INTEGER: 
Kästen verbildliichen Records vom Typ PROCEDURE GRAPHEINLESEN; 
TKNOTEN. Sie enthalten also die Num- a ee 
mer des Knotens. Diese Nummer ist (* FALSE GESETZT. AKZEPTIERENDE KNOTEN WERDEN MIT NEGATIVEN NUMMERN %) 
negativ, falls es sich bei dem Knoten um ı" GESPEICHERT. e. 
h | (®* DIE EINGABE VON DER TASTATUR HAT FOLGENDES FORMAT: PRO ZEILE EINE *) 
einen akzeptierenden Knoten handelt. (= KANTE. NACHEINANDER NUMMER DES AUSGANGSKNOTENS, EIN ZEICHEN UNGLEICH“) 
Außerdem ist jeder Knoten Kopf einer (* LEERZEICHEN ALS MARKIERUNG UND DIE NUMMER DES ZIELKNOTENS. 2 
Liste von Records des Typs TKANTE Ar STERBEN. "= TRUE SEITE NEESEN DER ERSTEN KANTE #) 
(kleine Kästen). Fürjede Kante wird das VoN : INTEGER; (* NUMMER DES AUSGANGSKNOTENS ") 
a NACH : INTEGER; (* NUMMER DES ZIELKNOTENS a) 
Zeichen, mit dem die Kante markiert ist, MIT : TEINGABE; (* MARKIERUNG DEF: KANTE “) 
und ein Zeiger auf den Knoten am Ende V.N : TKNOTENREP; (* ZEIGER AUF AUSGANGS- UND ZIELKNOTEN *) 
derKante, gespeichert. DaalleKanten, | yuyeittt uyunäätithRr; 12 PproeR Mur MEUENZUOGENE KANTE 
die an einem Knoten beginnen zu einer (%2 SUCHE IN DER LISTE ALLER KNOTEN NACH EINEM KNOTEN, DER DIE NUMMER*) 
Liste verkettet sind, wird noch das Feld (* N BESITZT. DAS FUNKTIONSERGEBNIS IST EIN ZEIGER AUF EINEN RECORD *) 
NEXT benötigt, in dem ein Zeiger auf R VCH AL UKADER O9ER DER WERT NIL, FALLS KEIN SOLCHER KNOTEN GE- a 
die nächste Kante in der Liste enthalten I NOTENREF; 
ist. Von »außen« erreicht man den Q: = KNOTENLISTE; (= 2EIGER AUF DEN ANPANG DER LISTE “) 
gesamten Graphen nur durch die Zei- SUCHEKNOTEN: = NIL; (* FUNKTIONSERG. VORLÄUFIG PESTLEGEN “) 
: WHILE Q<>NIL DO (* SOLANGE NOCH KNOTEN IN DER LISTE SIND *) 
ne ANFANG. nn IF Q’. NUMMER = N THEN (”» KNOTEN GEFUNDEN, ... 1) 
s erstes nun zur unktion BEGIN 
ERKANNT. Sie verwendet diese Daten- SUCHEKNOTEN: = Q; (* ZEIGER ALS PUNKTIONSERGEBNIS SETZEN A) 
Q:= NIL (* SCHLEIFE BEENDEN ") 
struktur, um zu prüfen, ob das Wort in END 
ELSE 
ee 100] OF C 0: = Q°. NEXT; (® SONST WEITER MIT NÄCHSTEM KNOTEN IN *) 
: a HAR; (* DER LISTE a) 
akzeptiert wird. Die Strategie ist sehr END; 1% N . 
FUNCTION NEUERKNOTEN (N: INTEGER): TKNOTENREF; 
einfach und entspricht dem obigen (®* LEGE NEUEN (UNMARKIERTEN) KNOTEN MIT DER NUMMER N AN. DER RECORD =) 
Wandern einer Marke durch den Gra- (* WIRD IN DIE LISTE ALLER RECORDS DES GRAPHEN EINGEFÜGT, DAMIT ER *ı 
phen. Der Parameter Q gibt die momen- (* SPÄTER MIT DER FUNKTION SUCHEKNOTEN GEFUNDEN WIRD. -) 
are ‘ VAR Q: TKNOTENREF; 
tane Position der Marke (auf einem Kno- BEGIN 
ten) an. |indiziert den momentan bear- ı, nie ee > 
beiteten Buchstaben im Wort W. Das BEGIN 
Ende des Wortes markiert ein Dollar- NUNDER ZEN, (“= NUMMER DES KNOTENS 2 
i ISTMARKIERT: = FALSE; (* NOCH UNMARKIERT ") 
Zeichen »$«. Wurde dieses Ende gele- KANTENLISTE: = NIL; t* BIS JETZT BEGINNT NOCH KEINE KANTE AN =) 
sen, so ist das Wort genau dann akzep- NEXT: = KNOTENLISTE; 02 Earen TEN PING DER KNOTENLISTE EIN- a 
tiert, wenn dermomentane Knoten (Qt!) ae "ka GEPÜCT. “) 
ein akzeptierender Knoten ist (Nummer u (" anLe2 IBIZE ER eh KAOTEN an EDEN: 2 
UERKNOTEN: =Q: (= FUNKTIONSERGEBNIS IST GER A a 
istnegativ). Ansonsten wird die Kanten- ED N Nora een 
liste nach einer Kante mit der passen- BEGIN (* GRAPHEINLESEN *) 
KNOTENLISTE: = NIL; (* NOCH IST DIE KNOTENLISTE LEER “) 
den Markierung durchsucht. Stimmt die ISTERSTER: = TRUE; (* DIE FOLGENDE KANTE IST DIE ERSTE a) 
Markierung mit dem laufenden Buch- READL VON); 

n ; ; WHILE VON<>0 DO (* ENDE DER EINGABE WIRD DURCH KNOTEN MIT®) 
staben will überein, so setzt sich die BEGIN (* DER NUMMER 0 GEKENNZEICHNET ") 
Prüfung mit dem nächsten Buchstaben REPEAT 
und dem Endknoten der Kante fort. Die en, n (* MARKIERUNG UNGLEICH LEERZEICHEN LESEN *) 
Funktion ERKANNT ist also rekursiv. READLN CNACH; (* JETZT NOCH DIE NUMMER DES ENDKNOTENS *) 
Bemerkenswert ist noch die Tatsache, V: = SUCHEKNOTEN( VON); (* HOLE 2ZEIGER AUF DEN AUSGANGSKNOTEN “) 

IF V-NIL THEN (= AUSGANGSKNOTEN IST NEU, DESHALB “) 
daß von einem Knoten eventuell zwei V: =NEUERKNOTEN( VON); (* NEUEN KNOTEN ANLEGEN ns) 


oder mehrere gleich markierte Kanten 
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HOLE ZEIGER AUF DEN ZIELKNOTEN 
FALLS NICHT BEREITS GESPEICHERT, 


N: = SUCHEKNOTEN( NACH), ER 

1F N=NIL THEN e 
N: = NEUERKNOTEN( NACH); (* NEUEN KNOTEN ANLEGEN. 

0" 

(% 


NEW( KANTE); BILDE JETZT EINE NEUE KANTE 
KANTE . MARKIERUNG: = MIT; EIN ZEICHEN ALS MARKIERUNG EINTRAGEN 
KANTE . NACH: = N: (* KANTE ENTHÄLT ZEIGER AUF ZIELKNOTEN 
(* JETZT KANTE IN DER LISTE DER KANTEN VON KNOTEN V° EINFÜGEN: 
KANTE _ NEXT: = V° KANTENLISTE; 
V’.KANTENLISTE: = KANTE; 
IF ISTERSTER THEN (* BEIM ERSTEN KNOTEN ANFANG SETZEN 
BEGIN 
ISTERSTER: = FALSE; 
ANFANG: = V 
END; 
READ( VON) 
END; (* WHILE % 
END, (* GRAPHEINLESEN *) 
FUNCTION ISTLEER (Q: TKNOTENREF): BOOLEAN; 
(* DIESE PUNKTION PRÜFT FÜR DEN KNOTEN Q „a OB KEIN AKZEPTIERENDER 
(* KNOTEN ERREICHT WERDEN KANN. IN DIESEM FALL IST ISTLEER FÜR ALLE 
(2 VON Q ERREICHBAREN ( NICHT MARKIERTEN) KNOTEN EBENFALLS TRUE 
(® AM ANFANG MUSS DAS FELD ISTMARKIERT IM RECORD TKNOTEN FÜR ALLE 
(* KNOTEN AUF FALSE GESETZT WERDEN 
VAR LEER : BOOLEAN; 
NACHF: TKANTENREF; 
BEGIN 
Q’. ISTMARKIERT: = TRUE; a» MARKIERE KNOTEN, DAMIT DIESER NICHT 
“ DOPPELT GEPRÜFT WIRD 
LEER: = Q . NUMMER» =0; * FALLS Q SELBST EIN AKZEPTIERENDER 
# KNOTEN IST, KANN NATÜRLICH EIN AKZ. 
* KNOTEN ERREICHT WERDEN 
”»* ZEIGER AUF DIE ERSTE KANTE, DIE BEI 
(* KNOTEN Q BEGINNT 


( 
( 
( 
{ 
( 
( 


NACHF: = Q . KANTENLISTE; 


A) 


(*2 SOLANGE KEIN AKZEPTIERENDER KNOTEN ERREICHT WURDE, VERFOLGE ALLE*) 


(* KANTEN, DIE VON Q WEGPÜHREN: 
WHILE LEER AND ( NACHF<>NIL) DO 
BEGIN 
IF NOT NACHF . NACH . ISTMARKIERT THEN 


(* FALLS ZIELKNOTEN NER KANTE UNMARKIERT 
LEER: = ISTLEER( NACHF . NACH); {* PRÜFE DISEN ZIELKNOTEN 
NACHF: = NACHF . NEXT; (= WEITER MIT DER NÄCHSTEN KANTE 
END; 
ISTLEER: = LEER; (%* FALLS LEER IMMER NOCH TRUE IST, WIRD 


(* ALSO KEIN AKZEPPT. KNOTEN ERREICHT 
END, (* ISTLEER *) 
FUNCTION ERKANNT (Q: TKNOTENREF, 1: INTEGER): BOOLEAN, 
(* PRÜFE, OB VON Q AUS MIT DER BUCHSTABENFOLGE AB WII) EIN AKZEP- 


(* TIERENDER KNOTEN ERREICHT WIRD. 
VAR OK : BOOLEAN, 
NACHF: TKANTENREF, 
BEGIN 
IF WE1l) = ENDE THEN (* ENDE DES WORTES W ERREICHT: 
ERKANNT: = Q . NUMMER<O (%* ERKANNT, FALLS Q@ EIN AKZEPTIERENDER 
(* ZUSTAND IST 
ELSE 
BEGIN 
OK: = FALSE; (* NOCH IST KEIN AKZ. ZUSTAND GEFUNDEN 


NACHF: = Q . KANTENLISTE;(* ZEIGER AUF DEN ANFANG DER LISTE DER 
(* KANTEN, DIE BEI Q BEGINNEN 
(* PROBIERE ALLE KANTEN, DIE BEI Q BEGINNEN UND MIT WIN 
(* MARKIERT SIND, BIS ERFOLG (OK=TRUE) 
WHILE NOT OK AND ( NACHF<>NIL) DO 
BEGIN 
IF NACHF . MARKIERUNG=WII] THEN 
OK: = ERKANNT( NACHF . NACH, I+»1); 
(* WEITER MIT DEM NÄCHSTE BUCHSTABEN 
NACHF: = NACHF . NEXT; (* NÄCHSTE KANTE IN DER LISTE 
END; 
ERKANNT: = OR (* FUNKTIONSERGEBNIS FESTLEGEN 
END; (* IF %) 
END; (* ERKANNT *%) 
BEGIN (* HAUPTPROGRAMM *) 


GRAPHEINLESEN: (* HOLE BESCHREIBUNG DES GRAPHEN 
WRITEU' DIE AKZEPTIERTE SPRACHE IST '‘),; 
IF NOT ISTLEER(CANFANG) THEN (* PRÜFE, OB VOM ANFANGSKNOTEN EIN 


(2 AKZ. KNOTEN ERREICHBAR IST. 
WRITE t' NICHT °’); 
WRITELN ('LEER.'), 
REPEAT 
WRITELN ('‘ GEBEN SIE JETZT DAS ZU TESTENDE WORT EIN ($ AM WORTENDE)'); 
WHRITELN (' (PROGRAMMENDE MIT DEM WORT $)'); 
1:20; 
REPEAT (#2 STRING W EINLESEN 
l:= I»1;, READ (WUI)), 
UNTIL WUEII=ENDE, 
WRITELN;, WRITE (' DAS WORT IST °'), 
IE NOT ERKANNT{ ANFANG, 1) THEN (* PRÜFE, OB MIT DEM WORT W VOM 
(* ANFANGSKNOTEN EIN AKZ. KNOTEN 
(“2 ERREICHBAR IST. 
WRITELU' NICHT '); 
WRITELN(' IN DER SPRACHE ENTHALTEN. '); 
UNTIL Wii1)='$', 
END. 


Listing 3. Das Programm zum Untersuchen von Graphen. Das Zeichen »’« 
entspricht dem Hochpfell (»1«). 
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ausgehen können. In diesem Fall prüft 
ERKANNT alle Wege, bis eine Kante zu 
einem Erfolg führt. 

Ahnlich sieht die Lösung der Teilauf- 
gabe 2 aus. Um festzustellen, ob über- 
haupt ein Wort erkannt wird, genügt es, 
eine beliebig markierte Kantenfolge 
vom Anfangsknoten zu einem akzeptie- 
renden Knoten zu finden. Daher wird 
beim Aufruf ISTLEER für den Knoten Q, 
der als Parameter übergeben wird, 
zunächst geprüft, ob Q selbst ein 
akzeptierender Knoten ist. Wenn ja, so 
existiert ein akzeptiertes Wort. Anson- 
sten werden alle Kanten verfolgt, und 
geprüft, ob man über eine dieser Kan- 
ten einen Endzustand erreichen kann. 
Wiederum ruft sich als ISTLEER rekur- 
siv auf. Jedoch würde ohne weitere 
Vorkehrung dieser Algorithmus beim 
Graphen aus Bild 10 in eine Endlos- 
schleife geraten. Vom Ausgangsknoten 
1 erreicht man den Knoten 2. Da man 
alle Kanten von 2 verfolgt, gelangt man 
über die Kante »B« zurück zu Knoten 1. 
Von dort springt man wieder zu Knoten 
2 und so weiter. Die Lösung besteht 
darin, daß man alle bereits besuchten 
Knoten markiert. Dazu wird der Record 
um das Feld 
ISTMARKERT: BOOLEAN 
erweitert. Bei der Eingabe des Graphen 
sind alle Knoten unmarkiert. Erreicht 
man jedoch in der Funktion ISTLEER 
den Knoten Q, so wird dieser mit 
Qi :ISTMARKERT:= TRUE 
gekennzeichnet. Bevor man nun einen 
rekursiven Aufruf der Funktion IST- 
LEER ausführt, wird zunächst wieder 
geprüft, ob der Knoten nicht bereits 
untersucht und markiert wurde. 

Das größte Problem ist sicherlich die 
Eingabe eines Graphen. In diesem Bei- 
spiel wird eine kantenorientierte Ein- 
gabe vorgenommen: Der Graph in Bild 8 
wird folgendermaßen beschrieben: 


1A 2 
2B-3 
-3A2 
0 

Jede Zeile benennt also die Nummer 
des Anfangsknoten, die Markierung der 
Kante und die Nummer des Endkno- 
tens der Kante. Das Ende der Eingabe 
markiert die Zahl Null. Die Eingabe 
nimmt die Prozedur EINLESEN vor. 
Zunächst wird die Nummer des Aus- 
gangsknotens (VON) gelesen, an- 
schließend alle Leerzeichen ignoriert, 
bis die Markierung (MIT) indentifiziert 
wurde. Daran schließt sich die Nummer 
des Endknotens an. Akzeptierende 
Knoten sind wieder durch negative 
Zahlen kenntlich. 

Für jeden Knoten wird zunächst fest- 
gestellt, ob bereits ein Record vom Typ 
TKNOTEN mit dieser Nummer existiert. 
Die Funktion SUCHEKNOTEN liefert zu 
einer Nummer N einen Zeiger auf einen 
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Bild 8. Dieser Graph kann eine einfache 
Zeichenfolge »erkennen« 


A A B 


Bild 9. Ein Graph zum Erkennen einer 
weiteren Zeichenfolge 


Bild 10. Dieser » 
Graph akzeptiert überhaupt kein Wort 


( ANFANG ) 


F. 


ja m 


Bild 11. Interne Zeigerdarstellung des Graphen aus Bild 8 





ıı 2 A 2 

28-3 243 

-3&42 JB -4 

0 -4ı 2 
DIE AKZEPTIERTE SPRACHE IST NICHT LEER. 0 
ABAB$ DIE AKZEPTIERTE SPRACHE SIT NICHT LEER 
DAS WORT IST IN DER SPRACHE ENTHALTEN AAB$ 
AubAS$ DAS WORT IST IN DER SPRACHE ENTHALTEN 
DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN AAbAABS 
aa$ DAS WORT IST IN DER SPRACHE ENTHALTEN 
DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN. a$ 
$ DAS KORT IST NICHT IN DER SPRACHE ENTHALTEN 

$ 





Bild 13. Einige Probeläufe für den Graphen aus Bild 8 


aaa Au un DD — 
>o > > u m D> 
NnD#+enweorn 


0 
DIE AKZEPTIERTE SPRACHE IST LEER 
$ 
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Knoten-Record, oder den Wert NIL, 
falls noch kein solcher Record vorkam. 
Eventuell muß also mit der Funktion 
NEUERKNOTEN ein Knoten mit der 
Nummer N angelegt werden. Die Funk- 
tion liefert einen Zeiger auf den neuen 
Record, der außerdem als unmarkiert 
gekennzeichnet wird. 

Anschließend kann in EINLESEN ein 
neuer Record vom Typ TKANTE mit der 
angegebenen Markierung angelegt 
werden. Dabei wird im Feld NACH ein 
Zeiger auf den Endknoten N (mit der 
Nummer NACH) eingetragen und 
schließlich dieser Kanten-Record in die 
Liste der Kanten des Knotens V (mit der 
Nummer VON) eingefügt. 

Da der Ausgangsknoten immer als 
erster in der Eingabe genannt wird, 
benutzt man die boolesche Variable 
ISTERSTER. Falls ISTERSTER=TRUE 
ist, muß also der Zeiger ANFANGSK- 
NOTEN noch auf den Record VI 
gesetzt werden. 

Einige Probeläufe des Programmes 
mit verschiedenen Graphen zeigt Bild 
13. 

Natürlich ist nicht zu erwarten, daß 
ein absoluter Anfänger den gesamten 
Artikel sofort in die Praxis umsetzen 
kann. Die letzten Beispiele zeigen 
jedoch deutlich, daß Pascal für kompli- 
ziertere Aufgaben einen deutlichen Lei- 
stungsvorsprung gegenüber anderen 
Sprachen besitzt, die entweder nur ein- 
fache Datenstrukturen aufweisen 
(Basic, Fortran, Cobol), oder aber keine 
so wirkungsvolle Abstraktion von der 
internen Darstellung der Daten erlau- 
ben, so daß die Typüberprüfung in Aus- 
drücken und bei der Parameterüber- 
gabe auf den Programmierer abgewälzt 
wird (C und Forth). 

(Florian Matthes/ev) 
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Cursor-Kur 
mit Turbo-Pascal 


Der unstet flackernde Cursor des C 128 ist vielen 
CP/IM-Anwendern ein Dorn im Auge. Hier naht 
Abhilfe in Form eines Turbo-Pascal-Programms. 


ommodore hat beim neuen Basic 7.O an den gestreß- 

ten Programmierer gedacht und gleich mehrere mög- 

liche Cursor-Arten vorprogrammiert, die auf einfache 
Weise, nämlich durch Drücken der Escape-Taste und eines 
Buchstabens, für den Anwender erreichbar sind. So ist 
sowohl ein blinkender Strich- oder Unterstreichungs-Cursor 
wie auch ein stehender Block-Cursor machbar (siehe 
Tabelle). 

Anders allerdings sieht es im CP/M-Modus des Computers 
aus. Hier sind dem Programmierer die Hände gebunden. Er 
muß sich wohl oder übel den närrisch flackernden Cursor 
gefallen lassen. 

Unter CP/M sind Eingriffe in das Betriebssystem des Com- 
puters weitaus schwieriger zu realisieren als unter Basic. Für 
die Mehrheit der Commodore-Besitzer ist die Maschinen- 
sprache des Z80-Prozessors wohl mehr als ein Buch mit sie- 
ben Siegeln, so daß ein direkter Zugriff per Assembler aus- 
scheidet. Außerdem erfordern Eingriffe in das Betriebssy- 
stem unter CP/M genaueste Kenntnisse des CP/M-Systems. 
Auch diese Kenntnisse dürften bei vielen Anwendern fehlen. 

Aber dies ist trotzdem noch kein Grund zum Verzweifeln, 
denn wozu gibt es höhere Programmiersprachen? Aus oben- 


(#gu+®) 


(BORD RDUHRUUUNUD TER HUN HEHE HUT THE HEHE) 
(« Beispie) für Zugriff auf die 1/0-Ports des 8518: ®) 
(# Utility zum komfortablen andern des VDC Cursor Modes #) 
(® Turbo Pascal auf Commodore 128 unter CP/M ®) 
ELITE TTS ST ESISET TEN II STTESTETPIETTE ET STIETOOTTERTTT 


program cursorset (input, output); 


(e Maske für Blinkbits in Reg. 18 ®#) 
(# Rasterstartzeile des Cursors #) 


var BlinkMaske, 
StartLine: byte; 
cı charyı 


procedure PortOut (ladrı integer; wert: byte)g 
(8 Ausgabe von wert auf dem 16-Bit-Port adr ®) 
begin 
inline (Sed/$4b/adr / (e ıD 
sSa/weart/ (@ LD 
sad/8s79 («= DUT 
) 
end (® procedure PortOQDut ®); 


BC,(adr) ee) 
A, (wert) ®) 
(C),A) .) 


procedure Portin (adr: integer; var wert: byte)! 
(8 Lesen von Port adr nach wert ®) 
begin 
inline 1Sed/$4b/adr / (e LD 

Sad/878/ (®e IN 
sdd/S2a/wert/ (® LD 
$dAd/$77/$380/ (# LD 
SdAd/s3A/sB1/sBB (* LD 
> 

end (® procedure PortIn #); 


BC, (adr) 
A,(tC) 

IX, (wert) 
(IX+@) ,A 
(IX+1),8 


tunction vdcIn (ragı byte)ı byte; 
(@ Liefert den Wert des VDC-Registers reg 
ver sı bytez (# Hiltsvariable ®) 
begin 
PortDut (8sSd4Q@8, rag); 
repeat 
PortIin ($sSd4ABB, x) 
until x>=128j 
PortIin ($sdAB1, x) 
vdeiln ı= x 
end (®e function vdcin ®%); 


(* Registeradrause an VDC «#) 
(« Status lesen ®) 


(@ Daten-Ragister lesen #®) 


procedure vdcQut (rag, wert: byte); 
(te Schreibt wert in VDC-Register reg #) 
ver xı bytejz (8 Hıilfsvariable ®) 
begin 
PortDut ($sd4BB, rag); 
reapeat 


(#8 Registeradresse an VDC ®#) 





genannter Not entstand das folgende Programm in Turbo- 
Pascal 3.0. Es bietet dem Benutzer die Möglichkeit, sich sei- 
nen Cursor nach eigenen Wünschen menügesteuert anzu- 
passen. Das Programm kann nach dem Eingeben in ein 
COM-File compiliert werden, so daß man es ohne Probleme 
auf all seinen Disketten installieren kann. Es besteht sogar 
die Möglichkeit, das Programm von PROFILE.SUB aus aufzu- 
rufen, damit spart man sich das Laden nach dem BOOTen. 
Nach der Meldung »Cursor-Mode-Swap für © 128 und CP/M 
3.0« kann man sich durch zwei oder drei Tastendrucke seinen 
persönlichen Cursor installieren. 

Noch etwas zum Abtippen: Das Listing wurde im DIN- 
Modus der Tastatur eingegeben. Daher konnte zwar mit deut- 
schen Umlauten gearbeitet werden, die geschweiften Kom- 
mentarklammern und die eckigen Mengenklammern wurden 
aber durch die von Turbo-Pascal ebenfalls zugelassenen 
Ersatzzeichen »(*« und »*)« (für geschweifte Klammern) 
beziehungsweise »(.« und ».)« (für eckige Klammern) ersetzt. 

(Udo Reetz/ev) 


Cursor-Mode 


Block 
Strich 


Escape-Sequenz 


ESC+S 
ESC + U 
ESC+F 
ESC+E 


Blinken 
Stehen 





Tabelle der möglichen Cursor-Formen im Basic 7.0 


Portin (8d488, x) (« Status lesen #) 
until x>=1283 
PortDut ($d4B1, wert) 


end3 


(«e Daten-Register schreiben ®) 


begin (® maın ®) 
clracr; 
writeln ("Cursor -Mods-Swap für C 128 und CP/M 3.8: 28); 
writeln ( =sz2==zs2az22zzozunszesmzuprmssmannnsmunsummaumme ‘gg 2U)| 
writelng writeln; writeln; writeln; 
write (' Cursor B)linkend oder S)tehend ?')j 
repeat 
read (kbd, cIp 
until c in (. 'b’, 'B’, 's',„ ’'S’ .)3 
writeln (c)g writeln; 
18. E an (0007, 8006) 
then BlinkMaske := 8 
else 
begin 
write (' 
repeat 
read (kbd, c);5 
until c in (. 's’, 'S’, 'n’,„ 'N’ .93 
writeln (c)g writelng 
it rer an de 
then BlinkMaske ı= $48 
else BlinkMaske ı= $AQ 
end (= else ®»); 
wite (' Underline- oader B)laockcursor ? ')j 
repeat 
read (kbd, c)3 
until c in (. u’, 'U’, 'b’, '’B’ „I 
writeln (c)g writelng 
it ce in I. "oa, U75) 
then Startline ı= 7 
else StartLine ı= Bj; 
writeln; writelng 
writeln (' ses® änderungen durchführen 7? “eee'); 
repeat 
read (kbd, c) 
until c in I. 'j’, "J'’,op. "wa 
writeln (ce); writelng 
it cin (. a 
then 
begin 
vdcDut (18, BlinkMaske or StartLine)j 
vdcQOut (11,7) 
end (* else ®) 
end. (* program cursorset ®) 


Schnell oder N)Mormal blinken ? ’)j 


Listing zu unserer Cursor-Kur 
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Möchten Sie auch einmal wie ein König ein Land 
regieren und das Staatsgeschick lenken? Dann 
versuchen Sie, als Kaiser Ihr Reich instand zu hal- 
ten und für Wohlstand zu sorgen. 


aiser oder auch Hammurabi ist eine Strategie- 
Simulation. Ihre Aufgabe ist es, durch Landkäufe 
oder -verkaufe, Verkauf von Getreide optimale Aus- 
nutzung der Anbauflächen und gerechte Verteilung der Nah- 
rungsmittel an die Bevölkerung das Reich in bestem Zustand 
zu erhalten. So kann zum Beispiel das Land zugrunde gehen, 
wenn die Bevölkerung nichts zu essen hat. Andererseits wol- 
len die Leute eben mit vollem Bauch weniger arbeiten, so daß 
die Produktivität absinkt. Regeln Sie alles so, daß es Ihrem 
Reich wohler geht, so daß Sie lange regieren können. 





Das Programm »Kaiser« (Listing) ist nur ein kleines, aber 
lauffähiges Grundgerüst, das ohne weiteres ausbaufähig ist. 
So können noch Faktoren wie arbeitsfaule Bevölkerung, 
Überfälle brandschatzender Horden, Unwetterkatastrophen 
oder vieles mehr mit integriert werden, um das Spiel reizvoller 
zu gestalten. Je komplexer die Faktoren sind, desto attrakti- 
ver wird auch das Spiel selbst. 

Die Random-Funktion, mit der hier gearbeitet wird, ist nicht 
in jedem Pascal implementiert. Fehlt sie beilhnen, so müssen 
Sie noch eine Prozedur »random« mit in das Programm ein- 
bauen. Spielen Sie ruhig etwas mit dem Programm und bauen 
Sie von Zeit zu Zeit noch weitere Faktoren ein. Sie werden 
sehen: Durch viele Ereignisse, die das Geschehen beeinflus- 
sen können, gewinnt Kaiser immer mehr an Reiz. 

(Dieter Mayer/hi) 


PROGRAM kaiserz 


CONST 
produktivitaet = 75 


VAR 
anbauflascha,gesamtflasche, landkauf, 
vorrat,flaecheprokopf ‚rattenschaden, 
hektarertrag,ernte,zuteilung, nahrungprakapt, 
geburtenrate, sterberate, ausgaben, kornpreis, 
ver kauf ‚vermoegenırealj 
jahr , ıahreı@. .20ı 
zaaehler ,volk,zahl ‚geborene, 
gestorbene ,bodenpreisıintegerj 
getreide,kaufen, sinnvollıboolean; 
inputıcharj 


PROCEDURE initialisierungj 


BEGIN 
zaehler als 
kornpreis s=3j 


gesamtflasche ı=388G8; 
anbauflasche ı1=S8@; 


bodenpreis ı-38j 
ver moegen ı -20086} 
hektarertrag ı=4j 
vorrat ı-2gaaGdı 
ernte ı =1 2000 
volk ,=-40Qd 1 
*laecheprokopf ı "»geasamtflaache/valkı 
geborene ı=8j 
gestorbene ı=0j 
nahrungprokopf:=28; 
ausgaben ı=varmoagen/Bj 
END; 
PRDOCEDURE berschnungs 
BEGIN 
IF kaufen = true THEN 
BEGIN 
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gesamt flaecheı «gesamtflaeche+landkaufı 
ver anagenı =var moagen- (landkaufsbodenpreis)ı 


ELSE 
BEGIN 
gesamttlaacheı =gesamttlasche-landkaufj 
var maagan ı =var noagen*+ (landkauf“ebodenpreim)z 
END; 
bodenpraiaı=2B8+r andom (5) 
IF getreide = true THEN 
BEGIN 
vorratı=vorrat-verkaufj 
ver mpagan ı =ver moagen + (kornpreistverkauf) 
END; 
vorratı=vorrat-(zuteilung®valk);s 
ausgaben: =randam (4B8Q) 3; 
ver noegen ı =vermosgen-ausgaben; 
kornpreisı=1i+trandam(S3); 
hektarertragı=4+random (3)j 
ernteı =sanbauflasche“shektarertragı 
vorratı=vorrat*+ernte; 
rattenschaden ı =abs (randoa (58) /1@0@) 1 
vaorratı=abs (vorrat#i-rattenschaden)ı 
t*laecheprakopf : »gesanttlaeche/vaolk; 
gebar ana ı =r andom (98) ı 
gestorbena: =randoan (25); 
volkı=valk+geborene-gestarbene; 
END; 


PROCEDURE zustandsausgabej 
BEGIN 

writeln( 'Momentaner Epielstandı ');3 
writelng 
write('Wir schreiben das ')j 
IF zaehler>jahre THEN zaehlerı=jahrejı 
write(zaahler)j; 
writelnt‘'. Jahr Ihrer Herrschaft. ')j 
writeln; 
writet‘ Ihr Volk besteht zur Zeit aus ')3 
write(valk)j; 
writeln(’ Einwohnern, wobei Sie’)j 
write(geborena)j 
write(’° Geburten und ’)3 
writelgestorbene); 
writeln(‘ verstarbene Personen haben. ')j 
write( Sie besitzen '); 
writelgesamttlaecheıBı2)j 
write(’ Hektar Land, wavan ')j 
writetanbauflaecheıBı2)j 
writelnt’° Hektar bebaut sind. ')ı 
write( "Jeder Buerger bewohnt durchschnittlich ')j 
writelflaecheprokopfı6ı2)j 
writeln(’ Hektar Baden. ')j 
write( ' Der Vorrat belaeuft sich auf ')j 
write(vorratı18:2)3 
writaln(t’ DZ Getreide. ')ı 
write( Die Staatskasse enthaalt °)j 
write (vermoegan: 18ı2)j 
writaelnt' Taler. ')j 
write(  Staatsausgaben dieses Jahrı ')j3 
write lausgabenı 9ı2)j 
writelnt‘ Taler. ')j 
write( Heutiger Bodenpreisı ’)353 
write(bodenpreis); 
writeln(’ Taler je Hektar. ')j 
write( ' Jahresertragı I 
writethektarertragıBı2)j 
writeln(‘ DZ Getreide je Haktar.')j 
write‘ Kornpreis ı 93 
write(kornpreisıSı2); 
writelnt‘ Taler ja DZ. ')j 
write Besanternte ı I 
writelernte:ßı2)j3 
writeiln(‘ DZ Getreide. ')j 
writet ‘Durch Ratten wurden ’)j3 
write(rattenschadanıSı2)3 
writelnt’ % der Ernte vernichtet. ‘)j 
zaahlerı=zaahlar+1j 

END; 


PROCEDURE eingabaj 
BEGIN 
writelng 
writet ' Moaechten Sie Land kaufen ');3 
writet ’oder verkaufen (K/V) ? ’)5 
read (input)jz 
writelng 
IF input ='k'’ THEN kaufenı=true 
ELSE kaufenı=talse; 
writet Wieviel Haktar ? °")j 
read (landkauf)g 
writeln; 
write( Gedanken Sie, Getreide ')j 
writel'’zu exportieren (J/N) ? ") 
read (input)ı 
writeln; 
IF input ="j' THEN 
BEGIN 


“us 
“| 
-.. 
m 


getreideı=truaj 
writet Wieviel DZ ? 
read (verkauf); 
writelng 
END 
ELSE getreidası=tfalas; 
write Wieviele DZ Betreide goennen 
write(' Sie jedem Untertan ? ')3 
read (zuteilung); 
writelng 
write( Wieviele Hektar duerfen ')j 
write('die Bauern bewirtachatten ? ')j 
read(anbauflaache); 
writeln; 
END; 


PROCEDURE eingabepruefungı 
BEGIN 
writeln; 
IF kaufen = true THEN 
IF (landkauf®sbodenpreis) 
BEGIN 
write '’Landkauf erlaubt Ihre ')j 
writeln( 'Staatskasse nicht. '); 
sinnvollı=falaajı 
END; 
IF kaufen = false THEN 
IF gesamttflasche-landkauf <@ THEN 
BEGIN 
writelnt Soviel Land besitzen Sie nicht. ')j 
sinnvallı=falsej 
END; 
zuteilung <=B THEN 
BEGIN 
write Leuteschinder - Sollen '); 
writelnt ' die Buerger verhungern ?'); 
sinnvollı=falsej 
END; 
zuteilung ?= (vorrat/volk) 
BEGIN 
writeln('So gross sind Ihre Vorraete nicht. 
sinnvollrı=falsez 
END; 


>= vermoegen THEN 


THEN 


Berechnen 
gemeinsamer Teiler 


Dieses Programm nimmt Ihnen die überaus lästige 
Arbeit ab, alle Zahlen herauszufinden, durch die 
eine andere teilbar ist. 


icher hatten Sie schon gelegentlich mal das Problem, 
daß Sie alle Teiler einer Zahl herausfinden wollten. Sei 
es für die Verwendung im Bruchrechnen oder zur 
Ermittlung von Primzahlen. Diese Arbeit nimmt Ihnen nun die 
Prozedur »Teiler« (Listing) ab. 

Nach der Compilation werden Sie gefragt, aus welcher Zahl 
alle Teiler berechnet werden sollen. Bitte geben Sie hier nur 
ganze Zahlen ein. Das Programm gibt Ihnen nunalle Teiler die- 
ser Zahl aus. Wird kein Teiler gefunden, so ist es eine Prim- 
zahl, was auch ein Antwortsatz bekannt gibt. 





Nach der Eingabe der Zahl, aus der die Teiler berechnet 
werden sollen, wird zuerst ein Flag (Schalter) auf »unwahr« 
gesetzt. Danach versucht das Programm, die eingegebene 
Zahl so oft wie möglich zu dividieren. Sind Teiler vorhanden, 
werden diese ausgegeben und das Flag auf »wahr« gesetzt. 
Am Ende der Prozedur wird noch einmal der Zustand des 
Flags abgefragt. Ist es »unwahr«, so konnte kein Teiler gefun- 
den werden, und die Meldung »Diese Zahl ist eine Primzahl« 
erscheint auf dem Bildschirm. 
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anbauflaeche <=@ THEN 
BEGIN 
write( Spassvogel — wo wallen ')j 
writeln( Sie denn anbauen ?')3 
sinnvoll:=false; 
END; 
anbauflaseche >8.5®* (gesamtflaeche+landkauf) THEN 
BEGIN 
write( Nur die Haelfte des Landes ')j 
writeln('kann bebaut werden. ‘')j 
sinnvollı=false; 
END; 
anbauflaeche>produktivitaet*volk THEN 
BEGIN 
write( ‘Soviel koennen Ihre Leute ')j 
writeln('nicht bebauen. ’)j 
sinnvollı=tfalse; 
END; 
END; 
BEGIN 
initialisierungı 
writelnt Wieviele Jahre moaschten Sie regieren ?'); 
readiIn(jahre); 
zahl ı=erandom (99) +15 
FOR jahrı=i TO jahre DO 
BEGIN 
zustandsausgabej 
REPEAT 
BEGIN 
sinnvollı=truej 
eingabe; 
eingabepruefungı 
END; 
UNTIL sinnvaolljz 
berachnung; 
END; 
zustandsausgabaj 
END. 


Listing »Kalser«: Bestimmen Sie über das Wohl und Wehe 
Ihres Volkes 











Die Prozedur eignet sich gut zum Einbinden in mathemati- 
sche Programme, also etwa in ein Mathe-Lexikon auf dem 
Computer. (Dieter Mayer/hi) 


FROGRAM Teıler (Input ‚„Dutput); 
VAR Zahl „Teiler: Integer; 
Schalter:boolean; 

BEGIN 
write ("Bitte geben Sıe die Zahl ein, 
aus der die Teiler berechnet ’)3; 
wrıteln (’werden sollen ''); 
read (Zahl); 

Schalter:=FALSE; 
WHILE Zahl>O DO 
REGIN 
FOR Teiler:=2 TO TRUNC(Zah1l/2) DO 
BEGIN 
IF Zahl MOD (Teiler)=O 
THEN BEGIN write (Teiler:5); 
Schalter :=TRUE 
END; 
END; 
IF Schalter=FALSE 
THEN write (° Diese Zahl 
ist eine Primzahl ’); 
writeln; writeln; 
read (Zahl); 
Schalter:=FALSE; 
END; 
Listing »Teller« 











Filer 


Turbo- 
Pascal 


Werden lauffähige Turbo- 
Pascal-Programme erzeugt, 
so verbraucht die in jedem 
xxx.com-File vorhandene 
Run-Time-Library 8 KByte. 











ollen mehrere kurze Programme auf einer Diskette 
gespeichert werden, stößt man schnell an die Grenze 
der verfügbaren Speicher-Kapazität. Der Turbo-Pas- 
cal-Compiler bietet mit der H-Option die Möglichkeit, Pro- 
gramme ohne die Run-Time-Library zu compilieren und sie 
dann als sogenannte Chain-Files aufzurufen. Von dieser 
Möglichkeit, Platz zu sparen, macht das vorliegende Pro- 
gramm Gebrauch. 

Die Benutzer-Programme werden speicherplatzsparend 
als xxx.chn-Files direkt auf die Filer-Diskette compiliert, ins 
Inhaltsverzeichnis (Inhalt.fil) eingelesen und dann von Filer 
aus aufgerufen. Um wieder zu Filer zurückkehren zu können, 
sollten die Benutzer-Programme mit der Prozedur »Ende« 
(siehe Listing) abgeschlossen werden. 

Die Auswahl der einzelnen Funktionen von Filer erfolgt mit 
den Cursor-Tasten »Pfeilnach oben«, »..nach unten«, »..rechts 
und links«. Die jeweilige Funktion beziehungsweise die 
Benutzer-Programme werden invers als Leuchtfeld darge- 
stellt. Durch Drücken der Home-Taste wird die angezeigte 
Funktion (Benutzer-Programm) ausgeführt. 





progran filer; 


(X Written by M.A. Schlösser x) 
Rheinstr. 28 X) 
6188 Darmstadt X) 
Tel: 088151 - 225 38% 
(X Stand vom 25. Juni 1985 %) 


RRRRTRRRRRREEELRRIEBREKEBBRERBBBRBBBBBLBBBBBERBRBBIEIBBBIBK) 
(% Turbo-Pascal Programme können speicherplatz-sparend %) 
(X nıt der K-Option des Campilers compiliert und von X) 
(X diesem Programm aus aufgerufen werden. u 
REEREERITRERERIERRRIBRERBRBEBLBBRERRBBELBBBREERBRBERIREKK) 


tvpe ınhaltrec = record 
Prognane: string (.12.): 
end; 


var dateibuffer: inhaltrec; 
datei : file o# inhaltrec: 
tvpe 
detString = arrav (.1..32.) of string (.12.); 
defset = set ot char; 
anystring = string (.88.); 


const 


bei = *6; (% Glocke %) 
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IT TT TET 


»Programm« führt die Benutzer-Programme aus, »Neuauf- 
nahme« liest ein auf der Diskette vorliegendes xxx.chn- 
Programm in das Inhaltsverzeichnis ein, »Löschen, Umbe- 
nennen und CP/M« erklären sich von allein und bedürfen 
somit keiner weiteren Erläuterung. 


Ob groß, ob klein... 


Alle vom Programm geforderten Eingaben können beliebig 
als Klein- oder Großbuchstaben erfolgen. Durch Drücken der 
ESC-Taste können alle laufenden Routinen abgebrochen 
werden. 

Das Quellprogramm besteht aus filer.pas und lib.inc. In 
lib.inc können Anpassungen an verschiedene Terminals vor- 
genommen werden. Die Erläuterungen sind in das 
Programm-Listing eingefügt. Das lauffähige Programm 
besteht aus filer com. Das File inhalt.fil wird beim ersten 
Programm-Lauf automatisch erzeugt. 

(M.Schlösser/ev) 


var 
lines, inharray 
arraynr, arraylaenge,i 
filenane,helpstring 
pruet „file_exist boolean; 
tilevar ı file: 
zch t char; 


ı defstring; 
integer ; 
t anystring; 


(XI filer.lib % 


procedure ınitınhalt (var z : defstring; 
var anz.rec: integer): 
(% liest Inhaltsverz. von der Diskette und %) 
(% erzeugt inharray %) 
begin 
anz-rec:= B; 
pruef:= exist (’asinhalt.fil’); 
assign (dateı,’asinhalt.til”); 
if pruef then 
begın 
reset(datei); 
while not eof (datei) do 
begın 
read (datei ,dateibuffer) ; 
anz.rec:= anz_rect]; 
ı( .anz_rec..):= dateibuffer .progname ; 
end; (X while % 


Listing. »filer.pas« 
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Mana&hmik 
Schneider CPC 
Software 


Die Programm-Bibliothek für Turbo Pascal 


über 100 Prozeduren und Funktionen In 
Turbo Pascal Boume Code: 
Biimanlpulation, Sortierwerfahren, Spline- 
tunktlanen, Fouriertransformation, 
Regrassionsanalyse und vielae mahr. 


3° Schneider-Format 


TURBO-Lader-Grundpaket 


Das TURBO-Lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
TURBO-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen Lösung seiner Programmierauf- 
gaben verwenden kann und dem Einsteiger 
das Erlernen der Pascal-Programmierung 
erleichtern. Das Grundpaket TURBO-Lader 
bietet ein breitgefächertes Spektrum von 
Routinen, beginnend bei Bitmanipulation 
über optimierte Sortierverfahren bis hin zur 
Anwendung von Splinefunktionen, Fourier- 
transformation und Regressionsanalyse. Des 
weiteren Disketten-Routinen zum Lesen 
eines Inhaltsverzeichnisses oder zum Lesen 
und Schreiben einzelner Sektoren, Routinen 
zur Datenüberprüfung, ein Spooler mit Steu- 
erroutinen, erweiterte Stringverarbeitung 
und vieles mehr. Alle Routinen werden im 
kommentierten Quellcode für den TURBO- 
Pascal-Compiler ausgeliefert 

Das TURBO-Lader-Grundpaket erfordert 
den TURBO-Pascal-Compller. Es Ist llefer- 
bar auf 3° -und5 1/4 "-Disketten und lauffä- 
hig auf dam Schneider CPC 464, CPC 664, 
CPC 6128 und Joyce. 


3°-Disk. Best.-Nr. MS 413 
51,,*-Disk. Best.-Nr. MS 415 


DM 138,-IsFr. 125,-J6S 1380,* 


“inkl. MwSt., unverbindliche Preisempfehlung. 





Minkikliectnik 


Software 


generator und eine professionelle Datel- 
verwaltung in Turbo Pascal Source Code. 


1" Stehen Forımunt 


TURBO-Lader Business 


TURBO-Lader Business umfaßt einen kom- 
fortablen Bildschirm-Maskengenerator und 
eine professionelle Dateiverwaltung. Der 
Maskengenerator gibt dem Pascal-Program- 
mierer ein Werkzeug zur einfachen Bearbei- 
tung vonBildschirm-MaskenindieHand Eine 
Maske kann beliebig viele Textlelder, bis zu 
128 Eingabe- und 128 Ausgabefelder enthal- 
ten. Eingabefelder können auf komfortable 
Art editiert und auf Gültigkeit überprüft wer- 
den. Das Dateiverwaltungsmodul unterstützt 
die Programmierung von Datenbankanwen- 
dungen und Stammdatenverwaltungen. Es 
besteht aus einer komlortablen Datensalz- 
und Indexverwaltung mit mehreren Schlüs- 
sein und Index-Dateien, die einen sekunden- 
schnellen Zugriff auf beliebige Daten ermög- 
licht. Mit diesen beiden Modulen stehen dem 
Anwendungsprogrammierer zwei professio- 
nelle Werkzeuge zur zeit- und kostensparen- 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im kom- 
mentierten Quellcode für den TURBO-Pas- 
cal-Compiler ausgeliefert. 


TURBO-Lader Business erfordert den 
TURBO-Pascal-Compller und das TURBO- 
Lader-Grundpaket. Es Ist lieferbar auf 3”- 
und5 1/4 °-Disketten und lauffähig auf dem 
Schnelder CPC 464, CPC 664, CPC 6128 
und Joyce. 

3*-Disk. Best-Nr. MS 423 

51,,"-Disk. Best.-Nr MS 425 


DM 148 -IsFr. 132,-10S 1480, 





TURBO-Lader Science 


TURBO-Lader Science ist eine Sammlung 
technisch/wissenschattlicher Funktionen 
und professioneller statistischer Verfahren 
für dıe Bereiche Medizin, Betriebs- und Volks- 
wirtschaft, Technik und Naturwissenschaf- 
ten. Das Modul enthält alle arithmetischen 
Operationen zur Verarbeitung komplexer 
Variablen inklusive der Umrechnung der Dar- 
stellung und die wichtigsten komplexen 
Funktionen wie Potenz, Wurzel, trigonometri- 
sche, transzendente und exponentielle Funk- 
tionen. Darüber hinaus ist ein vollständiges 
Paket zur Verarbeitung komplexer Matrizen 
und Vektoren enthalten. Der Statistikteil ist 
ein praktisches und direkt verwendbares 
Werkzeug zur Computerunterstützten, effek- 
tiven Datenanalyse. Er umfaßt eine Vielzahl 
statistischer Funktionen mit den Schwer- 
punkten Regression und Korrelation, des- 
kriptive Statistik, Faktoranalyse und Testver- 
fahren. Alle Routinen werden im kommeniier- 
ten Quellcode für den TURBO-Pascal- 
Compiler ausgeliefert. 


TURBO-Lader Science erfordert den 
TURBO-Pascal-Compller und das TURBO- 
Lader-Grundpaket. Es Ist lieferbar auf 3°- 
undS5 1/4 "-Disketten und lauffählg auf dem 
Schnelder CPC 464, CPC 664, CPC 6128 
und Joyce. 


3°-Disk. Best-Nr. MS 433 
51,,*-Disk. Best.-Nr. MS 435 


DM 189,-IsFr. 169,-J6S 1890, 


Übrigens können Sie auch alle TURBO-Pascal-Produkte für Schneider CPC 464/664/6128 und Joyce bei Markt & Technik beziehen: 


- TURBO Pascal 3.0, Best.-Nr. MS 514 (CPC), Best.-Nr. MS 515 (Joyce) DM 225,72° - TURBO Tutor (englisch), Best.-Nr. MS 544 (CPC), Best.-Nr. MS 545 (Joyce) DM 104.86* 
- TURBO Pascal 3.0 mit Grafikunterstützung,. Best.-Nr. MS 524 (CPC) DM 285,-* - TURBO Graphix Toolbox, Best.-Nr. MS 564 (CPC) DM 225,72° 


- TURBO Tutor (deutsch), Best.-Nr. MS 534 (CPC), Best.-Nr. MS 535 (Joyce) DM 104,86 ° 


- TURBO Toolbox, Best.-Nr MS 554 (CPC), Best -Nr. MS 555 (Joyce), DM 225,72° 


TURBO-Pascaf! ist ein Warenzeichen der Borland Inc., USA. TURBO-Lader, TURBO-Lader Business und TURBO-Lader Science sind Warenzeichen der Fa. Lauer & Wallnitz. 


Diese Markt & Technik-Softwareprodukte erhalten 


Sie in den Fachabteilungen der Kaufhäuser 
und in Computershops. 


Wenn Sie direkt beim Markt& Technik Verlag 
bestellen wollen: 


Nur gegen Vorauskasse, Verrechnungsscheck 


oder mit der eingedruckten Zahlkarte. 





Markt&Technik 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 


Bestellungen im Ausland bitte an 
untenstehende Adressen: 


Schweiz: Markt & Technik Vertriebs AG, 


Kollerstr. 3, CH-6300 Zug. Tel. 042/41 5656 


Österreich: Ueberreuter Media Handels- 
und Verlagsges. mbH, Alser Str. 24, 
A-1091 Wien, Tel. 0222/48 1538-0 








it anz_rec=@ then 
begin 
lawvideo: 
gotoxy(1,12) ;write (’Neuaufnahme aufrufen °); normwıdeo;: 
end; (% if anz-rec %) 
end (% if pruef U 
else begin 
rewrite(datei); 
lawvideo; 
gotoxy(1,12) swrite (‘Neuaufnahme aufrufen °); normvideo; 
end; (% else %) 
close (datei); 
end; (% procedure initinhalt % 


procedure head_string (var z:defstring ; 
(% Dient zur Zuordnung der Daten für den %) 


(X auszudruckenden array % 
begin 
z(.1.):= Programm‘: z(.2.):= ‘Neuaufnahme‘; 2(.3.) 3=’Löschen’ ; 


"\irbenennen’; z(.3.):= ’CP/M' ; 
end: (% procedure head_string X) 


procedure programn_ueberschrift; 

begin 

ootoxy(1,16) ;sclreol; 

write (‘PROGRAMME (vorh: ’,arraylaenge,’ 
end; 


nax: 32. )°%); 


procedure msg(zeile:integer) ; 

begin 

gotoxy(i,zeıle); 

writeln (“Leuchtfeld mit Cursor-Tasten auf gewünschtes Programm stellen‘); 
writeln (“und die HOME-Taste drücken. ‘); 

end; 


procedure init_array; 
(% Schreibt inharray auf Diskette 9 


begin 
assion (datei,’inhalt.fil‘): 
rewrite (datei); 
for i:= | to arraylaenge do 
begin 
dateibuffer .prognane := inharray(.i.): 
wrıte(dateı ‚dateibuffer) ; 
end; (X for i 9 
close (datei); 
end; (X procedure init_array X) 


REEETSIEERIIREEBBBEBELEISBREBBRELBERERIBBGURK) 
(% Hauptprogramm Filer Y 
RREEIEERIRRREBREEBRLRBBEREIBBRORDBBERBBEUUO 
begin 
eIrscr; 
writeln(’ 
writeln(’ 
writeln; 
tor is= I to 79 do write (’-'); 
initınhalt (inharray,arraylaenge) ; 
head_string (lines); (X liest Funktion-Auswahl in das array lines %) 
schreib_array (lines, 5, 1,5, 15, 4 ); 

(X array/ anz/ x-y pos/ abstand/ worte/zeile %) 
ootoxy(1,Dd; for i:= 1 to ?9 do write (’-"); 
progr ann_ueberschrift; 
schreib_array (inharray,arraylaenge,1,17,15,4) ; 
(% schreibt Benutzer-Prog. % 


Filer tür Turbo-Pascal Programme unter CP/M’); 
written by M.A.Schlösser Juni 1985’); 


repeat (% until true = false %) 

nsg(9) ; 

arraynr:= select (lines, 5, 1,5, 15, 4 I 
(X array/ anz/ x-y pos/ abstand/ worte/zeile %) 
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c!rin(9, 12; 
case arraynr of 
ls: begin (X Progranın %) 
gotoxy(1,9) ;Iawideo; 
writeln (’Progr ammAuswahl ‘) ;normvideo: 
nsg( 10) ; 
arraynr:= select (inharray,arraylaenge, 1,17,15,9) ; 
if arraynr () 0 then 
begin 
assign(filevar,,inharray(.arraynr .)+’.chn‘); 
chain (filear); 
end (X if arramr X 
else cIrIn(9, 11); 
end; (X case of | %) 
begin (% Neuaufnahme %) 
gotoxy( 1,9) ;Lowideo;writeln(’Neuaufnahme’) snoravideo; 
write (‘Das ins Inhaltsverzeichnis aufzunehmende File muß ‘); 
writeln (’unter xxx.chn auf der’); 
writeln (‘Diskette vorliegen. Die Namen-Eingabe ohne File-Kennung!' ‘); 
line_editor (‘Progranmanen eingeben’,1,13, 8, filename, 
WAT; 
(X TextAusgabe/ x-y pos/ Länge/ variable/ gültige Zeichen % 
if filenane () ’’ then 
begin 
Unw_in_6rossbuchstaben (filename) : 
helpstring:= tilename*‘ .chn‘; 
pruef:= exist (helpstring) ; 
if pruef then 
begin 
arraylaenge:=arraylaenget 1; 
inharray(.arraylaenge.) :=filenane: 
progr auım_ueberschritt; 
schreib_array (inharray,arraylaenge,1,17,15,9 ; 
init_array; 
end 
else begin 
write (bell); 
gotoxy(1,13) scireol; 
write (’”Das File --) °.helpstring,’ 
(— ist nicht auf Diskette‘); 
write (’ vorhanden. Taste drücken.‘); 
repeat until keypressed; 
end; (X else %) 
end; (% if filenne () ’’ 
cIr!n (9,19); 
end; (X case of 2% 


3: begin (% Löschen %) 
gotoxy(1,9 ;lowideo; write (‘Löschen’); normwideo; 
asg( IB) ; 
arraynr:= select (inharray,arraylaenge, 1,17,15,4) ; 
if arraynr()8 then 
begin 
cIrin(19,10D5; 
gotoxy(1,1@) swrite (“File —-)'„inharray(.arraynr.), 
‘(=- löschen (j/n) "); 


rm 
.. 


repeat 
read (kbd.zch) ; 
until upcase(zch) IN (.’J’,’N’25 
if upcase(zch) = ’J’ then 
begin 
assign (filevar ,inharray(.arraynr .)+’.chn‘); 
erase (filevar); 
tor is= arraynr to arraylaenge do 
inharray(.i.)s= inharray (.itl.); 
arraylaenge:= arraylaenge-1; 
init_array; 
cIrIn(17,29 ; 
schreib_array (inharray,arraylaenge,1,17,15,9 ; 
end; (X if zch= J % 
end; (X if arrayır DI 
cIr!n(9, 19; 
progr amı_ueberschrift; 
end; (X case löschen %) 


4: begin (% Umbenennen %) 


Listing. »fller.pas« 
(Fortsetzung) 














gotoxy(1,9;lowideo; write (“Umbenennen‘) ; normvideo; 
msg (19); 
arraynr:= select (inharray,arraylaenge, 1,17,15,4) ; 
it arraynr () 8 then 
begin 
file_exist:= false; 
eirin (18.10; 
gotoxy(1,10) ; 
writeln (”File umbenennen ;' ‚inharray(.arraynr.)); 
line_editor (‘Neuer Nane 
‘.1,11,8,filenane,(.’0°..9°,A’..’2’.)5 
Umw_in_Grossbuchstaben (filename) ; 
for i:= I to arraylaenge do 
if filename = inharray (.i.) then file_.exist:= true; 
if file_exist then 
begin 
gotoxy(i,1l)scireol; 
write (bell,’ein File ‘,filenane,‘ existiert bereits. 
Taste drücken ‘); 
repeat until Keypressed; 
end (% if file-exist 9 
else begin 
assign (filevar,inharray (.arraynr.)+’.chn‘); 
rename (filevar .tfilename+’.chn‘) ; 
inharray („arraynr.) := filename; 
init_array; 
cIrin (17,29 ; 
schreib_array (inharray,arraylaenge,1,17,15,4) ; 
end; (% else %) 
end; (% if arrayır OD 0 X 
cIrin (9,11); 
end; (X case wabenennen %) 


3: begin (% Rückkehr zu CP/M %) 
cIrser; write C’CP/M - Betriebssystem’) ; 
writeinswriteln; 
halt; 


end; (X case (PM X 
end; (Xcase %) 
until truesfalse; Listing. »filer.pas« 
end. (Schluß) 


(X Library-include Proceduren X) 
function exist(filenane: anystring) : boolean; 
(% prüft, ob File auf Diskette vorhanden %) 
(% wenn vorhanden wird exist=true gesetzt %) 
var f: file: 
begin 
(%$]-% 
assign(f,tilenane) ; 
reset(f): 
(X$1+%) 
if IOresult®58 then exist:=false 
else exist:=true; 
end: (% #unction exist % 
procedure Unw_ın_Grossbuchstaben (var text:anvstring) : 
(KN-H 
var i: integer: 
begin 
for is= I to Iength(text) do 
text(.i.)s= upcase (text(.i.)); 
end: (% procedure Uss_in_Grossbuchstaben %) 
procedure schreib.array (var name: detstring; 
anz,xstart,ystart,abstand, 
worte_pro_2eile: integer) : 
(% schreibt array an vorgegebene Stelle des Bildschirms % 
(% defstring muss global definiert werden v 


(% unter anz ist die Länge des Arrays zu verstehen % 
var 


I.x.v.wortzaehler : integer: 
begin 
ı= xstarts yszystart: wortzaehler := 9; 


























gotoxy(xstart,ystart) scireol; 
for i:= I to anz do 
begin 
gotoxv(x,y); 
write (nane(.i.)): 
xı= xtabstand: 
wortzaehler :=wortzaehler + |; 
if wortzaehler= wor te_pro_zeile 
then begın 
yı= yrls xı= start; wortzaehler:= 9; 
gotoxy(x,y)i clreol; 
end: 
end: (X for i %) 
end: (% procedure schreib_array %) 


function select (var nane : defstring; 
anz,xstart,ystart,abstand, 
worte_pra_zeile :ı Integer) : integer; 


(% Bewegt das Leuchtfeld entsprechend der definierten Tasten Y 
(X wird die ESC-Taste gedrückt, so wird select=8 zurückgeliefert %) 
(% ansonsten die Ifdnr des übergebenen Arrays % 
const 

(X Diese Codes beziehen sich auf das Terminal %) 

(% Basis 108 und müssen auf andere Terminals %) 

(X angepasst werden. % 


hoch = #139: (% Leuchtfeld I Zeile nach oben %) 
runter= #138: (% Leuchtfeld I Zeile nach unten %) 
rechts= #149; (% Leuchtfeld I Wort nach rechts % 
Iinks= #1361 (% Leuchtfeld I Wort nach links %) 


bell = *G: (% Glocke % 
escc =#27: (X ESC - Taste x) 
home = #192: (X HOME - Taste %) 
var 

zch ı char: 

XyyıXmaX ,vmax,i. 

arrayıır : integer: 

on_off ı boolean; 


procedure invers_on_off: 

begın 

gotoxy(x,y); 

for is= I to abstand do 
write (’ '): 

on-off:= not (on_off); 

it on_off then lowideo: 

gotoxy(x,y); 

write (nane(.arraynr.)); 

normvideo; 

end: (% procedure invers_on.off % 


(% Hauptprogramm selector % 
begin 
x:= xstarts yı= ystart: arraynr:= I: on_off:= false: 
xmax:= worte_pro_zeile % abstand: 
wmax:=( anz div worte_pro_zeıle) +ystart; 
if anz mod worte_pro_zeile ) 9 then ymax:=ymax + 1; 
ınvers_on_off: 
repeat 
repeat 
read (kbd,zch) : 
until zch IN (.hoch runter ‚rechts, links.esc ,hane.) ; 
case zch of 
hoch: begin 
invers_on_off: 
yızy-l; 
if y(vstart tnen 
begin 
yı= ystartı 
invers_on.off: 
end (X it 9 
else begin 
arraynr:= arraynr - worte_pro_zeıle; 
ınvers_on_off; 
end: 


end: (X case hoch %) Listing. »lib.Inc« 
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runter: begin 
invers_on_off; 
yıytl; 
if y)ynax then 
begin 
ya vd; 
invers_on_off; 
end (% if % 
else begin 
arraynr:= arraynr + worte_pro_zeile; 
if arraynr) anz then 
begin 
arraynr:= arraynr-worte_pra_zeile; 
yızy-]i 
end; 
invers_on_off: 
end; (% else % 
end; (% runter %) 
rechts: begin 
invers_on_off: 
xı=xtabstand; 
it xdxmax then 
begin 
xı= x-abstand: 
invers_on_off; 
end 
else begin 
arraynr:= arrayır + 1; 
if arravnr ) anz then 
begin 
arraynr:= anz; 
x:= x-abstand; 
end; 
invers_on_off: 
end: (X else %) 
end; (% rechts %) 
links : begin 
invers_on_off; 
xsex-abstand; 
if x(xstart then 
begin 
x:= xstart; 
invers_on_off: 
end 
else begin 
arraynr:= arramır - 1; 
if arraynr(i then 
begin 
arrayvnr:= |; 
x:= xstart; 
end: 
invers_on_off; 
end: (X else %) 
end; (% links 9 
esc : begin 
invers_on_off; 
arrayır:= 0; 
zch:= hame; 
end; (X esc %) 
end: (% case % 
until zch=hame; 
if arravnr() 8 then invers_on_off: 
select:= arraynr; 
end; (% function select %) 


procedure line_editor (text  anystring; 
xstart,ystart, 
eingfeld integer; 


var stringvar : anystring: 

addstring ı defset): 
(A Wird die ESC-Taste gedrückt, so wird ein leerer String X 
(X zurückgeliefert, Inter eingfeld ist die Länge des zurück- % 


(% zuliefernden Strings zu verstehen. v 
(AW-%) 
const (X Diese Codes überprüfen und evti. anpassen %) 

bel =: (% Klingelzeichen v 
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Esc = 0271 (% ESC-Taste X 

return = #13: (% Return Taste Y 

bachspc = *H: (X Cursor 1 Zeichen nach links % 
var Xıly 

zaehler : integer; 

ıch ı char: 


begin 
zaehler:= 8; stringvar:='": x:= length (text) +3; 


(X Schreibe Text und stelle Cursor auf % 
(% Eingabefeld y) 
gotoxv (xstart,vstart) scireol; write (text, 27); 
for i:= | to eingfeld do 
write (’ °); 
write (’:’); 
gotoxy(x,ystart); 


(% Erzeugen der auszugebenden Variablen %) 
repeat (% until return %) 
repeat 
read (kbd.zch) : 
until (zch IN (.backspc,return.esc.)) or (zch IN (addstring)): 
if (zaehler )= eingfel® and (not(zch IN (.backspc ‚return,esc.))) then 
write (bell) 
else begin 
case zch of 
backspc: begin 
if length(stringvar))® then 
begin 
delete (stringvar ‚length(stringvar) .1); 
write (backspc,’ ’,bachspc) ; 
zaehler;= zaehler-1: 
end; 
end; (% backspc % 
Esc: begin 
stringar:= ’’; 
zch;= return; 
end; (X esc %) 
return:: 
else 
stringvar:= stringvartzch: 
write (zch); 
zaehler:= zaehler + ]; 
end: (X case %) 
end; (X else %) 
until zch = return; 
end; (% procedure line_editor %) 
procedure cIrIn (start,ende:integer) ; 
(X löscht die Zeilen von Start bis Ende %) 
var i: integer; 
begin 
for i:= start to Ende do 
begin 
ootoxy(1,i);cireol; 
end; 
end; (% procedure cirIn %) Listing. »lib.Inc« 
(% Ende der Library-include Proceduren I) (Schluß) 


(% Die Benutzerfrogramme xxx.chn sollten 
(% mit dieser Procedur abgeschlossen werden, %) 
(% un nach Filer zurückkehren zu Können Y 


procedure ende; 

var diskfile : file; 

begin 

assign (diskfile,’tiler.can’); ' 

axecute (diskfile): 

end; Listing. vende.inc« 

















Zeichenfolge analysiert 


Nicht nur zum Compilerbau müssen Zeichenket- 
ten untersucht werden. Wie man so etwas macht, 
das lesen Sie hier. 


ormale Sprachen, wie zum Beispiel alle Programmier- 

sprachen, sind künstliche Sprachen. Sie werden 

jedoch nach den gleichen Gesetzen wie unsere natür- 

lichen Sprachen gebildet. Dazu muß man sich über einige 

Grundbegriffe Klarheit verschaffen. 

Vokabular = Menge der existierenden Wörter 

Satz = Folge von Wörtern 

Syntax (Grammatik) = Regel zur Bildung von korrekten 
Sätzen 

Die Syntax legt fest, welche Wortfolgen zu einer Sprache 
gehören. Genau dies muß auch beim Compilerbau beachtet 
werden, da der Compiler beim Übersetzen überprüfen muß, 
ob ein Programm syntaktisch richtig geschrieben ist. 

Die beiden nachfolgenden Programme lösen diese Auf- 
gabe für eine sehr einfache formale Sprache. 

Gegeben ist folgende Grammatik: 
<A>::=a(<A>) 

Damit gelten zum Beispiel folgende Sätze: 
<A> — ((a)) 

<A>-a 

<A> — (((a))) 

Das bedeutet, daß unsere Sprache nur drei Zeichenele- 
mente kennt »a«, »(« und »)e. Das Bildungsgesetz wird aus 
den Beispielen oben deutlich: entweder handelt es sich um 
das Zeichen »a«, oder, falls Klammern gesetzt sind, muß die 
Anzahl der linken Klammern ebenso groß sein wie die der 
rechten. 

Lösung 1: rekursive Analyse 

Die Aufgabe wird in dem ersten Listing mit Hilfe einer rekur- 
siven Prozedur gelöst. In der Prozedur wird jede öffnende 
Klammer auf dem Stack abgelegt. Ist das »a« erreicht, sozu- 
sagen der »Wendepunkte, wird durch die schließenden Klam- 
mern der Stack wieder geleert. 





program zeichen_rekursiv (input „output)jz 


(Bunte) 
(".. “.s) 
(#«## Rekursive Analyse einer Grammatik #+®) 
(un. ““s) 
(wunununsunnuuusuunuuuuuenueuunueeeeeuuanenn) 


var zeichen ı char; 
tehler ı booleany 


procedure a (z : char; var tehler t boonlean); 


(uunununnnuuunnsnnuuuueereuereuueneer) 
(#s8®» »u®e) 
(“se Rekursive Analyse Precedure #®#) 
(#0 .r) 
(BUUERERURUHRRLHRRURUERU HERE EHER) 


begin 
case z of 
"(" ı begin 
read(z); 
alz,fehler); 
read(z2)3 
it (z <> 
endj 
a' 23 
otherwise 
tehler ı= truej 
end; (# case z of #) 
end; (# Procedure a #) 


")') then fehler ı=- true; 








Falls an irgendeiner Stelle ein Fehler festgestellt wurde, so 
setzt der Computer ein »Fehlerflag« (FEHLER : BOOLEAN). 

Die Grundstruktur zur Feststellung des übergebenen Zei- 
chens stellt ein CASE-Konstrukt dar, in dem vier Fälle unter- 
schieden werden: 

1. Zeichen = »(« 
2. Zeichen = »a« 
3. Zeichen = »)« 
4. alle anderen Zeichen (ÖTHERWISE) 

Imersten Fallmüssen zwei grundsätzliche Aufgaben gelöst 
werden: a) Rekursiver Prozeduraufruf mit einem eben gele- 
senenen Zeichen undb) nach der Rückkehr von der höheren 
Rekursionsebene die Überprüfung, ob zu der öffnenden 
Klammer der Prozedurebene das nächste Zeichen, welches 
eine schließende Klammer sein sollte, paßt. Im Fehlerfall wird 
an den Variablenparameter FEHLER (Fehlerflag) die 
»Falsch«-Information weitergegeben. Im zweiten Fall bleibt, 
da »a« ein erlaubtes Zeichen ist, aber danach nur mehr das 
Leeren des Stacks stattfindet, der Anweisungsteil leer. Der 
dritte Fall entspricht wiederum dem ersten und der vierte und 
letzte Fall ist sehr einfach, da hier nur das Fehlerflag gesetzt 
werden muß (unzulässiges Zeichen). 

Im Hauptprogramm werden nach dem Bildschirmaufbau 
und der Eingabeaufforderung zunächst durch den Konstrukt 
REPEAT 
READ(ZEICHEN); 

UNTIL ZEICHEN () ' '; 

führende Leerzeichen überlesen, wodurch nach dem Verlas- 
sen der Schleife in ZEICHEN schon das erste Zeichen steht. 
Als nächstes wird das Fehlerflag mit FALSE initialisiert. 
Anschließend kann nun die Untersuchung des ersten einge- 
lesenen Zeichens in einem CASE-Konstrukt folgen. 

Für den Fall einer öffnenden Klammer wird sofort mit die- 
sem Zeichen und dem Fehlerflag die Prozedur aufgerufen, 
die sich wiederum selbst so oft aufruft, bis das aktuelle Zei- 
chen ein »a« ist. Danach werden die auf den Stack abgelegten 
öffnenden Klammern wieder abgetragen. Ist das Zeichen ein 
»a«, passiert nichts, denn das Ganze ist schon fast fertig. 


begin 


(nnunuaunuunuusuuuauuuusu®) 
(wu “us) 
(*#*4 Hauptprogramm ###) 
(au “u.e) 
(anunnunuunnauausuuuutnue) 


writeln; 
writeln ('° Eingabe ');3 
readinjz 
repeat 
read(zeichen)j;j 
until (zeichen <> ' '); 
tehler ı= #alseı 
case zeichen af 
"(’ 2 a (zeichen,fehler); 
a 23 
otherweise 
tehler ı= true 
end) (# case zeichen of #) 
read(zeichen)z 
if (zeichen <> ' ') then 
tehler ı= truey 
writeln; 
if tehler 
then 
writeln ('’# Fehler #') 
else 
writeln ('% O.K. en 
writelng 
end. 


Listing 1. Rekursion ist die elegante Lösung 








Lediglich wenn noch ein anderes Zeichen gelesen wurde, 
wird ein Fehlerfall durch das Fehlerflag angezeigt. Um auszu- 
schließen, daß durch ein noch folgendes Zeichen das Einga- 
bewort noch unerkannterweise falsch wäre, wird dies einge- 
lesen und überprüft: ist es ungleich einem Leerzeichen, wird 
wiederum das Fehlerflag aktiv. Den Schluß bildet noch ein IF- 
THEN-ELSE-Konstrukt, das dem Benutzer aufgrund der 
Variablen FEHLER mitteilt, ob das Eingabewort syntaktisch 
korrekt ist oder nicht. 
Lösung 2: Iterative Analyse 

Dieses Programm löst die Syntaxüberprüfung auf »konven- 
tionellem« Wege. Dazu werden zunächst wie bei der rekursi- 
ven Lösung erst der Bildschirmaufbau, Überlesen führender 
Leerzeichen und die Eingabe erledigt. Danach beginnt die 
eigentliche Analyse. Um gleich zu Beginn Fehlerfälle auszu- 
schließen, entscheidet eine Abfrage, ob das erste gefundene 
Zeichen erlaubt ist, also entweder »a«, »(« oder »)«. Im Fehler- 
fall wird das Fehlerflag gesetzt. Falls es sich um ein erlaubtes 


program zeichenfalgen_iterativ (input ‚output)j3 


lnsasassuununnnseusannnaerauun near en] 
(ss8 u.) 
(v#a# ]Iterative Analyse einer Gramatik ®s®e) 
(ase au) 
(nssu4sas nasser aan) 


var zeichen ı charyı 
tehler ı bocleanı 
ebane ı integerj 


(unnueaanunuuannununne| 
(aaa “..s) 
(ses Hauptprogramm ##®%) 
Iin»» “..e) 
(usnauanuannuauuauauune) 


begin 
writelng 


writeln (' Eingabe ')j 


readizeichen)j; 
until (zeichen <> ' '‘)j 
tehler ı= !aluaı 
it (zeıchen <> 
then 
tahler ı=- true 
else 
begin 


*(') and (zeichen <> 'a') 


Rekursive Spielereien 


Die Fibonacci-Zahlen sind ein schönes Beispiel, 
um die Unterschiede zwischen rekursiver und 
iterativer Programmierung verstehen zu lernen. 


in lehrreiches Beispiel der rekursiven Programmie- 

rung, das heißt der Programmierung von Unterpro- 

grammen, die sich selbst aufrufen, ist ein Lösungsweg 
zur Berechnung der Fibonacci-Zahlen. 

Der im Mittelalter lebende, italienische Mathematiker Leo- 
nardo Pisano (zirka 1180 bis 1240), stellte eine Zahlenfolge 
auf, in der jede Zahl die Summe der beiden vorhergehenden 
Zahlen darstellt und deren erste Elemente mit O und 1 vor- 
definiert sind. 

Daraus ergeben sich folgende Elemente der Folge: 


0. Element : 0 
1. Element : 1 
2. Element : 1= O+l 
3. Element : 2= 1+1 
4. Element : 3= 2+1 
5. Element : 5 = 3+2 
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Zeichen handelte, kann in einem WHILE-Konstrukt der Klam- 
merebenenzähler solange inkrementiert werden, wie das 
nachfolgend eingelesene Zeichen ein »(« ist. Damit steht ir 
dem Zähler die Zahl der öffnenden Klammern. Nun wird abge- 
fragt, ob das von der Klammer verschiedene Zeichen ein »a« 
ist. Das Fehlerflag zeigt einen Fehler an. Im anderen Fall kann 
mit dem Zählen der schließenden Klammern begonnen wer- 
den. Dazu dient wieder ein WHILE-Konstrukt mit Dekremen- 
tierung der Klammerebene und dem Einlesen des nächsten 
Zeichens. 

In der nun letzten Abfrage, ob das nachfolgende Zeichen 
ein Leerzeichen oder die Klammerebene gleich Null ist, wer- 
den die letzten Fehlermöglichkeiten des Wortes abgefangen. 

Zum Schluß wird wieder ebenso wie in der rekursiven 
Lösung, je nachdem, ob ein Fehler festgestellt wurde oder 
nicht, ein positiver oder negativer Hinweis ausgegeben. 


(Max Moser/Harry Paintner/hg) 


ebene ı= 0j 
while (zeichen ='(') da 
begin 
ebene ı= abene + Ij 
read (zeichen); 
endı 
(zeichen <> 'a‘) 
then 
tehler ı= true 
else 
begin 
read (zeichen); 
“hile (zeichen = 
begin 
ebene ı= ebene — |1j 
read (zeichen); 
end; 
i# (zeichen <> ") ar ltaebene <> O) then 
tehler ı= true 


‘')') da 


endı 
end; 
writeing 
it tehler 
then 
writelnt’# Fehler #'‘) 
elue 
writelnt'’% O.k. %')5 
writeln 
end. 


Listing 2. Die Iterative Umsetzung Ist nicht ganz so schön 





6. Element : 8 
7. Element : 13 
8. Element : 21 


Rn 
8 +5 
13 + Bund so weiter 


Man kann die Entwicklung auch mit folgender Formel dar- 
stellen: 

f(i) = fli-1) + f(1-2) 

Es gibt nun zwei Möglichkeiten, die Fibonacci-Zahlen mit 
dem Computer iterativ und rekursiv zu bestimmen: 

Listing 1 zeigt die iterative Lösung mit einer REPEAT- 
UNTIL-Anweisung. Sie ist zwar ebenso effektiv wie die rekur- 
sive Lösung (Listing 2), aber bei weitem nicht so elegant. 

Allerdings ist zu beachten, daß bei rekursiver Programmie- 
rung der Stack überlaufen kann, wenn man zu große Zahlen- 
werte benutzt, da alle Daten der Rekursion (Rechenergeb- 
nisse, Rücksprungpointer und so weiter) auf dem Stack zwi- 
schengespeichert werden. 

So wird zum Beispiel das 4. Element der Fibonacci-Folge 
in folgenden Schritten berechnet (siehe Bild). 


(Max Moser/Harry Painter/hg) 























FIBONACCI(4) 
= FIBONACCI(3) +FIBONACCI(2) 


FIBONACCI(2) +FIBONACCI(1)+ FIBONACCI(1)+FIBONACCI(O) 
FIBONACCI(1) + FIBONACCI(O) + 1 +1 +0 

1 +0 +2 

3 





Bild. Berechnung des 4. Elements der Fibonacci-Folge 


program fibonacci_iterativ (input, ,output); 
var index, zahl, vletzte, letzte, aktuell : integer; 
begin 
repeat 
write (’Ritte geben Sie die Elementnummer der Fibonacci-Folge ein: 3 
readin (zahl); 
Until Zahl >= 0; 
write (’Die Fibonacci-Zahl ist ’); 
if zahl “= 2 then 
begin 
case zahl of 
Ö : writeln (’'O’); 
1,2 : writeln ('’1'); 


end; 
end else 
begin 
vletzte := 1 
letzte := 1; 
index ı= 2: 
repeat 
aktuell := vletzte + letzte; 
viletzte := letzte; 
letzte := aktuell; 
index = ındex + 1; 
until index = zahl; 
writeln (aktuell); 
end: 
end. 


Listing 1. Die Fibonacci-Zahlen Iterativ berechnet 


program fibonacci_rekursiv (input ,output); (#$A-#) 
var zahl : integer; 
function fibo (wert : integer ) : integer; 
begin 
if wert > 1 
then fibo := fibo (wert-i) + fibo (wert-2) 
else if wert 1 
then fibo := 
else fibo := 
end; 


(* Hauptprogramm #%) 


begin 
repeat 
write (’Bitte geben Sie die Elementnummer der Fibonacci-Folge ein: ’);3 
readlin (zahl); 
until zahl >= 0; 
writeln ('’Die Fibonacci-Zahl ist '’,fibo (zahl)); 
end. 


Listing 2. Die Fibonacci-Zahlen rekursiv berechnet. Die Zeichenfolge »(*$A- *)« schaltet den Compiler auf rekursiven 
Code um. Viele Compiler (so auch Turbo-Pascal) arbeiten mit so einer Umschaltanweisung. 

















Numerische Integration 


Integralberechnung ist mit dem Computer in Pas- 
cal eine feine Sache. Nur die richtige Formel muß 
man kennen. 


geradezu prädestiniert, man muß ihnen nur sagen, wie. 
Mit der Simpson-Formel lassen sich bestimmte Inte- 
grale der Form 


# mathematische Berechnungen sind Computer 


b b 
Fix) = (flx)dx 
a a 


näherungsweise berechnen. 

Die Voraussetzungen hierbei sind: 

- a,b sind reelle Zahlen und es gilta < b. 

- y=f(x) sei eine im Intervall [a,b] stetige und differenzierbare 
Funktion. 

Die Lösungsformel lautet: 


n 
F(a,b,2n) = (h/3) * [fla) + f(b) + 4 L ffa + (2i-1)h) 
1 


n-1 
+ 2 Effa + 2ih)] 
i=1 


wobei das Intervall [a,b] in 2n Teilintervalle der Breite 
h= (b -a)/2n 
geteilt wird. 
Das folgende Programm berechnet mit Hilfe der Funktion 
SIMPSON zu 
X 
der gegebenen Funktion f(x) = exp(-x?) | exp (t?)dt mit 
O 


dem Intervall [0,2] 

und der Stellengenauigkeit m=5 

die Näherungswerte F(a,b.2') mit 1<=i<=k. 

Die Berechnung wird abgebrochen, wenn folgendes Krite- 
rium erfüllt ist: 

[F(a,b,2*) - Fla,b, 2""")] <= IF(a,b,2*)l * 0,5* 10°". 

Programmbeschreibung: 

In der Darstellung (Bild 1) sei die Unterteilung des Intervalls, 
sowie die Gewichtung der Funktionswerte an den Stützpunk- 
ten in der Simpson-Formel verdeutlicht: 

Das Integral ergibt sich daraus folgendermaßen: 
| = (n/3) * (Fktwert(a) + Fktwert(b) +4 * (Fktwert(S1)+ 

Fktwert(S3)+2* Fktwert(S2) 

Da bei dieser Intervallunterteilung noch keine großen 
Ansprüche an die Rechengenauigkeit gestellt werden kön- 
nen, nimmt man eine feinere Intervalleinteilung vor. 

Hierbei benutzen wir folgenden Trick: 

Die Anzahl der Teilintervalle wird nicht um zwei erhöht, son- 
dern verdoppelt (Teilintervallhalbierung). 

Der Schritt der Teilintervallhalbierung und seiner Auswir- 
kung ist in Bild 2 zu sehen. 

Dies hat folgende Vorteile: 

- Aus der Tatsache, daß die bisherigen Stützpunkte wieder 
benutzt werden, folgt eine wesentliche Verminderung des 
Rechenaufwandes. 

- Da die Anzahl der Teilintervalle exponenitiell ansteigt, kon- 
vergiert dieses Verfahren sehr schnell. 

Dabei fällt folgendes auf: 
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- Alle bisherigen Stützpunkte, sowohl die mit der Gewich- 
tung 2 als auch die mit der Gewichtung 4, erhalten bei die- 
sem Schritt die neue Gewichtung 2. 

- Die Anzahl der neuen Punkte (also die mit der Gewichtung 
4) ist auf das Doppelte gewachsen. 

- Die neuen Stützpunkte sind jeweils um die doppelte Inter- 
vallbreite voneinander entfernt. 

Um diese Erscheinung nochmals zu verdeutlichen, ist in 
der Darstellung in Bild 3 eine weitere Intervallhalbierung vor- 
genommen worden. 

Durch die stetige Intervallhalbierung wird irgendwann eine 
genügende Genauigkeit erreicht. 

Zur Feststellung dieser Genauigkeit beziehungsweise als 
Abbruchkriterium für die Unterteilungsschleife eignet sich 
eine Formel, worin 2* beziehungsweise 2*" zwei aufeinan- 
derfolgende Intervallhalbierungen bedeuten. Dieses 
Abbruchkriterium verwendet schließlich auch M zur Angabe 
der Zahl der wesentlichen Stellen. 

Die bisherigen Erläuterungen des Verfahrens lassen sich 
einfach in einen Algorithmus umsetzen. 

Beim Funktionsaufruf werden eine reelle Funktion f, die 
untere und obere Integrationsgrenze (--> ug und.og, reell), 
sowie die Rechengenauigkeit m (integer) angegeben. Das 
Ergebnis der Integration ist natürlich wieder reell. 

Damit sieht der Funktionskopf wie folgt aus: 


FUNCTION SIMPSON (FUNCTION F(X : REAL) : REAL; 
0G, UG : REAL; 
M : INTEGER) 
: REAL; 
In der Variablendeklaration sind folgende Bezeichner fest- 
gelegt: 
SUMUO : REAL 


- Summe der Fktwerte der Integrationsgrenzen 


Gewichtung 1 


I---.-h-»---1 
Tellintervallbreite 





Blld 1. Gewichtung In Tellintervallbreite: zwei wichtige Fakto- 
ren für die Simpson-Formel 


bisherige Gewichtung 1 


neue Gewichtung 


Nummer des neuen 
Stützpunktes 





Bild 2. Verkleinern wir die Tellintervalle, so wird das Ergebnis 
genauer 


(a) 
Nummer des neuen 
Stützpunktes 





barer 














: REAL 
- Summe der Fktwerte mit Gewichtung 2 in der Simpson- 
Formel 
SUMNEU : REAL 
- neuberechnete Summe der Fktwerte mit Gewichtung 4 
INTALT, INTNEU : REAL 
- letzter und aktueller Integralwert 
DELTA : REAL 
- aktuelle Teilintervallbreite (h) 
ZNEUPKT : INTEGER 
- aktuelle Anzahl der neuzuberechnenden Fktwerte 
COUNT : INTEGER 
- Schleifenzähler zur Summierung der Fktwerte 
ZEHNHOCHM : INTEGER 
- »Konstante«, enthält 10 für Abdruckkriterium 
Nun zum eigentlichen Algorithmus. Beim Eintritt in das Pro- 
gramm sind mehrere Größen zu initialisieren: 


SUMUO : = F(UG) + F(0G) 
- SUMUO wird für den ganzen Fktaufruf so festgelegt. 
DELTA : = (0G - UG)/2 
- Startwert der Teilintervallbreite 
ZEHNHOCHM = TRUNC(EXP(M*LN(10))) = 101M 
SUMALT =0 

INTNEU =0 

SUMNEU N 
Startwerte für ersten Durchlauf 

ZNEUPKT =’ 


- beim ersten Durchlauf nur 1 neuer Fktwert 

Nach der Initialisierung folgt nun die »Integrationsschleife«. 
Ihre grundsätzliche Struktur stellt ein REPEAT-UNTIL- 
Konstrukt dar, wobei als Abbruchkriterium die eingangs 
erwähnte Formel dient. 














In der Schleife werden folgende Aufgaben gelöst: 
1.) Aufaddieren der neuen Funktionswerte (Abstand: dop- 
pelte Teilintervallbreite mit Beginn beim 1. Stützpunkt nach 
der Untergrenze). 
2.) Wenn das Abbruchkriterium nicht erfüllt ist: 
a.) Verdoppeln der Anzahl der neu zu berechnenden Stütz- 
stellen = ZNEUPKT 
b.) Halbieren der Intervallbreite 
c.) Sichern des berechneten Integrals für den Vergleich beim 
nächsten Schleifendurchlauf. 
d.) Umbenennen der Funktionswerte mit Gewichtung 4 zu 
den Funktionswerten mit Gewichtung 2 
e.) Neuinitialisierung der Summe mit Gewichtung 4 auf O 

In der Funktion SIMPSON sieht die Schleife wie folgt aus: 


REPEAT 

INTALT := INTNEU; 

SUMALT := SUMALT + SUMNEU; 

SUMNEU := 0; 

FOR COUNT := 1 TO ZNEUPKT DO 
SUMNEU := SUMNEU + F(UG+(2*COUNT-1)*DELTA); 
ZNEUPKT := ZNEUPKT#2; " 

DELTA := DELTA/2; 


UNTIL (Abbruchkriterium erfüllt); 


Den letzten Teil der Funktion bildet schließlich die Über- 
gabe des beim letzten Durchlauf berechneten Integrals, bei 
dem das Abbruchkriterium erfüllt wurde, an den Funktionsbe- 
zeichner. 

Sollte der zur Verfügung stehende Compiler die Übergabe 
von Funktionen an eine Funktion nicht erlauben (zum Beispiel 
Turbo-Pascal), so muß man die Funktion SIMPSON im Haupt- 
programm realisieren oder man behilft sich, indem man die 
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Funktion als global vereinbart. Sie muß dann aber vor jedem 
Programmstart neu eingegeben werden - der Bedienungs- 
komfort sinkt. 

Um die Funktion SIMPSON überhaupt nutzen zu können, 
benötigt man noch ein Rahmenprogramm, das die zusam- 
mengesetzte Funktion f(x) im Intervall [a,b] ann + 1 Stützstel- 
len auf die wesentliche Stellengenauigkeit m tabelliert. 

Die Platzhalter der Daten für Intervallanfang, -ende, Stellen- 
genauigkeit und Stützpunkte wurden als Konstante darge- 
stellt. Siekönnten jedoch auch ohne weiteres vom Programm 
eingelesen werden. Somit sieht der Programmkopf wie folgt 
aus: 

PROGRAM RAHMEN (INPUT;OUTPUT); 
CONST A = 0.0; (*Tabellierungsanfang *) 
B = 2.0; (*Tabellierungsende *) 
N = 40; (*N+1 Stützstellen zur 
Tabellierung *%) 
M= 5; (* Anzahl der signifikanten 
Stellen zur Integration *) 


Structogramm der Funktion Simpson 


Initlalisieren der Summe des Anfangs- und Endwerts der Intervallbreite 
des Integrals, 
der Hilfsvariablen für die neuen bzw. alten Integralwerte 
und der Hilfsvariablen für die Summe der neuen bzw. alten 
Stützpunkte des Integrals 
und des Anfangswerts der Anzahl der Teilintervalle des 
Integrals. 


Teilintervallbreite des Integrals := (Obergrenze-Untergrenze) / 2 


Hilfsvariable für Zehnerpotenz := EXP (Stellengenauigkeit « LN(10)) 


Sicherung des letzten Integralwerts für die Abbruchent- 
scheidung 


A von 1 bis Anzahl Stützpunkte 
Aufaddieren der neuen Stützpunkte 


Verdoppeln der Anzahl der Stützpunkte 


Wiederholen des Blocks, bis die gewünschte Stellengenauigkeit er- 
reicht ist. 


Structogramm der Funktion FKT 


Konstante für Integraluntergrenze 


Funktionsaufruf SIMPSON, die Funktion TEILFKT, Integraluntergrenze, 


Argument und Stellengenauigkeit werden als Aktualparameter Üüberge- 
ben 


Funktionswert FKT := EXP (-x«x) « Funktionswert von SIMPSON 


Structogramm des Hauptprogramms 








Konstanten für Intervallanfang, Intervallende, Anzahl Teilintervalle und 
die gewünschte Stellengenauigkeit 


Ausgabe der Überschrift für die Funktionsliste 


Tellintervallbreite := (Intervallende -Intervallanfang) / Anzahl der Teil- 
intervalle 


Schleife von O bis Anzahl der Teilintervalle 





Argument := Intervallanfang + Schleifenindex » Teilinter- 
vallbreite 


Funktionsaufruf von FKT, Argument und Stellengenauigkeit 
werden als Aktualparameter übergeben 

Ausgabe des Arguments und des Funktionswerts in die Aus- 
gabeliste 
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VAR X : REAL; (* Stützstelle als Argument für die 
Funktion #*) 
H : REAL; (* Schrittweite zur Tabellierung *) 
I:0..N; (* Schleifenzähler für die 
Stützstellen *) 


Darauf folgt der Funktionsdeklarationsteil. Zum einen wird 
eine Funktion benötigt, die die angegebene, zusammenge- 
setzte Funktion beinhaltet (FUNCTION FKT). In dieser Funk- 
tion ist auch die Integrandenfunktion TEILFKT eingebettet, 
die dann als aktuelle Parameterfunktion für die Integrations- 
funktion SIMPSON verwendet wird. Hier wird mit dem linken 
Term EXP(-X*X) das Integral von TEILFKT EXP(X*X) in den 
Grenzen von UG bis OG auf eine Genauigkeit vonM wesentli- 
chen Stellen berechnet. 

Im abschließenden Hauptprogramm findet nur noch die 
Berechnung der Funktionswerte an den Stützstellen, sowie 
die tabellarische Ausgabe der Ergebnisse statt. 

(Max Moser/Harry Paintner/hg) 


program rahmen (input ‚„output)s 


(00020003000 URU 0000ER 4HHUUSURERBHREHLSHSEEHEHEEEHEER HEERES HEHACCM) 
(e0® [YYY) 
(saa Rahmenprogramm zur Naeher ungsewaeieen Integration nach Simpson «ese) 
(so ...) 
(0080020000000 RH9HRRR ROTH ERURREELHHHRREHEBLRHLREUHSHHERHH ET RAR HERR RHR) 


ceonset a = 0.0; 
b = 2.05 
n = 


IBsssusaussesananen nun nen near. 1 2 1a 9a 97a age sep pe san ne a na nenn) 
in0a “.e) 
(v0® Naeherungeweiase Integration ustber sine Funktion (m) sa“) 
(ne “...) 
lanasesuns nn 0000 n2 nn an BER RER RUUH HERR ROHR RE RH EHRT RE EE RUE HR HR R CT RE) 


tunction simspeon (#unction f(xnıreal)ırealj 


ug ,aog ıraaly 
o sinteger)ırealj 


ver aumuo , sumalt ‚sumnau ı raalı 
intalt,intnen,delta ı realj 
znaeupkt ,‚caunt ,‚zehnhoche ı integerj 


begin 
aumua = ttug) +F# lag)yı 
delta ı= (og-ug) /2j 
zehnhochn ı= trunc (euplmeln(10O)))j 
uuaalt .- 
suaneu ı- 
ıintnaeu .- 
zneupkt - 
repeat 
intalt ı= intneus 
sumalt ı= aumalt + suanaus 
sumeu ı= Of - 
!or count ı= I ta zneupkt da 
auaneau ı= auanau + tlug*!t2 @ count-i) e delta); 
intneu ı= delta ® (aumuna * 4 ® nuanau + 2 @ sumalit) / Sj 
aneupkt 'ı= zneupkt e 2; 
delta ı= daeita / 2; 
until (abe (intneu-intalit)ezehnhoche <= abs (intneu / Z))j 
eimpson ı= intneuj 
endı (ee 04 tunction siapgsan ®) 


(SS 8290022020982... 2EH0900H4e ana aaa su 990 au 9uaaa 2 au na u a0aM) 
(000 “s.e) 
(ea Zu tabellierende Funktion aaa) 
(seo v..o) 
(BSR 000 RHSHUHE HERE ERUEEULEEHEHHTERE EHRE HS HL LEHE BELLE EEE HEHE HEHE HM) 


*tunction #kt (nırealgmminteger) ı realj 
ceonst ug = 0.0, 
tunction teilfkt ttıreal) ı realj 
begın 
teiltkt ı= anp (tet)y 
endı (® a# #unction teiltkt ®) 
begin 
#kt ı= anp (-n © x) © simpaon (teilfkt,ug,.n,.m)} 
endı (8 of #unction kt ®@) 


(snu0n022u02 20202500000 HERR PUHEHTPREHHUE HEHE EHE HEUER E HS Ra H EEE 0—) 
... ...) 
(vous Hauptprogr amm ...) 
(000 ...) 
(nan0000un220n20R000R 22ER BRSEEHRRRUERHEERH RER HH HH EHER EEE LE EH HL HRRLH0—M) 


begin 
eritelng writeln; writelng 
wrıtaein (' ... m ...o 
witeln 
h ı= (b-a)/nı 
tor 1 ı= O ton da 
begin 
„= a*+ı en 
writelin (° “nsi2, "otkttn,mılö)g 
ends 
writeins 
end. 


Listing. Integration nach Simpson 


















































Die Türme von Hanoı 


Haben Sie auch Probleme mit der Lösung der Kno- 
belaufgabe »Türme von Hanoi«? Aber benutzen 
Sie doch einfach Ihren Computer und lassen Sie 
ihn für sich knobeln. 


er kennt nicht das Problem der Türme von Hanoi? 
Ww Die Aufgabe: Es existieren drei Plätze, wobei auf 

einem der äußeren Standorte ein aus mehreren, 
immer kleiner werdenden Scheiben bestehender Turm steht. 
Nun muß dieser Turm auf den anderen äußeren Platz umgela- 
gert werden. Natürlich soll nicht der komplette Turm auf ein- 
mal transportiert werden, sondern Scheibe für Scheibe. Bei 
dieser Umschichtung darf immer nur eine kleine Scheibe auf 
eine größere Scheibe gelegt werden. 

An dieser Knobelaufgabe haben sich schon große Geister 
versucht und auch sehr lange darüber gegrübelt. Wenn nur 
drei Scheiben auf dem Turm liegen, ist es janoch relativ ein- 
fach herauszufinden. Haben Sie dagegen einen Turm mit viel- 
leicht 20 Scheiben, so ist es so gut wie nicht mehr zu schaf- 
fen (es sei denn, Sie hätten einige Jahre Zeit dafür). 

Die Prozedur »hanoi« (Listing) nimmt Ihnen nun die Denk- 
arbeit vollständig ab. Sie müssen nur die Anzahl der Scheiben 
des Turmes eingeben, und schon erscheint die Ablegevor- 
schrift auf dem Bildschirm. 

Versuchen Sie aber ruhig zuerst einmal, das Problem mit 
drei, vier oder fünf Scheiben »zu Fuß« anzugehen, bevor Sie 
sich die Lösung vom Computer zeigen lassen. 

(Dieter Mayer/hi) 





PROGRAM hanoi (INPUT ,DUTPUTIj5 
VAR 

n,isrealj 

etagenzahl ı@..MAXINTjJ 


PROCEDURE verlagere(hoehe,von,zu,uabertiıntager!)j 
PROCEDURE tragt (runter ,raufiıinteger)j 
BEGIN 
write(runter ii,‘ >’ ‚rauf, I 
jımi+äj; 
nıen+1j 
IF i1>=88 THEN BEGIN 
i:,=0ı 
END (#end it#t®#) 
END; 
BEGIN (#verlagere®) 
IF hoehe>@ THEN BEGIN 
ver lagere(hoehe-1,von „ueber ‚zu) 
tragt (von,zu)j 
verlagere(hoehe- 1 ueber ‚zu,von)j3 
END; (send ıf®) 
END; (send verlageres®) 


BEGIN 
write( Wegen Verstaendiıqungs )j 
writelnt schwierigkeiten in Hanoi muss der ')ı 
writet Turm von Hanoi-Nord nach Hanoi-SQued ')j 
writeln( verlegt werden. ')j 
writeln(t Ein Zwischenlager gibt es in Hanoi -Mitte. )j 
writelnt Beim Verlegen ist zu beachten: )j 
writeln('-nur die jeweils oberste Etage kann ')j 
write(‘’ von einem Lager in ein anderes )j 
writelnt’ transportiert werden ')j 
writel’-eine Etage darf nicht auf ')j 
writelnt'eine kleinere gelegt werden )j 
writeilng 
writet Bitte die Anzahl der Etagen angebanı ')j 
readin(etagenzahl)j; 
i1=28j 
n:=0j 
verlagers(etagenzahl ,1,2,3)1 
writein; 
writelnt'’Anzahl der Umlagerungenı ',nı5Sı9)j 





Zahlen-Tabellen 


Ein nützliches Programm, das Ihnen auf einen Blick Zahlen 
und deren Quadrat- oder Kubik-Funktionen übersichtlich aufzeigt. 
Es gibt oft Situationen, in denen diese kleine Anwendung recht nützlich ist. 


»Hoch 4«- und »Wurzel«-Werte einer Zahl in einer 

übersichtlichen Tabelle. So können Sie sich auf ein- 
fache Art eine Liste erstellen, die Ihnen die gebräuchlichsten 
Werte auf einen Blick liefert. Allerdings werden nur Zahlen bis 
181 richtig verarbeitet (dies hängt mit dem Format der Real- 
Zahlen zusammen). 


D iese kleine Routine zeigt Ihnen die Quadrat-, Kubik-, 


Die Prozedur »cIrscr« ist MS-DOS-spezifisch. Man kann sie 
auch weglassen, da hiermit nur der Bildschirm gelöscht wird. 
Wollen Sie Zahlen ausgeben, die größer als 21 sind, so ist nur 
die Bedingung in der Until-Schleife auf einen höheren Wert 
als 21 zu setzen (maximal 181), oder das Format der Zahl in 
der Variablendefinition in Real umzuwandeln, und die Ausga- 
beformatierung »zahl«e in der Repeat-Schleife durch 
»write(zahl:4:0,...« zu ändern. (Dieter Mayer/hi) 


„ 


I 
” 
“ , ri» > 








PROGRAM tabelle; 
VAR 
zahl:ıinteger; 
wurzel ‚quadrat ,kubik,hoch4:real; 
BEGIN 
zahl:=0; 
cirscr; 
write(’Zahl: 
writeln(': 
repeat 
quadrat:=zahl*zahl; 
kubik:=quadrat#zahl; 
hoch4: =quadrat#quadrat; 
wurzel:=sgrt (zahl); 
write(zahl:2, ' 
write’ 
write(' 
writelnt(’ 
zahl:=zahl+1; 
until zahl >21 


Quadrat: 
Hoch 4: 


Kubik'’)3 
Wurzel: '); 


"„quadrat:5:O)3;3 
"„kubik:5:0); 
",hoch4:7:0); 
"wurzel:10:7); 
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C ist eine noch relativ junge Pro- 
grammiersprache, die Anfang 
der siebziger Jahre von Dennis 
M. Ritchie entwickelt wurde. Er arbei- 
tete damals in den Bell Laboratories in 
den USA und stand vor dem Problem, 
ein komplettes Betriebssystem (und 
zwar Unix) in Assembler zu schreiben. 
Bis zu diesem Zeitpunkt kannte man 
keinen anderen Weg Betriebssysteme 
zu entwickeln. Die Mikroprozessoren 
waren noch sehr langsam und Spei- 
cherbausteine teuer. 

Doch Dennis Ritchie waren die Nach- 
teile von Maschinencode klar: Solche 
Programme sind nur schwer auf andere 
Mikroprozessoren zu übertragen. 
Selbst die Adaption auf andere Compu- 
ter mit dem gleichen Prozessor führt zu 
kaum überwindbaren Schwierigkeiten. 
Außerdem sollte Unix alle vorherigen 
Betriebssysteme in Bezug auf Lei- 
stungsfähigkeit in den Schatten stellen. 
Das bedeutete aber auch, daß der 
Umfang des Programmcodes gigan- 
tisch werden mußte. 

Ab einer Länge von mehreren KByte 
sind Assemblerprogramme praktisch 
nicht mehr überschaubar und enthalten 
mit Sicherheit versteckte Bugs (bösar- 
tige Programmierfehler), die oft erst 
nach jahrelangem Einsatz des Systems 
zum Vorschein kommen. Noch heute 
gibt es in CP/M 2.2 kleine Fehler, die nie 
beseitigt wurden. Und das, obwohl die 
erste Version von CP/M immerhin im 
Jahr 1973 erschien. 

So sah sich Ritchie nach einer Pro- 
grammiersprache um, die sich zur 
Systemprogrammierungeignet. Dasich 
aber alle »konventionellen« Sprachen 
der damaligen Zeit - zum Beispiel For- 
tran, Algol und Cobol - als unbrauchbar 
erwiesen, entschloß er sich, eine neue 
Sprache für seine Zwecke zu schrei- 
ben. Am Ende dieser Entwicklung 
stand C in der Form, in der wir es heute 
kennen. UndRitchie hat tatsächlich das 
Meisterstück vollbracht, etwa 95 Pro- 
zent von Unix in C zu programmieren. 
Eine beeindruckende Leistung, denn 
»Sseine« Programmiersprache ist 
schnell genug, mehrere Benutzer zu 
bedienen und mehrere Prozesse (Pro- 
gramme) gleichzeitig zu bearbeiten. 

Natürlich stammt nicht alles zu 100 
Prozent vom Entwickler selbst. Er griff 
auch auf ältere Sprachen zurück. Die 
»Vorfahren« von C sind CPL, BCPL und 
B - Programmiersprachen, die heute 
fast niemand mehr kennt. CPL, die 
»Combined Programming Language«, 
wurde zu Beginn der sechziger Jahre 
als eine Gemeinschaftsarbeit der Uni- 
versitäten von Cambridge und London 
entwickelt. Aber: Viele Köche verder- 
ben den Brei. Das Resultat war eine 
Monstersprache, die den meisten Pro- 
grammierern zu schwerfällig und zu 
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C — wie Cäsar 


Der römische Imperator war der 
mächtigste Mann seiner Zeit. C 
herrscht genauso in der Welt der 
Programmiersprachen. Lernen 
Sie die faszinierende Sprache 
kennen. 


undurchsichtig war. Rettung nahte, als 
Martin Richards in Cambridge begann, 
sich für die Sprache zu interessieren. Er 
kürzte alles Entbehrliche heraus, und 
fertig war die neue Sprache BCPL, die 
»Basic Combined Programming Lan- 
guage«. Eines der heute bekanntesten 
Produkte in BCPL dürfte der Basic- 
Interpreter für die ST-Computer sein. 

Zur Systemprogrammierung besser 
geeignet, weil noch knapper gehalten, 
ist B. Die Sprache mit dem kurzen 
Namen stammt von Ken Thompson, der 
sie im Jahr 1970 im Auftrag der Bell 
Laboratories entwickelte. B besitzt nur 
einen einzigen Datentypen, das 
Maschinenwort. Das war Dennis Ritchie 
dann aber doch zu wenig, und als er 
sich für Unix zwischen B und ÄAssem- 
bler entscheiden sollte, wählte er die - 
damals erst theoretisch existierende - 
Sprache C. C bautaufBauf, istaber ent- 
schieden Programmierer-freundlicher. 
Nicht zuletzt diese Eigenschaft dürfte 
erheblich zu ihrer Verbreitung beigetra- 
gen haben. 


Warum €? 


Heute ist C auf dem besten Weg, So- 
wohl Hochsprachen - wie Pascal und 
Fortran - als auch die diversen Maschi- 
nensprachen zu verdrängen. Die Ent- 
wicklung geht inzwischen dahin, nur 
noch einen C-Compiler für neue Pro- 
zessoren und Betriebssysteme in 
Assembler zu schreiben und die wei- 
tere Software mit dem C-Compiler zu 
erzeugen. Bei 16-Bit-Prozessoren mit 8 
MHz Taktfrequenz -wie dem Motorola 
68000 im Atari ST oder dem Amiga von 
Commodore - kann man sich den 
unvermeidlichen Geschwindigkeitsver- 
lust durchaus leisten. 


C bietet Kontrollstrukturen, die mit 
denen in Pascal, dem »Musterschüler« 
der strukturierten Programmierung, 


durchaus auf eine Stufe Zu stellen sind. 
Pascals CASE heißt in C SWITCH 
CASE, REPEAT UNTIL und WHILE nen- 
nen sich DO WHILE und WHILE. Auch 
die allseits beliebte FOR-Schleife ist - 
wenn auch mit geänderter Syntax - wie- 





derzufinden. Andererseits hat der Pro- 
grammierer in C alle Möglichkeiten, 
auch auf der untersten Hardware- 
Ebene, direkt mit den Peripheriegerä- 
ten, zu arbeiten. 

Eine der schönsten Eigenschaften 
von C haben wir aber beinahe verges- 
sen: »Portabilität« heißt das Zauberwort. 
Wer von einem Computer auf einen an- 
deren umsteigt, kann praktisch die ge- 
samte C-Software mitnehmen. Diese 
Kompatibilität der einzelnen C-Versio- 
nen erreicht keine andere Sprache, 
nicht einmal das vielgerühmte Pascal. 
Versuchen Sie einmal, ein Programm, 
das starken Gebrauch von den Fähig- 
keiten des Turbo-Pascals macht, auf 
MS-Paseal oder Pascal/MT+ zu über- 
tragen. Von den Hunderten von Basic- 
Dialekten wollen wir gar nicht erst 
reden. 

Was für Hobby-Programmierer gilt, 
trifft für Software-Firmen, die Pro- 
gramme kommerziell vertreiben, noch 
vielmehr zu. Ein großer Teil der Produk- 
tionskosten für Software läßt sich ein- 
sparen, wenn Programme in kürzester 
Zeit auf anderen Computern zum Lau- 
fen gebracht werden können. Die 
Software-Entwicklung wird damit von 
den Fortschritten der Hardware unab- 
hängiger. 

Derart motiviert, können Sie sich 
sicher nicht mehr dem Bann entziehen, 
der von C ausgeht. Es stellt sich nur 
noch ein »kleines« Problem, bevor Sie 
mit dem Programmieren beginnen kön- 
nen: Sie brauchen einen Compiler. Für 
MS-DOS-Computer gibt es inzwischen 
fast mehr C- als Pascal-Compiler. Im 
Bereich der Heim-Computer ist das 
Angebot deutlich geringer. Für den 
Sinclair Spectrum und den Schneider- 
CPC bietet HiSoft C-Compiler an 
(wobei die Schneider-Version erheblich 
leistungsstärker ist). Für den Commo- 
dore 64 gibt es einen Compiler von 
Data Becker. Allerdings ist der 6502 für 
die Implementation eines C-Compilers 
und für die Bearbeitung von C-Program- 
men denkbar ungeeignet. Die 6502- 
CPU ist technisch veraltet und bietet 
mit drei Registern (Akku, Indexregister 
X und Y) nicht genug für eine so 
Register-intensive Sprache wie C. Wer 
einen Commodore 128 hat, sollte sich 
deshalb entschließen, auf CP/M umzu- 
steigen. 

Unter CP/M nämlich ist das Angebot 
reichhaltig. Ein großer Teil der Compiler 
kann aber auf dem CPC 464 und CPC 
664 von Schneider ohne Speicher- 
erweiterung nicht zum Laufen gebracht 
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werden. Am besten stehen somit wie- 
der einmal die Besitzer des CPC 6128 
da, die über CP/M 3.0 mit 61 KByte 
Speicherplatz herrschen. Neben dem 
für Normalsterbliche völlig überteuer- 
ten C-Compiler von Digital Research 
(jenseits der Schallmauer von 1000 
Mark) tummeln sich in der Gegend um 
etwa 500 Mark mehrere Programme, 
zum Beispiel MI-C (auch auf 3-Zoll- 
Disketten lieferbar) oder auch BDS-C, 
dem selbst HiSoft in der Anleitung zum 
eigenen C-Compiler Lob zollt. Beson- 
ders interessant für C-Begeisterte mit 
kleinem Geldbeutel dürfte der Small C- 
Compiler sein, den Markt & Technik für 
148 Mark herausgebracht hat (ange- 
paßt für Schneider und Commodore). 

Fast alle Compiler verlangen densel- 
ben C-Quellcode. Manche Eigenschaf- 
ten, die von Ritchie und seinem Kolle- 
gen Brian W. Kernighan im C-Standard- 
werk »The C Programming Language« 
(»Programmieren in Ce«), festgelegt 
sind, wurden aber in diversen Compi- 
lern nicht implementiert. Oft fehlen Bit- 
felder und Fließkommazahlen. Um Sie 
nicht zu verwirren, gehen wir in diesem 
Kurs auf solche eher ausgefallenen 
Dinge nur am Rande ein. 

UmC zu verstehen, sollten Sie die im 
Text angegebenen Programmbeispiele 
nach Möglichkeit nachvollziehen. Wie 
ein Programm compiliert und gestartet 
wird, das steht in Ihrem Handbuch. 
CP/M-Programme erwarten den C- 
Quellcode meist in Form einer Textda- 
teii, die zuvor mit einem Texteditor 
erzeugt wurde. HiSoft-C verlangt zum 
Beispiel den Befehl »HC PROGRAM .C« 
und macht daraus ein COM-File mit 
dem Namen »PROGRAM.COM«. Ande- 
re CP/M-Compiler erzeugen oft nur 
einen Assembler-Quellcode, der dann 
mit einem Assembler, wie ASM.COM, 
MAC.COM oder MACRO-80, übersetzt 
wird. 

Kernighan und Ritchie, im C-Insider- 
Jargon meist nur noch K&R genannt, 
bringen als erstes Beispiel ein Pro- 
gramm, das den Satz »Hello, world« auf 
dem Bildschirm ausgibt. Da praktisch 
jeder C-Kurs so beginnt, wollen wir uns 
dem Trend nicht verschließen - aber in 
Deutsch. 

Etwas ganz Wichtiges, das Sie bei 
der Eingabe der Programme beachten 
müssen, sollte im voraus erwähnt wer- 
den. C-Programme werden mit Vorliebe 
in Kleinbuchstaben geschrieben. Wäh- 
rend die Schreibweise den meisten 
Basic-Interpretern völlig egal ist, unter- 
scheidet ein Großteil der C-Compiler 
aber genau zwischen Namen wie 
»maine, »MAIN« und »Main«. 

Doch nun zu unserem ersten Pro- 
gramm. Falls Ihnen der Ausgabetext 
nicht gefällt, können Sie ihn natürlich 
durch einen anderen ersetzen: 





main() 


| 


printf(”Hallo, Welt!\n”); 


Sollte eine Fehlermeldung erschei- 
nen, obwohl Sie keinen Fehler finden 
können, so setzen Sie vor die erste 
Zeile den Befehl »#include ”STDIO”« 
oder »”STDIO.H” «. 

»STDIO« ist eine Diskettendatei. Viel- 
leicht hat sie bei Ihrem Compiler einen 
anderen Namen. Lassen Sie sich am 
besten dasInhaltsverzeichnis der Com- 
pilerdiskette ausgeben. 

Wenn Sie das Programm starten, 
erscheint auf dem Bildschirm: 

Hallo, Welt! 

Sie sind natürlich nicht gezwungen, 
das C-Programm sklavisch nach der 
Vorlage einzugeben, denn der Compi- 
ler erwartet kein festes Format. Eben- 
sogut könnten Sie schreiben: 
main() [| printf (”Hallo, Welt! 
NN] 

Oder auch: 
main() [| 
printf(”Hallo, Welt!\n”); 


Denken Sie aber an folgendes: Wenn 
Sie Ihre Programme nach einigen 
Monaten wieder anschauen, wollen Sie 
auch verstehen, was Sie programmiert 
haben. Zur logischen Gliederung eig- 
nen sich die Einrückungen hervorra- 
gend. Der Compiler versteht nämlich 
Programme in jedem Bildschirmformat 
- Sie auch? 

Gehen wir der Reihe nach die Befehle 
durch. C-Programme bestehen aus- 
schließlich aus »Funktionen«. Funktio- 
nen inC sind das, was man in Basic mit 
GOSUB oder FNx(y) aufruft und was in 
Pascal mit FUNCTION oder PROCE- 
DURE bezeichnet wird. In C existiert 
also kein Unterschied zwischen Funk- 
tionen und Unterprogrammen. 

Jedes C-Programm besteht aus min- 
destens einer Funktion. Die Hauptfunk- 
tion erhält den Namen »main« und wird 
beim Programmstart automatisch auf- 
gerufen. »main« kann von Sich aus 
andere Funktionen - sofern vorhanden 
- aufrufen. Dabei werden in Klammern 
Variablen als Argumente übergeben. Da 
das in unserem Fall nicht nötig ist, müs- 
sen Sie dem Funktionsnamen leere 
Klammern folgen lassen: »main()« 

Der gesamte Programmcode, der hier 
lediglich die printf-Anweisung enthält, 
wird mit geschweiften Klammern ([ und 
}) umschlossen. Nach jedem Befehl 
steht ein Strichpunkt. Dieser trennt - 
wie in Pascal - die einzelnen Befehle 
voneinander. 


printf hat die Aufgabe, Texte und Zah- 
len formatiert auszugeben. printf gehört 
nicht zur Sprache C, sondern ist eine 
Funktion. C selbst ist eine Sprache mit 
sehr geringem Umfang. Insbesondere 








fehlen Ein- und Ausgabefunktionen völ- 
lig. Die eigentlichen C-Befehle dienen 
vorrangig der Steuerung des Pro- 
grammflusses. Die Funktion printf fin- 
den Sie hingegen bei Ihrem Compiler 
wahrscheinlich auf der Diskette in einer 
Bibliotheksdatei mit dem Namen 
»STDIO« oder »STDIO.H«, das steht für 
»Standard Input/Output«e Entspre- 
chend der Normung der C-Sprache fal- 
len auch überraschende Übereinstim- 
mungen zwischen den C-Bibliotheken 
verschiedener Compiler auf. Sie orien- 
tieren sich fast alle an der Unix- 
Bibliothek von Kernighan und Ritchie. 
printf gibt den String aus, der in 
Anführungszeichen steht. Das Zeichen 
»\« dient der Ausgabesteuerung. Nach- 
folgende Buchstaben werden zum Bei- 
spiel dazu verwendet, den nächsten 
Tabulatorstop zu suchen oder einen 
Zeilenvorschub auszulösen: 


\b Backapace (Cursar ein Zeichen nach links bewegen) 
\t Form Feed (Löschen des Bildschirme) 

\n Newline (Wagenrücklauf und Zellenvorschub) 

\r Return (Wagenrücklauf) 

\t Tab (nächste Tabulstorposition anspringen) 

\0 Nullbyle (String-Begrenzer) 

\\ Das Zeichen »\« selbst 

\' Einfaches Anlührungszeichen (Apostroph) 

\* Anführungszeichen (’) 


Statt dieser Kennbuchstaben dürfen 
Sie auch direkt Bytes im Oktalsystem 
angeben: 

DrinteL NO NE NDINGE); 

Die Werte zwischen oktal O (dezimal 
O) und oktal 37 (dezimal 31) dienen bei 
den meisten Computern für Bildschirm- 
Steuerungsfunktionen, wie Farbenaus- 
wahl, Inversdarstellung, Bildschirmmo- 
dus und ähnliche Dinge. Da die Codes 
nicht genormt sind, können C-Program- 
me, die auf diese Funktionen angewie- 
sen sind, nicht ohne weiteres auf 
andere Computer übertragen werden. 

Experimentieren Sie ruhig mit diesen 
Steuermöglichkeiten. Denn mit ihnen 
läßt sich schon einiges Interessante 
anstellen: 
main() 


printf(”\f Zeilel\n Zeile2\t 
Tabıi\t Tab2 \\”); 


Aber die Funktion printf kann noch 
viel mehr. Sie rechnet beispielsweise 
Zahlen in verschiedene Zahlensysteme 
um und druckt diese dann formatiert 
aus. Dazu geben Sie statt des Textes 
einen Format-String an, der zum Bei- 
spiel so aussieht: 
main() 


printf( "%x”,32767); 


Die Formatkenner werden durch ein 
Prozentzeichen eingeleitet. Danach 
folgt ein Buchstabe, der das Format 
angibt: %x besorgt beispielsweise die 
hexadezimale Ausgabe einer Zahl, statt 
32767 wird hier also »7FFF« ausge- 
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druckt. Die wichtigsten Formatkenner 
lauten: 

%d Dezimale Ausgabe einar Integerzahl (decimal) 

%oa Oktale Ausgabe einer Iniegerzahl (octal) 

%u Dezimale vorzeichenlose Darstellung (unsigned) 

%x Hexadezimale Ausgabe (hexadecimai) 

%c Ausgabe ale ASCII-Zeichen (character) 

Die Anzahl der Formatkenner muß mit 
der der angegebenen Zahlen überein- 
stimmen. Gibt es da Unterschiede, führt 
das meist zu recht unsinnigen Resulta- 
ten, die mitunter recht amüsant sind. C 
schreibt vor, daß alle Variablen, die in 
einem Programm benutzt werden, defi- 
niert sein müssen. Diese Definition 
erfolgt im Programmkopf. Die wichtig- 
sten Datentypen in C sind: 

Int Integerzahlan zwischen -32768 und 32767 

char Einzeine Buchstaben, (ASCII-Coda von 0 bie 265) 

float Fließkommazahlen (Wertebereich vom Complier 
abhängig) 

Abwandlungen dieser Typen sind 
möglich. Zum Beispiel gibt es long 
int (32-Bit-Integerwerte - O0 bis 
4294967295), short int (8-Bit-Inte- 
gerzahlen - O bis 255), unsigned int 
(16-Bit-Integers ohne Vorzeichen, Wer- 
tebereich daher von O bis 65 535) und 
double, das sind doppeltgenaue Fließ- 
kommazahlen. Allerdings sind die Bit- 
breiten und Wertebereiche nicht von 
Ritchie festgelegt worden. Sie werden 
meistens aus der Maschinensprache 
eines Prozessors direkt abgeleitet. So 
verarbeitet ein Großcomputer mit 
einem 32-Bit-Prozessor sicher auch 
»int« als 32-Bit-Integerzahlen. 

Strings (Zeichenketten) sind in der 
C-Sprache nicht vorgesehen. Sie wer- 
den aus einzelnen Zeichen oder Fel- 
dern des Typs char zusammengestellt. 
Wertezuweisungen erfolgen auf die 
den Basic-Programmierern bekannte 
Art: 
main() 
| 

int x; /* Definition von x als 
Integer */ 
/* Zuweisung von 64 an 
x %/ 
PrIHEEFFTARTX 30°%0°,X, 0X); 


Kommentiert werden Programme wie 
oben angegeben: »/* Das ist ein Kom- 
mentar */«. Kommentare dürfen überall 
stehen, wo auch ein Leerzeichen oder 
ein Wagenrücklauf stehen könnte - nur 
nicht in Zeichenketten. Schachteln Sie 
auch keine Kommentare - das geht 
garantiert schief. Diese Einschränkun- 
gen sollten Sie aber nicht daran hin- 
dern, Ihre Programme möglichst aus- 
führlich mit Kommentar-Zeilen zu erläu- 
tern. Wie bei allen Compilersprachen 
wirken sich Kommentare nicht auf die 
Länge oder die Ablaufgeschwindigkeit 
des erzeugten Programms aus. 

»int x« bestimmt, daß die Variable x im 
Programm eine Integervariable ist. 
»x=64« weist der Variablen den Wert 
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x=64; 


64 zu. printf schließlich gibt x in ver- 
schiedenen Formaten aus: dezimal 
(64), hexadezimal (40), oktal (100) und 
als ASCII-Zeichen (@). 

Statt einer Einzelvariablen können 
Sie auch mehrere auf einen Schlag 
angeben: 

int: X,y,z; 
char c1,c2,c3,c4; 
float a,b,g,h; 

Mit den C-Variablen läßt sich genauso 
rechnen wie in Basic: 
main() 


Int, Y, 

y=23+4%5; 
x=y*(2+4y-3); 

y=x/2; 

printt( 2002d°,x,y); 


Alle vier Grundrechenarten sind also 
vorhanden (Addition »+«, Subtraktion 
»-«, Multiplikation »* « und Division »/«). 
Leider ist die Hierarchie der Operatoren 
in © ziemlich kompliziert und auch nicht 
immer genau festgelegt. Wenn Sie also 
Zweifel an der Ablauffolge haben, set- 
zen Sie sicherheitshalber Klammern. 
Das ist jederzeit erlaubt. 

DaC eine sehr maschinennahe Spra- 
che ist, entdecken Compiler und Lauf- 
zeitbibliothek (das ist der Code, der zu 
jedem übersetzten Programm dazuge- 
bunden wird, damit es ablaufen kann) 
normalerweise keine Über- oder Unter- 
schreitungen des Wertebereichs. Die 
Programme schneiden einfach den Teil 
der Zahl weg, den sie nicht verwerten 
können. Wenn Sie zum Beispiel als 
Ergebnis einer ganzzahligen Rechnung 
mit Integervariablen eine 20 Bit breite 
Zahl erhalten, »vergißt« das Programm 
die vier vordersten Bits und läßt nur die 
sechzehn darstellbaren übrig. 

Was wäre eine Programmiersprache 
wert, die jedes Programm nur von 
Anfang bis Ende abarbeiten könnte, 
ohne den Programmfluß zu steuern? 
Basic ist auf diesem Gebiet recht spar- 
tanisch ausgestattet, denn die meisten 
Interpreter bieten nur IFTHEN- und 
FOR-NEXT-Konstruktionen an - wenn 
es hochkommt vielleicht auch WHILE- 
WEND. Und natürlich das berühmt- 
berüchtigte, eher verwirrende GOTO. 

Mit IF kann man auch in C program- 
mieren. Nur ist die Syntax der if- 
Anweisung (Kleinschreibung in C!) 
etwas anders: 

if (Bedingung) Aktion; 

Trifft die Bedingung, die in Klammern 
gesetzt ist, zu, wird der Befehl »Aktion« 
ausgeführt. Setzen Sie aber keinesfalls 
zwischen Bedingung und Aktion einen 
Strichpunkt. In diesem Fall interpretiert 
der Compiler den Strichpunkt als Leer- 
befehl. Die Aktion wäre dann unabhän- 
gig von der if-Bedingung und würde 
immer ausgeführt werden. 





Ein Programmbeispiel: 
main() 
[ 
Inte; 
c=getchar(); 
if (c==64) printf (” Klammeraffe 
IND 
printf (” Der ASCII- 
Code ist %d”’,c); 


Die Funktion getchar() stammt aus 
der Bibliothek und liest ein Zeichen von 
der Tastatur ein. Sie übergibt der Varia- 
blen c den ASCII-Code des Zeichens. 
Wenn Sie den »Klammeraffen«, das ist 
das Zeichen »@«, eingegeben haben, 
meldet der Computer »Klammeraffe!«, 
und gibt zusätzlich dessen ASCII-Code 
aus. 

Der Vergleich »c==64« ist keines- 
wegs ein Druckfehler. Damit der Compi- 
ler ihn von einer Wertzuweisung 
»c=64« unterscheiden kann, müssen 
beim Vergleich zwei Gileichheitszei- 
chen angegeben werden. 

Hier alle Vergleichsoperatoren: 

x lat gleich y 


m zmmy 


< Rr<y x lat kleiner ale y 

<a x<my x lat kleiner oder gleich y 
> x2>y x lai größer ala y 

>m z>uy x Iai größer oder gleich y 
Im zimy x lei ungleich y 


Etwas ungewohnt dürfte die Schreib- 
weise »!=« sein. Eine Eselsbrücke: 
Stellen Sie sich die beiden Symbole 
übereinander gedruckt vor. Dann erhal- 
ten Sie ein Zeichen ähnlich dem mathe- 
matischen für die Ungleichheit (»#e). 

Was machen Sie aber, wenn Sie nach 
der if-Bedingung nicht nur einen einzel- 
nen Befehl, sondern eine ganze Be- 
fehlsgruppe ausführen lassen wollen? 
Sie erklären einfach die Befehle zu 
einem Block und umgeben diese Ver- 
bundanweisung mit geschweiften 
Klammern. Das entspricht exakt der 
BEGIN-END-Schachtelung in Pascal. 
main() 

| 

Int c; 

c=getchar(); 

if (edle 180) 
printf( "Dies ist 
kein Sternchen 
Pina) 
printf(”Es ist 
ein %c”,c); 
| 

| 

Wenn Sie ein Zeichen eingeben, das 
kein Stern ist (ASCII-Code 42), werden 
die beiden printf-Funktionen ausge- 
führt. Andernfalls beendet der Compu- 
ter das Programm. In der if-Zeile sehen 
Sie, daß auch String-Konstanten als 
Vergleichsobjekte dienen können: 
if (c I= 42) 
if (ce != '!#') 
if (c I= Ox2A) 
sind alle identisch. 
































Hexadezimale Zahlen müssen mit 
»Ox« beginnen - zum Beispiel »OxFFe«, 
»0x3C« oder »Ox3FAC«. 

Die if-Anweisung läßt sich um einen 
else-Teil erweitern, der ausgeführt wird, 
wenn die gegebene Bedingung nicht 
zutrifft: 
main() 

| 
int ©; 
c=getchar(); 
if (ce != 0x2A) printf 
(”Kein Stern!”); 
else printf 
("Ein Stern!”); 


Auch hier ist eine Verbundanweisung 
zulässig, die die Ausführung mehrerer 
von if oder else abhängiger Befehle 
erlaubt: 
main() 

| 

1nt.e5 

c=getchar(); 

if (© 1=%2) | ‚printf(”Kein 

Stern!$\n,"); 
printf( "Statt 
dessen ein %c”, 
ce); 


printf( ”Ein 
Stern!$\n”); 
printf( "Der 
ASCII-Code Ist 
42"); 

Wenn Sie eine Vorliebe für verwir- 
rende Programme haben, können Sie 
auch if-Kommandos ineinander ver- 
schachteln. Wie wäre es mit folgendem 
Programm? 
main() 

| 

int c; 
c=getchar(); 
if (£ >= 42) | if (ce == 42) 
printf( "ASCII-Code=42”); 
else printf( "ASCII-Code>42); 


else | 


else printf( "ASCII-Code<42); 


Alles klar? Gerade dieses Programm 
läßt sich erheblich verständlicher mit 
drei gleichrangigen if's schreiben: 
main() 

| 

1nt.°6; 

c=getchar(); 

if (c>42) printf 
("ASCII-Code>42); 

if (c==42) printf 
( "ASCII-Code=42); 

if (e<42) printf 
("ASCII-Code<42); 


Für den Fall, daß ein Befehl oder eine 
Befehlsgruppe von mehreren Bedin- 
gungen gleichzeitig abhängt, könnten 


Sie - wie oben gezeigt - mehrere if's 
zusammenbasteln. Wesentlich über- 
sichtlicher wird es aber mit logischen 
Operatoren, die den bekannten Funk- 
tionen AND, OR und NOT aus Basic ent- 


sprechen: 

&& Logischea Und (AND) 
I  Logisches Oder (OR) 

I Loglaches Nicht (NOT) 


Demonstrieren lassen sich die Ope- 
ratoren mit einem Programm, das drei 
Zeichen von der Tastatur entgegen- 
nimmt und dann vergleicht: 
main() 

| 
int xX,y,z; /* Speichern die 
3 Zeichen #%/ 
x=getchar(); getchar(); 
y=getchar(); getchar(); 
z=getchar(); getchar(); 


if (x=='A! && y=='B! && Ze='C') 
printf( "Alphabet!\n"); 
BaLR/ 


if (x>='!1! k&& x<='9') 
printf(”x ist Ziffer\n”); 
RT. 

if (x=='+' Il y=='+') 
printf(”x oder y = +”); 
Pen) 


Im Fall /* 1*/ gibt der Computer den 
Text »Alphabet!« aus, wenn Sie A, Bund 
C eingeben. Fall /*2*/ meldet »Ziffer!«, 
wenn das erste Zeichen Ihres Inputs 
(entspricht der Variablen x) eine Ziffer 
ist. Der Fall /*3*/ zeigt das logische 
Oder. Ist das erste oder das zweite Zei- 
chen ein Plus »+«, schreibt das Pro- 
gramm die Meldung »x oder y = +«auf 
den Bildschirm. 

Die Gliederung 

x=getchar(); getchar(); 
y=getchar(); getchar(); 
z=getchar(); getchar(); 

ist notwendig, weil die getchar- 
Funktion auch den Code der Return- 
oder Enter-Taste (10 oder 13) regi- 
striert. Um diesen jeweils auszufiltern, 
muß ein »Dummy«-getchar eingesetzt 
werden. An diesem Beispiel ist recht 
gut zuerkennen, daß C-Funktionen ent- 
weder keinen oder genau einen Para- 
meter ans aufrufende Programm über- 
geben können. x=getchar() fragt die 
Tastatur ab und liefert den Code der 
gedrückten Taste in der Variablen x ab. 
getchar() macht das gleiche, doch der 
Tastenwert geht verloren. Eine solche 
Funktion, die keinen Wert zurückgibt, 
ist eigentlich nichts anderes als ein 
Unterprogramm oder eine Prozedur in 
einer der herkömmlichen Programmier- 
sprachen. 

Neben diesen logischen Operatoren 
befinden sich noch zahlreiche weitere 
im C-Sprachumfang: 

- Der Minus-Operator. -a=0-a. Die- 
ser Operator zeigt an, daß eine Zahl 
negativ ist, genau wie in Basic (bei- 
spielsweise »B=-A« oder »2=-3*Ae«). 








Seltsamerweise ist in C kein Plus vor 
Variablen und Zahlen erlaubt. x=+a ist 
also verboten - aber eigentlich auch 
unsinnig. Hingegen ist x=b+a eine 
Selbstverständlichkeit. So können Sie 
statt x=+a auch x=0-+a schreiben. 
Allzu viel Sinn steckt aber nicht hinter 
solch einer Befehlsfolge. 

- Das Einerkomplement: -a dreht alle 
Bits in der angegebenen Variablen oder 
Konstanten um. Aus Nullen werdenEin- 
sen und aus Einsen Nullen. Damit ist 
= 255 =-256. 

- Die Inkrementoperatoren: at + und 
+-+a. Beide Operatoren erhöhen den 
Wert von a um Eins. Der Unterschied 
liegt im Zeitpunkt, zu dem das 
geschieht: 

a=3; printf(”%d”,++a); 

druckt ”4”, a ist 4. 

++a ist ein Präfix-Operator. 

a=3; printf("%d”’,ar+); 

druckt ”3”, a ist 4. 

at + ist ein Postfix-Operator. 

Mit den Inkrement-Anweisungen ist 
eine Zählschleife sehr leicht zu kon- 
struieren: 
main() 

| 

Int-1:; 

1-0; 

while (1>1000) printf 
("$d\n”,i++); 


Ausführlich gehen wir auf while wei- 
ter unten ein. 

- Die Dekrementoperatoren: a-- und 
--a. 

Sie vermindern den Wert von a um 
Eins. Es gelten dieselben Regeln wie 
bei den Inkrementbefehlen. 

- Die Shift-Befehle: Sie schieben die 


Bits in einer Variablen um einen 
bestimmten Wert nach links oder 
rechts. 

a=2; a<<1l 

ist der Links-Shift. a hat den Wert 4 
(2*2). 

a=:8; a>>2 


ist der Rechts-Shift. a hat den Wert 2. 

- Die bitweisen Logikoperatoren: Die 
oben erklärten Logikoperatoren && und 
\\ liefern immer nur die Werte O und 1, 
je nachdem, wie die beiden Operanden 
aussehen. Die bitweisen Logikoperato- 
ren verknüpfen die Operanden Bit für 
Bit und weisen dann der angegebenen 
Variablen das Ergebnis zu. 

a&b ist das bitweise logische Und. 
127 & 255 ergibt 127 (0111 1111 bin 
AND 1111 1111 bin = 0111 1111 bin). 

a\b ist das bitweise logische Oder. 
128 \ 3 ist 131 (1000 0000 bin OR 
0000 0011 bin = 1000 0011 bin). 

alb hat in C absolut nichts mit der 
Potenzfunktion zu tun, sondern steht 
für das bitweise logische Exklusiv- 
Oder. 1 ! 1 ist 0 (01 bin XOR 01 bin = 
OO bin). (Martin Kotulla/hg) 
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Erste Schleife, 





kennt verschiedene Wege, 
Schleifen zu konstruieren. Um 
sie alle zu zeigen, geben wir in 
unseren Beispielsprogrammen den 
gesamten ASCIl-Zeichensatz auf dem 
Bildschirm aus - und zwar in folgender 
Form: 


DEZ HEX OKT 
32 20 40 
33 21 41 I 
34 22 42 z 





c 


ASCII 


255 FF 37 

In Basic wäre wohl die einfachste Art, 
so etwas zu programmieren, die: 

100 PRINT "DEZ HEX OKT ASCII” 

110 FOR I=32 TO 255 

120 PRINT I;HEX$(I);OCT$(I); 
CHR$(I) 

130 NEXT I 

Voraussetzung ist natürlich, daß der 
Basic-Interpreter die Funktionen HEX$ 
und OCT$ versteht. HEX$ ist ja noch 
relativ geläufig, aber Oktalzahlen ? 

C bietet die Zahlenkonversionen 
grundsätzlich mit der printf-Funktion. 
Schwierigkeiten bereitet uns aber noch 
die Übersetzung der FOR-Schleife inC. 
»for« ist gleichzeitig auch der Befehls- 
name in ©. Nur der Aufbau ist anders als 
in Basic: 
for (Ausgangsbedingung; 

Endbedingung; Zählbedingung) 

Eine Schleife, die von O bis 10000 
zählt und diese Zahlen ausgibt, gibt man 
in C so ein: 
for (i=0; i<=10000; i=1+1) 

printeezed IT): 

Viel schwerer als in Basic gestaltet 
sich die Ausgabe des Zeichensatzes 
auch nicht. 

Das Programm sieht so aus: 
main() 
| 

int i; 
printf(”DEZ HEX OKT 
ASCII\n\n'); 
for (1=32; 1i<=255; i=i1+1) 
printf(”%d %x %o %c 
| \n se); 
i=32 ist die Startbedingung. Der 
Variablen i wird hier der Wert 32 zuge- 
wiesen. Dann führt der Computer den 
printf-Befehl aus. Er kehrt zur for- 
Anweisung zurück und prüft, ob die 
zweite Bedingung i<=255 noch 
zutrifft. Ist sie nicht mehr erfüllt, been- 
det das Programm die Schleife. Sonst 
gilt i=i+ 1, und die Schleife wird erneut 
abgearbeitet. 
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Wiederholung - das ist eins der 
Zauberworte der Computer. C 
kennt natürlich auch Schleifen 
und andere Programmstruktu- 
ren, die bestimmte Befehlsfol- 
gen immer wieder aufrufen. 


Der besondere Aufbau der for- 
Schleife schreibt nicht zwingend vor, 
bei allen drei Bedingungsteilen die- 
selbe Variable zu verwenden. Sie kön- 
nen sogar einzelne Teile völlig weglas- 
sen. Ein Programm, das eine Zeichen- 
kette von der Tastatur liest und in der 
Folge auf dem Bildschirm ausgibt, kann 
damit so aussehen: 
main() 

[ 
int c; 
c=0; 
for ee >10 ) 
[c=getchar(); 
Printer ’%c’,c); 
| 


Die Schleife druckt solange Zeichen 
aus, bis sie ein Line-Feed (ASCIl-Code 
10) entdeckt. Sie ist übrigens ein her- 
vorragendes Beispiel dafür, daß ein 
Programm - trotz nahezu vollständiger 
Kompatibilität der Sprache - auf unter- 
schiedlichen Computern anders rea- 
giert. Manche Computer puffern die 
Eingabe, das heißt, sie legen die gele- 
senen Zeichen erst intern im Speicher 
ab, bis der Benutzer die Zeilenschal- 
tung (ENTER oder RETURN) betätigt. 
Andere Geräte verwenden die unmittel- 
bare Ein- und Ausgabe. Je nachdem, 
welchen Computer und welches Be- 
triebssystem Sie benutzen, erhalten 
Sie für den Satz »Dies ist ein C-Texte: 
Dies Isi ein C-Text Dies Ist ein C-Text 
oder 
DDileess lisstt eellnn CC-TTeexatt 


In vielen Fällen ist aber eine 
for-Schleife nicht der Weisheit letzter 
Schluß. Deshalb bietet C zwei weitere 
Konstruktionen an: »while« und »do- 
while«. Beginnen wir mit »while«. Dieser 
Befehl führt die nachfolgenden Anwei- 
sungen oder die folgende Befehls- 
gruppe aus, solange eine Bedingung 
erfüllt ist: 
while (Bedingung) Aktion; 

Das Zeichensatz-Programm läßt sich 
mit while umschreiben - auch wenn es 
dadurch unübersichtlicher wird: 





main() 


while (1i<=255) 


putchar(i); 
i=i+1; 


Damit der Compiler weiß, was alles 
abhängig von while ausgeführt werden 
soll, müssen Sie die Befehle zu einer 
Verbundanweisung zusammenfassen 
und mit »{« und »]« umklammern. 

Neu ist hier die Funktion putchar. Sie 
gibt ein einzelnes Zeichen vom Typ Inte- 
ger oder Char auf dem Bildschirm aus. 
Gleichwertig dazu steht »printf[”%c”, 
i)«e. printf erzeugt zwar einen längeren 
Programmcode, dafür ist diese Funk- 
tion aber auch universeller. Allerdings 
vermag putchar durchaus auch \-For- 
matkenner (\f zum Löschen des Bild- 
schirms, \t für Tabulatorsprung und so 
weiter) zu verarbeiten. Ein putchar('\f') 
ist - von der Programmlänge her gese- 
hen - einem printf( ”\f”) vorzuziehen. 

while prüft vor der Ausführung der 
Schleife, ob die angegebene Bedin- 
gung zutrifft. Das kann auch bedeuten, 
daß die Schleife unter Umständen über- 
haupt nicht bearbeitet wird: 
main() 


| 


while (3>4) putchar(64); 


Da 3 natürlich niemals größer als 4 ist, 
wird kein einziger Klammeraffe (ASCIl- 
Code 64) ausgegeben. 

Anders arbeitet do-while: 

do 

Aktion; 
while (Bedingung); 

Hier prüft der Computer erst nach 
mindestens einmaliger Ausführung der 
Aktion, ob die Bedingung wahr ist. 
main() 

| 

do 
putchar(64); 
while (3>4); 


Natürlich benötigt do-while keine 
Klammerung der abhängigen Anwei- 
sungen, da diese do und while schon 
umschließen. So sind die Befehle für 
den Compiler als Verbundanweisung 
erkennbar, und es können gar keine 
Verständniskonflikte auftreten. 
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Manchmal tritt der Fall ein, daß der 
Computer eine Schleife vor dem eigent- 
lichen Ende beenden soll, zum Beispiel 
wenn ein Ergebnis einer Berechnung 
bereits vorliegt oder ein bevorstehen- 
der Fehler abgefangen werden soll. 
Dafür kennt C den break-Befehl. Ihn 
demonstriert ein Programm, das eine 
Eingabe von der Tastatur entgegen- 
nimmt und die ASCIi-Codes aller Zei- 
chen addiert. Abgebrochen werden soll 
das Programm, wenn ein Sternchen 
(ASCII-Zeichen 42) entdeckt wird: 


main() 


Int c,summe; 

summe=0; /* Mit Anfangswert 
Initialisieren */ 

while (1) /* Endlosschleife */ 


c=getchar(); 
if (c==42) break; 
summe=summe+c; 


printf( "Summe: 3d”,summe); 

Das Programm definiert sich die zwei 
Variablen c und summe. c empfängt 
jeweils ein Zeichen von der Tastatur, 
und summe addiert die ASCII-Codes. 
»while(1)« ist ein beliebter Trick, um den 
Computer in einer Endlosschleife fest- 
zuhalten. Da die Bedingung immer 
erfüllt ist, beendet das Programm die 
Schleife nie aufgrund dieser while- 
Anweisung. Also muß irgendeine 
andere Abbruchbedingung gefunden 
werden, in unserem Beispiel »if 
(c==42) break;«. Nachdem der Com- 
puter ein Zeichen von der Tastatur gele- 
sen hat (c=getchar(); ), prüft er nach 
diesem Befehl, obes sich um ein Stern- 
chen handelt. break befiehlt dem Com- 
puter, die while-Schleife zu verlassen 
und als nächstes den ersten Befehl hin- 
ter der Schleife abzuarbeiten. Das ist in 
diesem Programm eine printf-Funktion, 
die die Summe der ASCII-Codes aus- 
gibt. 

Ebenso läßt sich break auch in for- 
und do-while-Schleifen verwenden. 
Auch dort bewirkt der Befehl einen 
Abbruch der Schleifenausführung: 
main() 

| 

int 1; 
for (1:0; i<1000; i=i+1) 


Brintee”gdAn 1); 
IF (3==500) break; 


printf( ”Ende!”); 


Die for-Anweisung schreibt dem 
Computer zwar vor, von O bis 1000 zu 
zählen und die einzelnen Werte auszu- 
geben, doch er bricht aufgrund der 
Zeile »if (i==500) break« die Zählung 
bei 500 ab. 


allen Das: 


Den gegenteiligen Effekt von break 
bewirkt continue: continue ruft dieje- 
nige Programmzeile auf, in der die 
Schleifenbedingung getestet wird, und 
führt damit die restlichen Kommandos, 
die eventuell noch in der Schleife fol- 
gen, nicht aus. Der Befehl bezieht sich 
immer auf die innerste Schleife. Wenn 
mehrere Schleifen ineinander ge- 
schachtelt sind, kann. continue also 
nicht benutzt werden, um eine äußere 
Schleife aufzurufen. 

Ein Beispiel für continue in einer for- 
Schleife: 
main() 


intsT: 
for (i=0; i<100; i=i+1) 


if ((i 3 10) != 0) continue; 
printt.( san ",1); 


Dieses C-Programm gibt nacheinan- 
der die Zahlen 10, 20, 30, 40 und so 
weiter bis 90 aus: es zählt in der for- 
Schleife von 1 bis 100 in Einerschritten 
hoch. In der if-Zeile werden aber alle 
Zahlen, die keine Zehner sind, ausgefil- 
tert. Dazu bietet C einen Modulo- 
Operator, das Prozentzeichen. Dieser 
Rechenoperator gibt den Rest einer 
ganzzahligen Division an: 


20/3=8, 6°3=18, 20-18=2 Rest: 20 %3 = 2 
4015=8, 8°5=40, 40-40 =0 Rest: 40 %5 = 0 
191/3=63, 63°3=189, 191-189=2 Aest: 191 % I = 2 


In Pascal und in manchen Basic- 
Dialekten heißt dieser Operator »mode: 
100 INPUT a,b 
110 PRINT a\b,a MOD b 
120 GOTO 100 

Läßt sich eine Zahl nicht ohne Rest- 
betrag durch 10 teilen, ist sie keine Zeh- 
nerzahl. Sie wird folglich von continue 
»verschluckt«. Die übrigen Zahlen gibt 
die printf-Funktion auf dem Bildschirm 
aus. 

Neben if gibt es in C noch eine wei- 
tere Möglichkeit, Vergleiche anzustel- 
len. Dieser Befehl heißt »switch-case« 
und ist immer dann zu empfehlen, wenn 
viele Vergleiche mit einer einzigen 
Variablen durchgeführt werden sollen. 
Ein Programm, das ein Symbol von der 
Tastatur einliest und dann untersucht, 
schreiben Sie so: 


main() 


Intac; 
c=getchar(); 
if. (c==32) printf 
(”Ein Leerzeichen!\n"); 
if (c==33) printf 
("Ein Ausrufezeichen!\n”"); 
if (c==34) printf 
("Ein Anführungs- 
zeichen!\n"); 
if: (c==335) printf 
(”Ein Doppelkreuz!\n”); 








c==36) printf 
"Ein Dollarsymbol!\n”); 


( 
( 
if (c==37) printf 
("Ein Prozentzeichen!\n?"); 


Spätestens nach dem zehnten if mag 
Ihnen das alles zu umständlich vorkom- 
men. Es ist auch nicht die eleganteste 
Art zu programmieren. So geht es 
einfacher: 
main() 


int c; 
c=getchar(); 
switch(c) 

| 
/*%1%*%/ case 32: printf 

(”Ein Leerzeichen!\n,); 
case 33: printf 

(”Ein Ausrufezeichen!\”); 
case 34: printf 

(”Ein Anführungs- 
zeichen!\”); 

case 35: printf 

(”Ein Doppelkreuz!\”); 
case 36: printf 

(”Ein Dollarsymbol!\”); 
case 37: printf 

("Ein Prozentzeichen!\”); 
| 


/R2%/ 
/*3%/ 


RAR] 
IRORL 
/*6%/ 


| 

Bis auf den switch-Teil mit der Ver- 
bundanweisung ist das Programm iden- 
tisch mit dem vorigen. In switch wird die 
Variable angegeben, die zu überprüfen 
ist, hier die Variable c. In einer, durch 
geschweifte Klammern umgebenen, 
Verbundanweisung stehen nach case 
die Fälle, von denen ausgehend 
Befehle ausgeführt werden. Die 
»/*Kommentare*/« sind nur angege- 
ben, um einen Bezug auf die Zeilen her- 
zustellen. Die Arbeit des Computers 
veranschaulichen Sie sich so: 


Ini c; Ich deliniere eine Variable c ala Integer 
awlich(c) Aha, jetzt soll Ich c untersuchen 

case 32: Hat c den Wert 32? 

Ja - dann muß Ich »EIn Leerzeichenli« drucken 
Nein - dann unilernehme Ich nichia 

Hat c den Wart 33? 

Ja - Ich gebe »Ein Ausrufezeichen!« aus 

Nein - Ich mache gar nichta 


let c=37? 
Ja - Ich malde »Ein Prazenizeichani« 
Nein - Ich habe ja überhaupi nichta zu Iun! 


Wenn Sie das Programm mit Ihrem C- 
Compiler übersetzen und laufen lassen, 
geben Sie zuerst einmal das Prozent- 
zeichen (%) ein. Der Computer meldet: 
"Ein Prozentzeichen!” 

Das Programm arbeitet aber noch 
nicht korrekt. Denn tippen Sie statt des 
Prozentsymbols ein Ausrufezeichen 
ein, so gibt es einiges an Text aus: 


Ein Ausrulezeichen! 

Ein Anflührungazeichen! 
Ein Doppelkreuz! 

Ein Dollaraymboll 

Ein Prozentzeichen! 


case 37: 


Die Lösung für diesen »Fehler« ist 
recht simpel: Der case-Befehl versteht 
sich nämlich nicht wie Pascals CASE, 
sondern eher wie der GOTO-Befehl in 
diesem Basic-Programm: 
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10 INPUT a$ 

20 ON ASC(a$)-32 GOTO 32,33,34,35, 
36,37 

32 PRINT 

33 PRINT 

34 PRINT 

35 PRINT 


"Ein Leerzeichen!” 

"Ein Ausrufezeichen! ” 
"Ein Anführungszeichen! ” 
"Ein Doppelkreuz! ” 

36 PRINT ”Ein Dollarsymbol!” 

37 PRINT "Ein Prozentzeichen!” 


case durchläuft also alle folgenden 
Fälle und führt sie ohne Prüfung der 
Bedingung aus. Da dies meistens uner- 
wünscht ist, ist Abhilfe bereits vorgese- 
hen: Der break-Befehl, den wir vorhin im 
Zusammenhang mit Schleifenkonstruk- 
tionen erwähnt haben, verläßt ebenso 
eine switch-case-Anweisung: 


main() 
| 
Intze» 
printf( "Bitte die Nummer 
eines Wochentags: ”); 
c=getchar()-48; 


switch(c) 
| 
case 1: printf 
(”Montag”); break; 
case 2: printf 
("Dienstag”); break; 
case 3: printf 
(”Mittwoch”); break; 
case 4: printf 
( "Donnerstag”); 
break; 
case 5: printf 
(”Freitag”); break; 
case 6: printf 
(”Samstag”); break; 
case 7: printf 


(“Sonntag”); break; 


printf(” ist der %d. Wochen- 
tag. ,0); 


Wenn Sie hier eine Zahl zwischen 1 
und 7 eingeben, antwortet der Com- 
puter mit dem korrespondierenden 
Wochentag: 


Bitte die Nummer eines Wochentage: 1 
Montag Ist der 1. Wochentag. 

Bitte die Nummer ainea Wochentaga: 4 
Donnaeratag Iat der 4. Wochentag. 

Bitte die Nummer eilnea Wochaentags: 7 
Sonntag lal der 7. Wochentag. 


Entfernen Sie übungsweise einmal 
überall die break-Anweisungen. Sie 
sehen dann, wie der Computer alle 
Wochentage »durchrutschen« läßt. 

Falls Sie ein Symbol eingegeben 
haben, das keine Ziffer oder aber die 
Zahlen »8« oder »9« darstellt, ignoriert 
der Computer einfach die case- 
Anweisungen und macht nach der Ver- 
bundanweisung - hier also bei »printf« - 
weiter, als wäre nichts geschehen. Oft 
ist aber eine Fehlermeldung ange- 
bracht. Der Befehl, der es erleichtert, 
solche Programm- oder Eingabefehler 
abzufangen, heißt »default«: 
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main() 


Int 1: 
printf( "Wählen Sie:A oder B”); 
i=getchar(); 


switch(1) 
case 'A': printf 
(”Ein A also!”); 
break; 
case 'B': printf 
("Sie haben B getippt! ”); 
break; 
default: printf 
(”Eingabefehler! ”); 
printf 


("Weder A noch B.’”); 
| 
| 

Das Programm fordert von der Tasta- 
tur einen Buchstaben an, wahlweise 
»A« oder »B«. Für diese beiden Symbole 
ist das Verhalten genau definiert. Der 
Computer führt die zugehörige case- 
Anweisung aus. Bei anderen Eingaben 
ruft er »default« auf. 

Auch die Ausführung eines einzelnen 
Befehls auf mehrere case-Anweisun- 
gen hin ist zulässig: 

switch(x) 
case 1: 
case 2: printf(”1 oder 2”); 

Das »Wochentags-Programm« kann 
man so zu einem »Wochenende-Pro- 
gramm« machen: 
main() 

| 

inte} 

printf( "Bitte die Nummer 

des Wochentags: ”); 
c=getchar()-48; 
switch(c) 
| 

case 1: 
case 2: 
case 3: 
case 4: 
case 5: printf 
(”Wochentag”); break; 
case 6: 
case 7: printf 
("Endlich Wochenende! ”); 
break; 

| 

Die Fälle 1 bis 5 werden mit Wochen- 
tag beantwortet. Entdeckt der Compu- 
ter aber eine 6 oder 7, meldet er freudig 
»Endlich Wochenende!« 

Man glaubt es kaum, welchen Horror 
ein kleines Wörtchen auf viele Program- 
mierer ausübt. Struktur-Fanatiker 
scheuen den Befehl »GOTO« in etwa 
demselben Maße wie Vampire den her- 
anbrechenden Morgen. Es stimmt 


sicher, daß die allzu häufige Anwen- 
dung von GOTO nicht gerade zu über- 
sichtlichen Programmen führt. Aber in 
manchen Fällen ist dieser unbedingte 





Sprung in allen Programmiersprachen 
sehr nützlich. Letztlich gibt es GOTO 
sogar in vielen Pascal-Versionen. C 
steht da nicht zurück: 

goto sprungziel; 


sprungziel: ... 

Das folgende Beispiel eignet sich 
bestens, um zu zeigen, daß sich GOTO 
aber fast immer vermeiden läßt: 
main() 


| 


intsl; 

1=32; 

sprungziel: printf(”%d = %x 
= Go = Kein” 
‚1,1535 2); 
1-1+1; 
if (1<=255) 


goto sprungziel; 


Das Programm gibt, wie unschwer zu 
erkennen ist, den ASCiIl-Zeichensatz 
und die verschiedenen Zahlenäquiva- 
lente in dezimaler, hexadezimaler und 
oktaler Notation aus. Erinnern Sie sich 
noch, wie elegant im Gegensatz dazu 
die Verwendung der for-Schleife wirkt? 

Bisher verwendeten Sie nur die Funk- 
tion main(), die das eigentliche Haupt- 
programm darstellt. Ebenso einfach 
können Sie Unterfunktionen definieren. 
Ob Sie diese vor oder hinter main() 
ablegen, ist dem Compiler völlig egal. 
main() 


printf 

("Ich bin in main()\n”"); 
subfunction(); /* Aufruf 
der Funktion %/ 

printf 

(”Ich bin wieder main()\n”); 


subfunction() 
| 
printf 
(”Ich bin subfunction()\n”); 


Genauso gut können Sie subfunc- 
tion() vor main() angeben. 
subfunction() 

[ 
printf 
(”Ich bin subfunction()\n”); 


main() 
| 
printf 
(”Ich bin main()\n”); 
subfunction(); /* Aufruf der 
Funktion #%/ 
printf(”Ich bin 
wieder main()\n”); 
Beim Programmstart wird main() auf- 
gerufen und gibt den Text »Ich bin in 
main()« aus. Dann findet der Computer 








den Aufruf der Unterfunktion subfunc- 
tion() und bearbeitet diese. Dort steht 
der Ausgabebefehl »Ich bin subfunc- 
tion()«. Da diese Funktion gleich wieder 
zu Ende ist, kehrt das C-Programm 
nach main() zurück. Es führt den nach- 
folgenden printf-Befehl aus: »Ich bin 
wieder main()«. 

Die Bildschirmausgabe sieht also 
insgesamt so aus: 


Ich bin maln() 
Ich bin sublunctlon() 
Ich bin wieder main() 


Am Ende des Funktionskopfes, also 
dort, wo der Namen der Funktion steht, 
dürfen Sie keinesfalls einen Strichpunkt 
setzen. Denn der Compiler verstünde 
dies als Funktionsaufruf anstatt als Defi- 
nition. 

Funktionsaufrufe lassen sich beliebig 
verschachteln, wenn Sie es nicht über- 
treiben und durch mehrere hundert 
Funktionen den gesamten Computer 
blockieren. Somit sind auch rekursive 
Programmiertechniken erlaubt. 

Funktionen in C können aber nicht 
ihre »privaten« Unterfunktionen haben, 
wie das in Pascal erlaubt ist. In C sind 
alle Funktionen gleichwertig. Es gibt 
also keine von einer anderen Funktion 
abhängige Funktion, die nicht auch von 
einer dritten, unabhängigen Funktion 
aufgerufen werden kann. Diese Be- 
schränkung gegenüber Pascal trägt 
sehr zur Verständlichkeit und Lesbar- 
keit von C-Programmen bei. 

Sie dürfen also nicht so programmie- 
ren: 

Funktionsdefinition 1 
Funktionsdefinition 2 
Funktionsdefinition 2a 
Funktionsdefinition 2b 
Funktionsdefinition 2ba 
Funktionsdefinition 2bb 
Funktionsdefinition 3 
Statt dessen müssen Sie in C schrei- 
ben: 
Funktionsdefinition 1 
Funktionsdefinition 2 
Funktionsdefinition 2a 
Funktionsdefinition 2b 
Funktionsdefinition 2ba 
Funktionsdefinition 2bb 
Funktionsdefinition 3 

Während der erste Aufbau (Pascal) 
den Aufruf von 2bb aus 3 verbietet, ist 
dieser beim zweiten Schema, das den 
Syntax-Vereinbarungen von C ent- 
spricht, erlaubt. 

Die Namen der Funktionen müssen - 
übrigens ebenso wie die Variablenna- 
men - gewissen Konventionen ent- 
sprechen. So muß das erste Zeichen 
ein Buchstabe zwischen a und z bezie- 
hungsweise A und Z oder ein Unter- 
strich (__) sein. Die restlichen Zeichen 
sind Buchstaben, Ziffern oder Unter- 
strichee Von der Verwendung des 
Unterstrichs als erstem Symbol eines 
Namens ist aber abzuraten. Nach inter- 
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nationaler Gepflogenheit unter den C- 
Programmierern sind diese Namen 
nämlich für die interne Verwaltung des 
Compilers, zum Beispiel in den mitge- 
lieferten Bibliotheksdateien, reserviert. 
Ein Verstoß gegen diese Regel kann 
Namenskollisionen zur Folge haben. 
Die maximal erlaubte Namenslänge 
hängt vom Compiler ab und wurde im 
C-Standard von Kernighan und Richie 
nicht exakt festgelegt. Bei den meisten 
Compilern dürfen Namen beliebig lang 
sein, es werden aber nur die ersten 
sechs oder acht Stellen unterschieden. 
Bei solchen Compilern sind damit die 
Namen »ein__langer__funktionsnamel()« 
und »ein__langer__funktionsname2()« 
identisch - also aufgepaßt! Natürlich 
dürfen Namen einer Funktion oder Va- 
riablen nicht dem Namen eines Befehls 
(for, while, case und so weiter) entspre- 
chen. 

Damit sollte Ihnen der einfache Unter- 
programmaufruf ohne Datenübergabe 
klar sein. Wichtig istnur noch, anzumer- 
ken, daß jede Funktion - so auch main() 
- lokale Variablen verwendet. »Lokal« 
bedeutet, daß die Variablen einzig und 
allein für diese Funktion definiert sind. 
Andere Funktionen können auf sie nicht 
zugreifen: 
main() 


| 

16%; 

X=3; 

printf(”x ist in main() 
zaNn”,x)s 

subfunct(); 

printf(”x ist in main() 
immer noch %d\n",x); 


subfunct() 


| 

ING >%; 

x=10; 

printf(”x ist in subfunct() 
%d\n”,x); 

x=x%2; 

printf(”x ist jetzt in 
subfunct() %d\n”,x); 


Die Variable x, die in main() definiert 
wurde, hat überhaupt nichts mit der 
Variablen x in subfunct() zutun. Ihre ein- 
zige Übereinstimmung bleibt der Name. 
Keine Manipulation des Wertes in 
main() hat irgendwelche Auswirkungen 
auf den Wert in subfunct(). Dement- 
sprechend liefert das Programm die fol- 


genden Ausgaben: 


maln(): x=3 

Meldung: »x lat In maln() 3« 

aubfunct(): x= 10 

Meldung: »x lat In aublunct() 10« 
aublunci(): x=x°2 

Meldung: »x lat In aubflunci() 20« 
maln(): 

Meldung: »x lat In maln() Immer noch 3« 


Sie können aber auch sogenannte 
globale Variablen vereinbaren. Im 
Gegensatz zu den lokalen Variablen, 
deren Wirkungsbereich sich auf eine 








Funktion beschränkt, gelten die globa- 
len in allen Funktionen. Sie werden vom 
Compiler als allgemeingültig erkannt, 
indem sie an den Anfang des Pro- 
gramms außerhalb der Funktionen auf- 
geführt werden: 

Inb>L; 

main() 


i=999; /% Wertzuweisung 
in main() */ 
printf(”In main() hat i 
den Wert %d\n”,1); 
subfunct(); 


subfunct() 
| 
printf(”Auch in subfunct() 
ist l-4d\n’, 25 


Die Variable i steht in der ersten Zeile, 
also noch bevor main() oder subfunct() 
beginnen. Somit ist i global. In main() 
wird der Variablen der Wert 999 zuge- 
wiesen. Daß die Zuweisung korrekt 
ablief, beweist die printf-Zeile: »In main() 
hat i den Wert 999«. Der Befehl »sub- 
funct();« überträgt die Kontrolle an die 
gleichnamige Funktion. Der Aufruf von 
printf bezeugt, daß i den Wert 999 
behalten hat. Jede Veränderung des 
Werts von i in einer Funktion hat die 
Wertveränderung in allen anderen 
Funktionen zur Folge - ganz einfach, 
weil es sich immer um dieselbe Variable 
handelt. 

In C haben lokale Variablen eine Vor- 
rangstellung vor den globalen. Wenn 
Sie eine globale Variable definiert 
haben, können Sie ohne Probleme eine 
lokale Variable gleichen Namens initiali- 
sieren. Während der Laufzeit der zuge- 
hörigen Funktion wird die lokale Varia- 
ble verwendet. Nach Ende der Bearbei- 
tung benutzt der Computer wieder die 
globale Variable: 
int 1=123; /% globales i 

ist 123 */ 
main() 
| 

printf(”Globales 1 ist 
%d\n”,1); 

subfunct(); 

printf(”Globales i ist 
immer noch %d\n”,i); 


subfunct() 
| 

int i; /* lokale Definition 
VOnw 17 

1=-999; /%* lokale Wertzu- 
weisung %/ 

printf(”Lokales i ist 
zdın 1); 


Das C-Programm meldet: 


Qlobales | lat 123. 
Lokales I lat 999. 
Qlobalesa | ist Immer nach 123. 


(Martin Kotulla/hg) 
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Daten werden unter C in ver- 
schiedenen Klassen gespei- 
chert. Ob die Variable automa- 
tisch gelöscht wird oder im Spei- 
cher stehenbleibt - das muß der 
Programmierer beachten. 


C:" storage-classes, was in 
der deutschen Übersetzung 
»Speicherklassen« heißt. Dieser 
Ausdruck stammt aus der »C-Bibel« von 
Kernigham und Ritchie und wird hier 
näher beschrieben. 

Es gibt drei Speicherklassen in C, 
nämlich »static«, »auto« und »registere«. 
Normale Variablen, die bei ihrer Defini- 
tion nicht anders bezeichnet werden, 
zählen zum »automatic«-Typ. Das heißt, 
sobald die sie betreffende Funktion auf- 
gerufen ist, werden die Variablen im 
Speicher angelegt. Beim Beenden’der 
Funktion löscht der Computer ihre 
Werte und gibt den benötigten Spei- 
cherplatz wieder frei. Dadurch gehen 
ihre Inhalte verloren und können beim 
nächsten Aufruf derselben Funktion 
also nicht weiterbenutzt werden. 

automatic-Variablen werden durch 
die Angabe des Schlüsselwortes 
»auto« Spezifiziert: 
auto Int a; 
auto char b; 
auto float xyz; 

Wenn Sie keine anderweitige Angabe 
hinzusetzen, verarbeitet er die Varia- 
blen selbsttätig als »auto«. Statt der 
gezeigten Definitionen können Sie also 
auch schreiben: 
int a; 
char b; 
float xyz; 

Diese Notation sind Sie ja bisher 
schon gewohnt. Ein anderes Verhalten 
zeigen die static-Variablen. Einmal im 
Speicher angelegt, sind sie dann bis 
zum Programmende bei jedem Aufruf 
der Funktion, für den die Definition gilt, 
verfügbar. Ihr Wert bleibt also auch 
beim Beenden der Funktion erhalten. 
Zur Verdeutlichung hier ein Programm- 
beispiel, das das unterschiedliche Ver- 
halten von auto- und static-Variablen 
zeigt: 
main() 
| 

sub(); /* 1.Unterprogrammauf- 
ruf %/ 

sub(); /* 2.Unterprogrammauf- 
ruf %, 


sub(); 


| 


autor Int x=7, 
printf(”Wert von x=%d ”,x); 
x=X+1; 
Die Bildschirmausgabe ist »3 3«. Bei 
jedem Aufruf wird x neu angelegt. 
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Speicherklassen- 
gesellschaft in € 


Ersetzen Sie das Schlüsselwort auto 
durch static und schauen Sie, was pas- 
siert: »3 4«. Beim ersten Aufruf von 
sub() wird x der Wert 3 zugewiesen und 
auch auf dem Bildschirm ausgegeben. 
Danach erhöht der Befehl x=x+1 den 
Wert auf 4, und der Computer beendet 
die sub-Funktion. Beim zweiten Aufruf 
von x »weiß« der Computer noch, daß x 
den Wert 4 hat und gibt ihn auch aus. 
static-Variablen eignen sich also dazu, 
wichtige Daten bis zum nächsten Aufruf 
der Funktion zu »konservieren«. 

Auf Grund dieser Eigenschaft müs- 
sen Sie in jedem Einzelfall entscheiden, 
ob Sie nun auto oder static vorziehen. 
Auto-Variablen haben den Vorteil, daß 
Speicherplatz nur für wirklich benötigte 
Variablen benutzt und dieser auch bald- 
möglichst wieder freigegeben wird. Die 
zugehörigen Mechanismen der Varia- 
blenverwaltung kosten allerdings 
sowohl Zeit als auch Programmspei- 
cherplatz. statics erlauben damit kür- 
zere und schnellere Programme. 

Die Speicherklasse »register« weist 
den Compiler an, eine Variable direkt in 
einem der Register des Mikroprozes- 
sors abzulegen. Der Prozessor kann sie 
so durch einen einzigen Maschinenbe- 
fehl sehr schnell erreichen, was sich 
entsprechend positiv auf die Arbeitsge- 
schwindigkeit des Programms aus- 
wirkt. Die »herkömmlichen« Prozesso- 
ren wie Z80, 6502, 6809 und sogar 
der 68000 besitzen aber gar nicht 
genügend Register, um noch einige zu- 
sätzlich einem C-Programm zur Verfü- 
gung zu stellen. Die diversen C-Compi- 
ler für kleinere Computer geben des- 
halb bei diesem Befehl entweder eine 
Fehlermeldung aus (sehr selten), oder 
sie ignorieren die Anweisung und ma- 
chen aus »register« »auto« (das ist bei 
Compiler-Autoren weitaus beliebter). 
Sie werden nun sicher fragen: Wenn ich 
jetzt schon Funktionen definieren kann, 
muß ich doch irgendwie zwischen den 
einzelnen Funktionen Daten austau- 
schen können. Bloß wie? 

Basic-Programmierer werden ant- 
worten: Kein Problem. Wir haben doch 
die, ach so praktischen, globalen Varia- 
blen. Nun definieren wir einfach alle 
Variablen als global und sind sämtlicher 
Sorgen über den Datenaustausch ent- 
hoben. 

Vor diesen Gedankengängen muß 
aber dringendst gewarnt werden. Glo- 
bale Variablen lassen sich vielleicht 
noch ohne Probleme bei kürzeren Pro- 





grammen (nicht länger als drei oder vier 
Seiten) anwenden. Bei umfangreiche- 
rem C-Quellcode sind globale Variablen 
aber sehr gefährlich. Da eine Änderung 
ihres Inhalts auch Auswirkungen auf 
alle anderen Funktionen hat, sind die 
Folgen nicht mehr überschaubar. 

Diese Nebeneffekte machen das 
ganze Konzept des modularen Auf- 
baus von C zunichte und führen über 
kurz oder lang ins (vor-)programmierte 
Chaos. 

C bietet viel zuverlässigere Wege zur 
Parameterübergabe und -übernahme. 
Parameter haben Sie bereits in Ihrem 
ersten Programm übergeben. Erinnern 
Sie sich an »printf(»Hallo, Welt! ” )«? Die 
Stringkonstante »Hallo, Welt!« ist nichts 
anderes als ein Parameter, der an die 
Funktion printf abgeschickt wird. C- 
Funktionen können eine beliebige 
Anzahl von Parametern beliebiger 
Datentypen (int, char, float und so wei- 
ter) übernehmen, zum Beispiel: 
putchar(64); 
printf( "TEXT”); 
putc(3,6); 
func(3,a,'%*',b,1); 

Die Funktionen kopieren sich die 
Argumente in sogenannte »formale 
Parameter«. Dassindnichts anderes als 
lokale Variablen, in die der Inhalt der 
angegebenen Parameter übertragen 
wird. Die formalen Parameter sind also 
nicht die Variablen selbst, sondern sie 
repräsentieren nur ihren Wert. Eine Ver- 
änderung ihres Wertes variiert folglich 
nicht die Variablen, die als Argumente in 
der aufrufenden Funktion benutzt wer- 
den. 

Schreiben wir ein Programm, das 
Iinteger-Daten aus dem Hauptpro- 
gramm in eine Unterfunktion übernimmt 
und auf dem Bildschirm ausgibt: 
main() 
| 

Int 1; /* Parameter- 

Variable vereinbaren #/ 

14711; 

drucke(i); 
drucke (4711); 


drucke(x) /* x ist formaler 
Parameter*/ 
int x; /* Parametertyp 
definleren *%/ 


printf( "%d\n”,x); 


Der Aufruf »druckel(i);« führt dazu, daß 
der Computer sich den Wert von i holt 




















(nicht i selbst!) und an das lokale x in 
drucke(x) übergibt. »drucke(4711)« 
weist den Computer an, die Konstante 
4711 dem lokalen x zuzuweisen. 

Ebenso lassen sich zwei, drei oder 
eine beliebige andere Zahl von Parame- 
tern übergeben: 


main() 


Iintex;,y,z; 

x=y=23; 

y++; 

Z=-X; 
drucke?var(x,y,2); 
) 

drucke?var(a,b,c) 
int 8,D,C; 


printf(”%d %d %d’,a,b,c); 


Nebenbei ist an diesem Programm 
die Zeile »x=y=23« recht interessant. 
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druckschleife('-',20); 


| 
druckschleife(zeichen,wiederhol) 
char zeichen; /* formale 


; Parameter */ 
Int wiederhol; 


| 
Int zaehler; /* normale 
lokale 
Variable #/ 
for (zaehler=0; zaehler< 
wiederhol; zaehler+) 
putchar(zeichen); 


putchar('\n'); 


Der Funktion »druckschleife(zei- 
chen,wiederhol)« fällt die Aufgabe zu, 
das Zeichen »zeichen« »wiederhol«-mal 
zu drucken. druckschleife('*,70) gibt 
also 70 Sternchen auf dem Bildschirm 
aus. Die Variablen zeichen und wieder- 
hol sind formale Parameter und werden 
deshalb außerhalb der geschweiften 


IN "MI 


un N, 


Dieser Befehl weist den Variablen x und 
y gleichzeitig den Wert 23 zu. Das läßt 
sich mit beliebig vielen Variablen 
machen: sa=b=c=d=e=f=44«. Die- 
se Form der Wertzuweisung darf nicht 
mit den Logiktests in Basic verwechselt 
werden, wo A=B=3 die Variable B mit 
3 vergleicht und abhängig davon A auf 
TRUE (-1) oder FALSE (O0) setzt. 

Ist Ihnen aufgefallen, daß die Varia- 
blendefinition in drucke3varla,b,c) 
nicht, wie bisher üblich, in die 
geschweiften Klammern des Pro- 
grammcodes integriert ist? Der Grund 
liegt darin, daß die zu den formalen 
Parametern korrespondierenden Defi- 
nitionen außerhalb der Klammern ste- 
hen müssen. Die übrigen »normalen« 
Variablendefinitionen sind wie gehabt in 
die Klammern der Verbundanweisung 
zu Setzen: 
main() 
| 

druckschleife('*',70); 

druckschleife(33,70); 








Klammern definiert. zaehler ist eine 
interne lokale Variable; die Definition 
erfolgt daher innerhalb der Blockklam- 
mern. 

Die Datenübergabe geht nun pro- 
blemlos vor sich. Anders sieht es mit 
der Übernahme von Werten aus der 
aufgerufenen in die übergeordnete 
Funktion aus. 

Prinzipiell gibt es in C zwei Arten von 
Funktionsaufrufen: 

- funktion(parameter); 
- variable=funktion(parameter); 

Im ersten Fallwerden nur Daten an die 
Funktion übermittelt, ein Rückgabewert 
wird nicht erwartet. Wohin auch damit? 
Damit entspricht dieser Fall gewisser- 
maßen den Prozeduren in Pascal. 

Im Gegensatz dazu erwartet man 
beim zweiten Funktionsaufruf, daß die 
Unterfunktion irgendeinen Wert in die 
Variable einträgt. Dabei kann dasreturn- 
Statement Verwendung finden. 

Ein Hinweis an die Basic-Program- 
mierer unter Ihnen: Eine der beiden For- 


men desreturn-Befehls ist identisch mit 
dem Basic-Kommando RETURN (Rück- 
Sprung aus Unterprogrammen). 

Das normale return-Statement been- 
det die Ausführung einer Funktion und 
bewirkt die Rückkehr ins aufrufende 
Programm. Sie können aber auf die 
Anwendung verzichten, da die Rück- 
kehr sowieso von der geschlossenen 
geschweiften Klammer ausgelöst wird: 
main() 


funktion(); 
funktion(); 


printf(”Hallo, hier bin ich!”); 
return; /* kann entfallen! */ 


Als recht nützlich erweist sich aber 
return, um zum Beispiel, abhängig von 
einer if-else- oder switch-case-Kon- 
struktion, die Bearbeitung einer Funk- 
tion zu beenden: 
main() 
| 

Intl; 

i=getchar(); /* Tastaturzeichen 

lesen */ 
check_small(1); /* Pruefen, ob 
zwischen 'a' und 'z! %/ 


check_small(x) 
Int x 
| 
if (x>='!a! && x<='z') [| printf 
("Liegt zwischen a und 2”); 
return; 


printf(”Kein Kleinbuchstabe! ”); 


Das Programm liest ein Zeichen von 
der Tastatur und prüft mit der Funktion 
check __small, ob es sich um einen 
Kleinbuchstaben handelt. In diesem 
Fall gibt der Computer »Liegt zwischen 
a und z« aus und bricht die Bearbeitung 
der Funktion check__small ab. Andern- 
falls meldet er »Kein Kleinbuchstabe!« 
und beendet ebenfalls die Funktion. 

Die erweiterte Form return(x) schickt 
den Inhalt der Variablen x an die Varia- 
ble, die beim Funktionsaufruf zu finden 
ist. Eine umständliche Formulierung für 
die Zuweisung »i=5« sieht in C so aus: 
main() 
| 

int: 1; 
i=zuweisfunkt(); 
printtlT4”,1); 


zuweisfunkt() 


| 


return(5); 


»int ie weist den Computer an, i 
als Integervariable zu verstehen. 
»i=zuweisfunkt()«e bewirkt den Funk- 
tionsaufruf, und printf sorgt für die Bild- 


= 8/ 


/* 5 an die auf- 
rufende Funktion %/ 


schirmausgabe, anhand derer Sie die 
Arbeitsweise von return überprüfen 
können. »zuweisfunkt()« enthält als ein- 
zigen Befehl die return-Anweisung, die 
den konstanten Wert 5 zurückgibt. 

Meistens handelt es sich wohl vor 
allem um die Zusammenarbeit zwi- 
schen der Übernahme und der Rück- 
gabe von Parametern. Die normale C- 
Zuweisung »variable=ausdruck;« kann 
auf diese Weise mit einem kleinen 
Programm ersetzt werden, durch 
»variable=calc(ausdruck);«.. Im Pro- 
grammieralltag ist die gezeigte Routine 
natürlich völlig überflüssig - es sei 
denn, Sie wollen auf Biegen oder Bre- 
chen den Speicher füllen: 


main() 

| 
int 15); 
i=calc(3); /* 123 %*/ 
j=calc(i*2); /* j=1*2 */ 


i=scalc(i+1%j/2); /* i=1+1%)/2 %*/ 
printf(”i=%d j=%d”,1,j); 


calc(x) 
Int x; /* formaler Parameter */ 


return(x); 


Es gibt noch zwei Sonderfälle, die bei 
der Programmierung auftreten können: 
- Im Programmtext steht ein einfaches 
return ohne Variable oder return fehlt 
völlig. Der an die Variable (links vom 
Gleichheitszeichen) zugewiesene Wert 
ist dann ungültig und ergibt keinen Sinn. 
- Ein Wert wird mittels return(x) zurück- 
gegeben. Da aber die Funktion keine 
Zuweisungsvariable vorfindet (zum Bei- 
spiel printf(”x”) statt y=printf(”x”)), 
geht der Wert verloren. Er richtet dann 
aber nicht irgendwelche undefinierba- 
ren Schäden an, wie man durchaus 
erwarten könnte, wenn ein Wertin einen 
nicht dafür vorgesehenen (und daher 
eventuell verbotenen Bereich) ge- 
schrieben wird. 

Bisher sind wir stillschweigend stets 
davon ausgegangen, daß alle Funktio- 
nen Integer-Argumente liefern. Dem ist 
aber nicht unbedingt so. Sie können 
auch Zeichen, Fließkommawerte oder 
Leerargumente übergeben. Dazu wer- 
den die Funktionen ähnlich wie die 
Variablen deklariert. 
funktion(x) 

char x; 


| 


putchar(x); 

können Sie gleichwertig schreiben: 
int funktion(x) 

char x; 


putchar(x); 


Immer wenn Sie keine derartige 
Angabe machen, nimmt der Compiler 


88 


an, daß Sie eine Integer-Funktion dekla- 
rieren wollen. Eine Funktion, die einen 
float-(Fließkomma-)Wert an das aufru- 
fende Programm übergibt, sieht so oder 
ähnlich aus: 

float pi_wert() 


| 
return(3.141592653) ; 

Mit printf( * %f” ,pi_wert()) läßt sich 
der Wert für Pi von einem anderen Pro- 
grammteil aus aufrufen. 

Neben den üblichen Definitionen gibt 
es noch »void«. Schnell im Englisch- 
Wörterbuch geblättert - dort stehen 
unter anderem als Übersetzung »leer« 
und »frei«. void zeigt dem Compiler an, 
daß die Funktion keinen Wert übermit- 
telt, also eine »leere« Wertrückgabe hat: 
void func(x) 

Iint’x; 


putchar(x); 
main() 

| 

func (64); 


Die Angabe von »void« ist aber eher 
für penible Programmierer gedacht und 
auchnicht in allen Compilern implemen- 
tiert. Denselben Effekt erzielen Sie, 
wenn Sie kein »void« angeben und die 
Funktion statt dessen so programmie- 
ren, daß sie von selbst auf die Rück- 
gabe von Werten verzichtet. 

Wir haben vorhin festgestellt, daß die 
Position von Funktionen relativ zur Lage 
der main-Funktion völlig beliebig ist. 
Eine Einschränkung muß aber für die 
Fälle gemacht werden, die Funktionen 
ausdrücklich mit einem Typenmerkmal 
deklarieren. 

Entdeckt der Compiler während des 
Übersetzens von main() den Aufruf 
einer von Ihnen definierten Funktion, 
kann er nicht erkennen, welchen Typ 
diese Funktion hat, und nimmt deshalb 
automatisch das am häufigsten ge- 
brauchte »int« an. Ist der Funktionswert 
tatsächlich Integer, gibt es keine weite- 
ren Probleme. Bei den anderen Typen 
wie »char«, »float« und »double« meldet 
der Compiler einen Fehler, weil er diese 
nicht mit seiner vorherigen Annahme in 
Einklang bringen kann. 

Dieses Problem läßt sich auf zwei 
Wegen lösen: 

- Sie stellen alle Funktionen, die nicht 
Integer sind, im Programmlisting irgend- 
wo vor den Ort, an dem sie das erste 
Mal aufgerufen werden. Der Compiler 
hat dann intern einen Vermerk gespei- 
chert, welchen Typ die Funktion hat: 
char zeicheneingabe() 


return(getchar()); 


main() 








char tastenzeichen; 
printf(”Bitte geben Sie ein 
Zeichen ein: ”); 
tastenzeichen=zeicheneingabe(); 
printf(”Das Zeichen war ein %c”, 
tastenzeichen); 


Die Funktion »zeicheneingabe()« 
gleicht der getchar()-Funktion völlig. 
Sie gibt daher auch nur den Wert 
zurück, den sie von getchar() erhalten 
hat. In der Hauptfunktion main() druckt 
der Computer eine Aufforderung aus, 
ein Zeichen einzugeben. 

»tastenzeichen=zeichengabe()« holt 
sich das Zeichen, und printf gibt es auf 
dem Bildschirm aus. Hätten Sie die 
Funktion zeicheneingabe() hinter 
main() gestellt, würde sich Ihr C- 
Compiler mit einer hämischen Fehler- 
meldung »bedanken«. 

- Die zweite Möglichkeit ist die soge- 
nannte »Vorwärtsdeklaration«e. Diese 
läßt sich in eine globale und eine lokale 
Vorwärtsdeklaration trennen. Zuerst zur 
globalen: Sie setzen einfach an den 
Anfang Ihres Programms eine Definition 
des Funktionsnamens, die einer Varia- 
blendefinition ähnelt. Der Compiler 
erkennt daran den Typ der Funktion und 
kann sie richtig übersetzen: 
char zeicheneingabe(); /* Vor- 
wärtsdeklaration %*/ 

main() 
{ 

char tastenzeichen; 

printf( "Bitte geben Sie ein 

Zeichen ein: ”); 

tastenzeichen=zeicheneingabe(); 

printf(”Das Zeichen war ein %c”, 

tastenzeichen); 
) 


char zeicheneingabe()/* Tatsäch- 
liche Funktionsdefinition */ 


return(getchar()); 


In der Vorwärtsdeklaration dürfen kei- 
nerlei formale Parameter wie »char zei- 
cheneingabe(x)« oder »char zeichen- 
eingabe(x,t,3)«e angegeben werden. 
Sie endet daher immer mit leeren run- 
den Klammern. Erst bei der eigentli- 
chen Definition der Funktion sind die 
Parameter wie gehabt einzutragen: 
char zeichenausgabe(); 

/* Ohne Parameter! *%/ 
main() 
| 

char x; 

x=zeichenausgabe(65); 

printf( "\nASCII-Code %d”,x); 

) 

zeichenausgabe(2) 

/* Hier Parameter z angeben! #*/ 

char 2; 

/* Und Parameter deklarieren */ 









































putchar(2); 
return(z); 


Die Vorwärtsdeklaration in der ersten 
Programmzeile enthält keinerlei Para- 
meter. Erst bei der Funktionsdefinition 
zeichenausgabe(z) ist der Parameter 
angegeben. Die Funktion hat die Auf- 
gabe, ein Zeichen auf dem Bildschirm 
auszugeben und dessen ASCII-Code 
als char-Variable an die aufrufende 
Funktion zurückzusenden. Dortkann er 
dann ausgewertet werden. 

Was Sie schon bei der Besprechung 
der globalen Variablen gehört haben, 
wiederholt sich auch hier: Die globale 
Vorwärtsdeklaration ist nicht so emp- 
fehlenswert, wie sie auf den ersten 
Blick vielleicht aussieht. Besser ist es, 
in jeder Funktion, die die zu definie- 
rende Funktion aufruft, die Vorwärtsde- 
Klaration einzusetzen. Das hat den Vor- 
tel, daß Sie immer den Überblick 
haben, welche Funktion andere Funk- 
tionen benutzt: 
main() 
| 

char zeichenausgabe(); 
/* Lokale Deklaration */ 
char X; 
x=zeichenausgabe (65); 
printf( ”"\nASCII-Code %d”,x); 


zeichenausgabe(z) 

/* Hier Parameter z angeben! *%/ 
char 2; 

/* Und Parameter deklarieren */ 
| 

putchar(2); 

return(z); 


Ein C-Compiler bietet Ihnen in Form 
eines Vorübersetzers, des »Pre- 
Processors«, zusätzliche Dienste an. 
Der #include-Befehl fügt andere C- 
Quellcode-Dateien in den Programm- 
text ein. 

Der Präprozessor (so die deutsche 
Bezeichnung) ist eine Art Textaus- 
tausch- und Einsetzprogramm. Er hat 
»absolut keine Ahnung« von der Spra- 
che C und dient nur dazu, die von Ihnen 
eingegebenen Quellcode-Dateien in 
eine vom Compiler lesbare Form zu 
bringen. Alle Präprozessor-Komman- 
dos beginnen mit dem Doppelkreuz- 
Zeichen »#«. Sie sind nicht genormt, 
sondern vom Compiler abhängig. Wich- 
tig für die alltägliche Programmierarbeit 
istneben #include noch # define. Die 
übrigen Befehle wie #if, #ifdef und 
#ifndef dienen der bedingten Compi- 
lierung, die die meisten von Ihnen wahr- 
scheinlich nie brauchen werden. 

Die Anweisung # define gestattet es, 
Texten oder Zahlen im Programm sinn- 
volle Namen zu geben. Eine Zeile wie 
umfang=2*radius#3.141592653 
enthält die Zahl Pi als Konstante. Wenn 
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Sie diesen Wert häufiger in Ihrem Pro- 
gramm brauchen, werden Sie die fol- 
gende Vereinfachung schätzen. Der 
Präprozessor erlaubt Ihnen, folgendes 
zu Schreiben: 

#define PI 3.141592653 
umfang=2*#radius#P]I; 
flaeche=sradlustradius#Pl; 

Statt 3.141592653 darf also nach 
dem # define-Befehl synonym der Aus- 
druck »Pl«e benutzt werden. Beim 
Durchlaufen des Präprozessors ersetzt 
dieser automatisch alle »Pl«s durch den 
Zahlenwert. 

Der Präprozessor entfernt also stur 
die alten Bezeichnungen und fügt 
ebenso stur die neuen Namen ein. 
Immerhin ist er so intelligent, dies nicht 
mitten in Zeichenketten zu machen: 
#defline TEXT ERSATZTEXT 
printel TEXT); 

Dieses Programm gibt also trotzdem 
»TEXT« aus und nicht etwa »ERSATZ- 
TEXTe. In alter Gewohnheit schreiben 
die C-Programmierer solche # define- 
Namen in Großbuchstaben, damit sie 
sich besser von Funktionsaufrufen, 
Variablennamen und ähnlichem abhe- 
ben. Wenn sich irgendwann einmal der 
Wert der Konstanten ändert (bei Pi ist 
das kaum anzunehmen, bei anderen 
Daten aber durchaus möglich), müssen 
Sie nur im Programmkopf (dort sollten 
Sie alle # define's der Übersichtlichkeit 
halber zusammenfassen) die Werte 
ändern. 

Die Syntax für den #define-Befehl 
sieht so aus: 

#define AUSDRUCK1 AUSDRUCK2 

Die Zeile schließt also nicht wie bei 
üblichen C-Anweisungen ein Strich- 
punkt ab. Den AUSDRUCKI und den 
AUSDRUCK2 muß mindestens ein 
Leerzeichen oder ein TAB-Code von- 
einander trennen. Im allgemeinen ist es 
anzuraten, den zweiten Ausdruck bei 
# define in Klammern zu setzen, wenn 
dieser eine arithmetische Formel dar- 
stellt. Stellen Sie sich die Probleme bei 
dieser Definition vor: 

# define ZWOELF 3%4 
i=48/ZWOELF; 

Sie erwarten hier als Ergebnis sicher 
eine Vier. Doch weit gefehlt! Der Com- 
piler macht daraus »i=48/3*4«. Und 
das ist 64, nicht 4. 

Von Klammern umgeben, wird der 
Ausdruck richtig bearbeitet: 

#define ZWOELF (3%4) 

Das wird zu: 
1=48/(3%*4) 

Hieraus berechnet der Computer: 
1=48/12=4 

Hier das gewünschte Ergebnis. Sie 
können sich bei #define auch auf 
bereits bestehende Ausdrücke bezie- 
hen. Das folgende Programm definiert 
die Variable b gleichzeitig als »a« und 
»Db«. Sie können alle drei scheinbaren 
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Variablennamen benutzen. 
bewirken auch alle dasselbe: 
#define a b 

#define ca 
main() 

{ 

Int 5 

a=33; 

b=b+1; 

Drintf( 24 2,©); 


Der Compiler empfängt vom Präpro- 
zessor den Text in folgender Form: 
main() 
| 

int.b; 
b=33; 
b=b+1; 
printf( %4,b); 


Bei vielen Compilern geht #define 
aber über einen reinen Textaustausch 
hinaus. Sie erlauben die Angabe von 
Argumenten, die mitübersetzt werden: 
# define QUADRAT(x) (x*x) 

printf(”%d; %d;%d”,QUADRAT(3), 

QUADRAT(3.14) ‚QUADRAT(0)); 

In die vom Compiler erwartete Form 
überträgt das der Präprozessor: 
printf(”%d %d %d”,3%3,3.14%3.14, 

0%0); 

Wenn der Präprozessor jetzt noch 
den Programmcode optimieren kann, 
ersetzt er die Berechnungen durch 
Konstanten: 
printf(”%d %d %4”,9,9.8596,0); 


Zwischen den Makronamen und das 
Argument dürfen Sie nie einen Leer- 
raum oder ein TAB-Zeichen einfügen, 
denn in diesem Fall erkennt der Präpro- 
zessor das Argument als zweiten Aus- 
druck und bringt das ganze Programm 
durcheinander. Statt »#define QUA- 
DRAT (x) (x*x)« müssen Sie also 
»# define QUADRAT(x) (x*x)« schrei- 
ben. 


»Wann Makros, wann Funktionen?« 
wird Ihre Frage lauten. Allgemein läßt 
sich sagen, daß Makros zu längeren, 
aber schnelleren Programmen führen. 
Schließlich werden sie an jeder Stelle 
im Programmtext eingesetzt. Funktio- 
nen sind zwar langsamer bei der Pro- 
grammbearbeitung, sparen aber im all- 
gemeinen Speicherplatz. 

Der Präprozessor ist ein beliebter 
Ansatzpunkt für den Compiler- 
Hersteller, zusätzliche Routinen in den 
Übersetzer einzufügen, ohne gleichzei- 
tig die Kompatibilität mit anderen Com- 
pilern zu verlieren. Beispiele für zusätz- 
liche #-Kommandos sind etwa » #list- 
« beziehungsweise » #list+« zum Ein- 
und Abschalten der Programmauf- 
listung während des Compilierens oder 
»#line« zum Hinzufügen von Zeilen- 
nummern in die Listdatei. 

(Martin Kotulla/hg) 
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Die Dimensionen von € 


Kaum ein Programm, das Daten 
jeglicher Art verwaltet, kommt 
ohne Datenfelder aus. Sie sind 
damit unverzichtbarer Teil jeder 
Programmiersprache - so auch 
vonC. 


c 


kennt wie jede andere Program- 
miersprache Arrays, auf Deutsch 
Datenfelder. Sie werden ähnlich 
wie unter Basic angelegt. Diese soge- 
nannte Dimensionierung gleicht der 
normalen Variablendefinition, mit dem 
Unterschied, daß die Dimension 
(Anzahl der Felder) in eckigen Klam- 
mern stehen muß. Ferner sind alle Fel- 
der explizit anzulegen. 

int a[23]; 

char buchstabenfeld[255]; 

float kommazahlen[12]; 

Das erste Element trägt immer den 
Namen O0, das letzte einen Index (Sub- 
skript), der um eins niedriger ist als 
die angegebene Dimension. Ein Feld 
x[4] besitzt somit die Elemente x[O], 
x[1], x[2] und x[3}. Mit den Einzelvaria- 
blen eines Datenfeldes kann man 
genauso rechnen wie mit normalen 
Variablen. Wertzuweisungen wie 
»al3]=233« sind ebenso erlaubt wie 
Formelausdrücke der Art »x[b]=x[b-1] 
*"x[b+2]/3«. Felder des Typs char bie- 
ten die Simulation endlich auch Strings. 
Als Beispiel dafür steht das folgende 
Programm, das die Eingabe eines Sat- 
zes von der Tastatur erwartet und die- 
sen dann in umgedrehter Reihenfolge 
wieder ausgibt. Es verwandelt bei- 
spielsweise den Satz »Lernen Sie doch 
C!« in die Wendung »!C hcod eiS nen- 
relLe. Das Programm funktioniert aber 
bei Ihnen nur, wenn Ihr System mit einer 
gepufferten Ein- und Ausgabe arbeitet. 
Was das ist, haben wir ja schon weiter 
vorne dargestellt. 

Das Programm (Listing 1) bestimmt 
mit # define eine Konstante LINEFEED. 
Diese repräsentiert den Wert 10. Da 
nicht jeder Computer auch den ASCIl- 
Code 10 als das Zeichen versteht, das 
die Eingabe abschließt, braucht ein Pro- 
grammierer nur diese Zeile anzupas- 
sen, um die Routine auf anderen Gerä- 
ten zum Laufen zu bringen. 

schar zeichen[255]« erklärt das Feld- 
zeichen zu einem Array mit 255 Buch- 
staben. »int i« definiert die Variable i, die 
als Schleifenzähler benutzt wird. Die 
Variable, die dem Compiler mit char c 
bekanntgemacht wird, nimmt jeweils 
ein Zeichen von der Tastatur entgegen, 
bevor es in dem Feld gespeichert wird. 

»c=i=0« setzt die Variablen c undiin 
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# define LINEFEED 10 


main() 
[ 
char zeichen[255]; 
int © 
char c; 
c=i1=0; 


/* 
/* 
/* 
/* 


while (cl=LINEFEED) 
[| c=getchar(); 
zeichen[i]=c; 
j=zi+1; 


/* 
/* 
/* 
/* 


11-1; 
while (i>=0) 


/* 


putchar (zeichen[i]); 
i=:i-1; 


/* 


Listing 1. Aus »Regen« wird »negeR« 


einem Arbeitsgang auf den Wert Null. 
C-Variablen sind nämlich nicht wie in 
Basic unbedingt mit Null vorbesetzt; sie 
enthalten den Wert, der zufällig an ihrer 
Speicherstelle steht. 

Die erste while-Schleife liest solange 
Zeichen von der Tastatur ein, bis sie 
einen Zeilenvorschub-Code entdeckt. 
In der Schleife erfolgt die Zeichenein- 
gabe mit »c=getchar()«; »zeichen|i] 
=c« überträgt den ASCIl-Code der 
gedrückten Taste in das Datenfeld. 
»ji=i+ 1« sorgt dafür, daß der Indexzäh- 
ler auf das Datenfeld erhöht wird. 

Nach der Schleife muß das Programm 
mit »i=i-1e den Zeigerwert korrigieren, 
da dieser immer am Schleifenende 
inkrementiert wird, was jetzt wieder 
rückgängig gemacht werden muß. 

Die zweite while-Schleife gibt die ein- 
zelnen Zeichen des Arrays mit putchar 
in umgekehrter Reihenfolge aus, bis i 
den Wert O annimmt. In diesem Augen- 
blick ist das Programm beendet. 

C verzichtet bei den Arrays auf eine 
Überprüfung des Wertebereichs der 
Indexzähler. Sie können also ohne Feh- 
lermeldung von einem Feld mit 10 Ele- 
menten das zwanzigste Element ausle- 
sen und auch einschreiben: 
main() 


int a[10]; 
printf(”"2%d”,a[20]); 


Das C-Programm gibt dann einfach 
den Wert aus, der an der Adresse steht, 





Systembedingter LF-Code %/ 


Char-Array mit 255 Elementen %/ 
Variable für Zählschleifen %/ 
Speicher für gelesene Zeichen */ 
ce und i initialisieren */ 


Lesen, bis c=Line-Feed %*/ 

Ein Zeichen lesen */ 

In Zeichenarray übertragen *%/ 
Indexzähler erhöhen #/ 


Zähler korrigieren */ 


/* Ausgabeschleife */ 


/* Zeichen aus dem Feld ausgeben %/ 


Zähler vermindern */ 





die es intern aus der Indexnummer 
errechnete Das wirft natürlich die 
Frage auf, wie C intern die Arrays 
abspeichert. Doch dazu erfahren Sie 
erst später mehr, wenn wir ausführlich 
auf den Umgang mit Zeigern (»pointer«) 
eingehen. 

Denn es gibt noch einiges mehr zu 
sagen über die Datenfelder selbst. So 
sind Sie zum Beispiel nicht auf eindi- 
mensionale Arrays beschränkt. Sie kön- 
nen auch mit zwei- oder dreidimensio- 
nalen Feldern arbeiten. Die maximale 
Dimension wurde von Kernighan und 
Ritchie nicht exakt vorgeschrieben. Die 
meisten Compiler erklären sich auch 
mit fünf Dimensionen noch einverstan- 
den. 

Die zusätzlichen Dimensionen wer- 
den durch Anhängen weiterer Indizes in 
eckigen Klammern kenntlich gemacht: 


main() 


int a[2][3]; 

Int>1,.; 

printf(”1 j a\n\n”); 

for (1=20; i<=1; i=1+1) 

| 
for (J=0; j<=2; j=j+1) 

| 
ali][J]J=i+); 
printf(”%d %d %d\n”, 
) 








Das Programm schreibt in ein (2,3)- 
dimensionales Integer-Datenfeld mit 
Hilfe zweier ineinander geschachtelter 
Laufschleifen jeweils die Summe der 
Werte von iundj. Anschließend gibt es 
diese deutlich sichtbar auf dem Bild- 
schirm aus. 

Genauso können Sie das mit mehr als 
zwei Dimensionen machen: 
char a[l4][5][1]; 
float f1t[10][20][30][40]); 

In C dürfen Sie die Feldgröße, die in 
der Variablendefinition angegeben ist, 
nicht mit einer Variablen bezeichnen. 
Dort muß immer eine Konstante stehen, 
denn C erlaubt keine dynamische Ver- 
waltung von Datenfeldern. Das Pro- 
gramm 
main() 

| 

Int-a>5; 
Int b[a]; 


funktioniert also unter C nicht. Es führt 
immer zu einer Fehlermeldung und zum 
Abbruch der Compilierung. 

Wir lernten vorher einen Weg ken- 
nen, Variablen bei der Definition mit 
einem Anfangswert zu initialisieren. Das 
istauch bei den Datenfeldern möglich - 
mit der Einschränkung, daß auto-Felder 
da nicht mitmachen. Gestattet ist das 
logischerweise nur bei den statics. 
Automatic-Variablen werden ja bei 
jedem Funktionsaufruf neu angelegt. 
Da sie nach Bearbeitung der Funktion 
jedesmal gelöscht werden, woher soll 
dann der Computer beim erneuten Auf- 
ruf die alten Werte nehmen? Die Lösung 
ist relativ einfach. 

Eine Vorbesetzung von eindimensio- 
nalen Arrays mit Werten programmieren 
Sie so: 
main() 


static int feld[8]= 
[2,4,8,16,32,64,128,256] ; 
int .> 

for (1=0; 1<8; i=1+1) 


main() 

[ 
int feld[20]; 
int maxindex; 
int; 
maxindex=20; 


printf(”%d Zd\n” ‚1,feld[i]); 


Das Programm setzt in die Elemente 
des Arrayfeldes der Reihe nach die 
Zahlen 2, 4, 8, 16, 32, 64, 128 und 
256 ein. Die nachfolgende Auslese- 
Schleife beweist, daß das funktioniert. 
Sie gibt den Schleifenzähler und das 
Feldelement mit dem betreffenden 
Index aus. 

Wenn Sie keine Lust haben, nachzu- 
zählen wieviele Werte Sie angegeben 
haben, um daraus den Wert in den ecki- 
gen Klammern zu erhalten, können Sie 
diese stumpfsinnige Arbeit auch dem 
Compiler überlassen. Er macht das 
gerne für Sie: 


main() 
| 
static int feld[]= 
[2,4,8,16,32,64,128,256] ; 
int. L; 
for.11-0; 4-23: 32141) 
printf(”%d Zd\n”,i,feld[1]); 


Die Angabe der Standardwerte ist 
auch bei mehrdimensionalen Feldern 
erlaubt. Allerdings gestaltet sich die 
Schreibweise etwas komplizierter: 
static int feld[3][4]=[ [1,2,3,4} , 

We 5,3211; 


In einem komplexen Programm 
schaut das so aus: 
main() 
static int x[3][4]=[[1,2,3,4] , 
[4,3,2, 1; 
15,4,3,2) 


int 1,J; /* Schleifenzähler */ 
foralle0; 1< 3, 1:29 
[ for (j=0; J<4; J=Jj+1) 
printf(”%d %d %d\n”, 
15x [211315 
putchar('\n'); 


/* Normale Definition des Arrays #%/ 

/* Variable für den maximalen Index */ 
/* Als Schleifenzähler %/ 

/* Höchste Indexnummer angeben %/ 


for (1=0;. 1<20: 1=1+41), feladf1]=255>1; 
ausdrucken(feld,maxindex); 


1 
) 


ausdrucken(array,index) 
int array[]; 
Int index; 
Intel; 


/* Angabe ohne Klammern! %/ 
/%* "feld” ohne Klammern! #*/ 
/* Formaler Parameter, leere Klammernt#/ 
/* Formaler Parameter für Feldgröße */ 


/* Lokaler Schleiftenzähler %/ 


for (1=20; i<index; i=1+1) printf(”%2d\n”,array[i]); 








Es handelt sich wieder um zwei inein- 
ander verschachtelte Schleifen, die alle 
Feldelemente zusammen mit den Wer- 
ten von iundj ausdrucken. Nach jeweils 


vier Zeilen, also wenn die innere 
Schleife einmal abgearbeitet ist, gibt 
putchar (\) einen Wagenrücklauf und 
einen Zeilenvorschub aus, um das 
Ergebnis übersichtlicher zu gestalten. 

Jetzt benötigen wir nur die Informa- 
tion, wie sich Datenfelder als Argu- 
mente an Funktionen übergeben las- 
sen. 

Da wir vorher feststellten, daß die 
Größe von Arrays konstant zu bleiben 
hat, müssen wir das bei der Übergabe 
an Funktionen wieder einschränken. 
Sollte man für jede Feldgröße etwa eine 
eigene Funktion schreiben? Natürlich 
nicht. Sie übergeben der Funktion den 
Namen des Feldes ohne nachfolgende 
eckige Klammern, und in den meisten 
Fällen sinnvollerweise eine Information 
über die Größe des Arrays. Im Funk- 
tionskopf ist der Feldname wieder ohne 
Klammern angegeben, bei der Defini- 
tion der formalen Parameter mit leeren 
eckigen Klammern. Was sich jetzt 
furchtbar umständlich anhört, sieht in 
einem C-Programm sehr übersichtlich 
aus (siehe Listing 2). 


Datenfelder groß 
und klein 


Das Integerarray feld[20] enthält 20 
Elemente, die Variable maxindex wird 
mit dieser Zahl geladen. Die for-Schleife 
versieht alle Elemente mit Werten, die 
von der Funktion »ausdrucken(feld)« 
auf den Bildschirm gebracht werden. 

Auf diese Art lassen sich Datenfelder 
unabhängig von ihrer Größe an Funktio- 
nen übergeben. Doch eines müssen 
Sie unbedingt beachten. Während bei 
normalen Variablen deren Wert übermit- 
telt wird (»call by value«) und anhand 
dieses Wertes der Computer eine neue 
Variable anlegt, macht der Computer 
bei Funktionsaufrufen von Datenfel- 
dern keine Kopie, sondern läßt die 
Funktion mit dem originalen Datenfeld 
arbeiten. Eine Manipulation von einem 
Wert der Feldelemente innerhalb der 
Funktion wirkt sich demnach auch auf 
das Datenfeld im aufrufenden Pro- 
gramm aus. Dies wird durch das Pro- 
gramm in Listing 3 belegt. 

Obwohl also das Datenfeld in main() 
und in subfunc() unterschiedliche 
Namen hat (»feld« beziehungsweise 
»array«), ist es doch ein- und dasselbe 
Array. In der Hauptfunktion wird das 
zweite Element mit der Zahl 5 initiali- 
siert, in subfunc() verändert der Com- 
puter den Wert auf 20. Nach der Rück- 
kehr nach main() steht jetzt auch dort 


der Wert 20. 
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Listing 2. Datenfelder verschiedener Größe 

















Wenn Sie sich schon einmal mit 
Maschinensprache auseinanderge- 
setzt haben oder gar ein »Assembler- 
Profi« sind, wissen Sie sicher, was Zei- 
ger (auf Englisch »pointers«) sind. Für 
Sie ist das folgende dann als Wiederho- 
lung gedacht. Die übrigen Leser erfah- 
ren einige interessante Neuheiten. 

Stellen Sie sich eine ganz normale 
Integervariable vor. Mit printf können 
Sie ihren Wert ausgeben, mit Hilfe der 
verschiedenen Operatoren den Varia- 
blenwert verändern. Wenn Sie sich jetzt 
in die Lage des Computers versetzen, 
machen Sie sich klar, daß er sich ja 
irgendwo die Variableninhalte merken 
muß. Um sie auch wiederzufinden, legt 
er sie an einer Speicheradresse ab und 
verwaltet sie anhand dieser Adresse. 

Ein Zeiger ist nun nichts anderes als 
eine Variable, die auf die Speicher- 
adresse einer anderen Variablen hin- 
weist. Hat Ihnen nun ein Zeiger die 
Adresse offenbart, können Sie den 
Variableninhalt indirekt beliebig manipu- 
lieren. 

Sogar in verschiedenen Basic-Dia- 
lekten gibt es Funktionen, die die 
Adresse einer Variablen ausgeben. In 
MBasic und dem Basic-Interpreter des 
Atari ST ist das VARPTR(x), in Atari- 
6502-Basic ADDR(x) und im 
Schneider-Basic der Klammeraffe: 
PRINT $@a$. 

Die Sprache © zeigt hier ihre Maschi- 
nennähe, denn das Zeigerkonzept wird 
vorzüglich unterstützt. Ganz ungefähr- 
lich ist das Arbeiten mit Zeigern aber 
nicht. Schnell gibt eine solche Variable 
eine falsche Adresse an, und das 
System verabschiedet sich mit allen 
intern gespeicherten Daten und Pro- 
grammen auf Nimmerwiedersehen - 
beziehungsweise bis Sie die Reset- 
Taste drücken. Seien Sie also vorsichtig 
mit den Zeigern. Wenn Sie aber behut- 
sam damit umgehen, vereinfachen sie 
die Programmierung oft erheblich. 

Eine Sicherung bieten moderne C- 
Compiler gegen den allzu hemmungslo- 
sen Gebrauch von Zeigern. Die Varia- 
blen, die als Zeiger fungieren sollen, 
können den normalen Integervariablen 
nicht beliebig zugewiesen werden und 
bedürfen einer besonderen Art der 
Definition: 
int ?*integerzeiger; 
char ?%zeichenzelger; 
float *fliesskommazeiger; 

Die Initialisierung ist also nur bis auf 
den vorangestellten Stern mit der nor- 
malen Variablendefinition identisch. 

Der Stern spielt bei den Zeigeropera- 
tionen eine besondere Rolle, ebenso 
das kaufmännische Und-Zeichen »&«. 
Der Zeigertyp folgt dem Datentyp der 
Variablen, auf die er zeigt. Ein Zeiger auf 
einen Buchstaben hat also den Typ 
»char«, ein Zeiger auf eine Fließkomma- 


Int array[3]; 
array[2]=5; 











/* In der Hauptfunktion mit 5 laden */ 


printf(”In main() hat array den Wert %d\n”,array[2]); 


subfunc(array); 


printf(”Jetzt auch in main(): array-%d”,array[2]); 


subfunc(feld) 
int feld[]; 


| 
feld[2]=20; 


Listing 3. Doppelte Datenmanipulation 


variable den Typ »float« und so weiter. 
Das &-Symbol liefert die Adresse 
einer Variablen in einer Zeigervariablen 
ab. Das funktioniert so: 
main() 
| 
char zeichenvarlable; 

/* normale Variable */ 
char *zeichenzeiger; 

/* Pointervariable */ 
zeichenvarlable='#'; 

/* Variable mit # laden */ 
zeichenzeiger= 
&zeichenvariable; 

/* Pointer auf Variable %/ 
printf( "%u”,zeichenzeiger); 

/* Pointer ausdrucken *%/ 


»zeichenvariable« wird als eine nor- 
male char-Variable definiert, »zeichen- 
zeiger« als Zeiger auf eine char- 
Variable. Als nächstes weist das Pro- 
gramm der Variablen ein Symbol, das 
Doppelkreuz, zu. Die darauffolgende 
Zeile lädt einen Zeiger auf die Speicher- 
adresse der Variablen in die Zeigerva- 
riable. Die printf-Zeile sorgt dafür, daß 
Sie die Adresse auch wirklich erfahren. 

Die Formatoption »%u« in der printf- 
Funktion gibt einen arithmetischen Aus- 
druck in dezimaler Schreibung ohne 
Vorzeichen an (»unsignede). Dies ist 
nötig, damanche Computer Adressen, 
die größer als +32767 sind, als nega- 
tive Werte ansehen. 

Doch was profitieren wir davon, daß 
wir jetzt die Adresse der Variablen ken- 
nen? Zugegeben: Noch nicht allzuviel, 
aber es kommt schließlich noch mehr. 
Der *Operator ist die Umkehrung des 
&-Operators. Er liefert den Wert in der 
Adresse, auf die die Pointervariable 
zeigt. 

Wenn also variablei '#' ist und 
zeigergleich&variablei, dann erhalten 
Sie mit variable2gleich* zeiger das Zei- 
chen »#«. Eine recht umständliche 
Wertzuweisung, die die Zeigermethode 
einbezieht, ließe sich dem C-Compiler 
so vorgeben: 


/* In subfunc() mit 20 laden */ 
printf(”In subfunc() hat feld den Wert %d\n”,feld[2]); 





main() 
| 
char zeichenvariable; 
/* normale Varlable */ 
char *%zeichenzeiger; 
/* Polntervariable #/ 
char zwelte_variable; 
/* zweite char-Varliable *#/ 
zeichenvariable='#'; 

/* Variable mit # laden %/ 
zelchenzeiger=&zeichenvarlable; 
/* Pointer auf Variable %*/ 
zweite_variable=*zeichenzelger; 
/* Adresseninhalt holen #/ 

putchar(zweite_variable); 
/* neue Varlable ausdrucken %/ 


Die erste Zuweisung versieht »zei- 
chenvariable« mit dem Zeichen » # «, die 
folgende Zeile legt einen Zeiger auf die 
Variable nach »zeichenzeiger« - wie 
gehabt. »zweite__variable= * zeichen- 
zeiger«e überträgt den Inhalt der 
Adresse, auf die der Zeiger zeigt, in die 
Variable. Das ist nichts anderes als das 
bekannte Doppelkreuz. 

Brauchbar anwenden lassen sich die 
Zeiger zum Beispiel bei der Übernahme 
von Argumenten aus Funktionen. Sie 
erinnern sich sicherlich: Es wird nur der 
Wert von Variablen übergeben, anhand 
dem neue lokale Variablen angelegt 
werden. Eine Veränderung des Werts 
der lokalen Variablen hat keinerlei Aus- 
wirkungen auf die Variablen im aufru- 
fenden Programm. Mit der Zeiger- 
Methode können Sie jetzt aber direkt 
die Variablen im Funktionsaufruf mani- 
pulieren. Sehen Sie das an einem Pro- 
gramm. Es nimmt ein Zeichen von der 
Tastatur an und wandelt es, wenn ein 
Großbuchstabe kommt, in einen klei- 
nen um. Das soll mit Hilfe eines Funk- 
tionsaufrufes namens »lower« gesche- 
hen (siehe Listing 4). 

Die Variable »zeichen« liest hier einen 
Buchstaben oder ein Symbol von der 
Tastatur ein. »zeiger« findet Verwen- 
dung als Speicher für die Variablen- 
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main() 

| 
char zeichen; 
char *zeiger; 
zeichen=getchar(); 
zelger=&zeichen; 
lower(zeiger); 
printf( ”%c\n”,zeichen); 

| 


lower(zeiger) 
char *zeiger; 


char zeichen; 
zelchen=*zeiger; 

if (zeichen<'A') return; 
if (zeichen>'Z'!) return; 
*tzeiger=-zeichen+t32; 


Listing 4. Aus groß mach klein 


adresse. Anhand dieses Zeigers über- 
gibt das Programm die Variable an die 
Funktion »lower«e. Nach Beendigung 
der Funktion enthält »zeichen« den kon- 
vertierten Code. printf gibt den verän- 
derten Variablenwert aus. 

Die »lower«-Funktion arbeitet mit 
einem Zeiger als formalem Parameter. 
Sie definiert sich eine lokale Variable, 
die das Zeichen enthält. Der Computer 
stellt mit den beiden if-Entscheidungen 
fest, ob das Zeichen überhaupt ein 
Großbuchstabe ist. Wenn ja, addiert der 
Computer den Wert 32 zum ASCIl- 
Code (d=97, A=65, 65+32=97). 
Mit dem Zeigerbefehl »*zeiger=zei- 
chen+32« bewirkt die Funktion auch 
die Anderung im Hauptprogramm. 

Die Zeigervariablen eignen sich 
natürlich auch zum Rechnen. Beson- 
ders interessant sind die Inkrement- 
und Dekrementoperatoren. Sie zählen 
nicht mehr um 1 auf- oder abwärts, son- 
dern um eine Einheit des Datentyps auf- 
oder abwärts. Zeiger auf char's verän- 
dern den Wert um ein Byte, Integer- 
werte um zwei Byte, long int's bei 
32-Bit-Arithmetik vier Byte und Fließ- 
kommazahlen abhängig von der Genau- 
igkeit zum Beispiel um sechs Byte. 

Diese »Serviceleistung« von C wird 
am folgenden Programm deutlich: 


main() 
| 

int integer,*intzeiger; 

char character,*charzeiger; 

integer=16383; 

character='%'; 

intzeiger=&integer; 

charzeiger=&character; 

printf(”char: Zu Zu\n”, 
charzeiger,++charzeiger); 

printf( "int: %u Zu\n”, 
intzeiger,++intzeiger); 


Zeichenvariable #%/ 
Zeigervarlable %/ 
Tastaturzeichen einlesen %/ 
Zeiger auf Buchstaben holen #*/ 
Funktionsaufruf über Zeiger #/ 
Geändertes Zeichen ausgeben %/ 


Funktion ”lower” */ 
Pointer als formaler Parameter %*/ 


Lokale Variable %/ 
Tatsächliches Zeichen holen #/ 
Wenn kleiner 'A' Rücksprung %/ 
Wenn größer '2' Rücksprung #*/ 
ASCII-Offset addieren */ 





Wie das Programm zeigt, liegen die 
zwei Werte von »char« ein Byte, die von 
»int« jedoch zwei Byte auseinander. 

Auch die Addition und Subtraktion 
von Integer-Werten ist bei Zeigern mög- 
lich. Die Werte werden hier ebenfalls 
auf die Datenbreite umgerechnet: 
main() 


int 1,*izeiger; 

i=0; 

izeiger=&1; 

printf(”1. %d\n”,izeiger); 
izeiger-izeiger+3; 
printf(”2. %d\n”,izeiger); 


Die Differenz ist hier nicht drei Byte, 
sondern sechs. Dies kommt daher, daß 
Integers zwei Byte lang sind, und 2*3 
ergibt nun einmal 6. 

Zu den weiteren erlaubten Operatio- 
nen mit Zeigervariablen gehören der 
Vergleich zweier Zeiger und die Sub- 
traktion eines Zeigers von einem ande- 
ren. Dies ist aber nur möglich, wenn 
beide Zeiger demselben Datentyp 
angehören. Eine Subtraktion eines 
char- und eines float-Pointers funktio- 
niert also nicht. 

Wichtiger als bei einfachen Variablen 
sind die Zeiger bei Datenfeldern und 
Stringkonstanten. Arrays lassen sich so 
nicht nur durch die Angabe der Indizes 
bearbeiten, sondern auch durch einen 
direkten Zugriff: 
main() 

| 

static char string[]= "Dies 
ist ein Zeichenarray”; 
char *zelger; 

zelger-&string[0]; 

while (*zeiger != '\0') 
putchar(*zeiger+); 


Das Programm benutzt ein Zeichen- 
array mit dem Namen »string« und setzt 








einen Zeiger auf das erste Element. In 
einer while-Schleife gibt der Computer 
die Zeichen aus, bis er ein Byte mit dem 
Wert O entdeckt. Dies ist eine Beson- 
derheit von Zeichenketten unter ©. Sie 
werden der Reihe nach im Speicher als 
ASCII-Codes abgelegt. Das letzte Zei- 
chen ist immer ein Nullbyte »\0O«. Dies 
erleichtert die Bearbeitung von Strings 
über Zeiger erheblich mehr, als das 
Hantieren mit String-Deskriptoren in 
Basic. 

Auf eine Kurzschreibweise sei auch 
noch hingewiesen. Statt »&string[O]« 
dürfen Sie auch einfach »string« schrei- 
ben: 
main() 


static char string[]= 
"Dies ist ein 
Zeichenarray’”; 
char *zeiger; 

zeiger=string; 

while (*zeiger I= '\0') 
putchar(*zeiger+); 

Bevor Sie jetzt darüber räsonieren, 
wieso man die Schreibweise ändern 
darf, wollen wir Ihnen sagen, daß dahin- 
ter keine Logik steckt, sondern schlicht 
die Tippfaulheit der C-Entwickler. 

Mit Pointer-Variablen läßt sich auch 
ein Datentyp String simulieren, ohne 
daß direkt sichtbar wird, daß Sie hier in 
Wirklichkeit auf Datenfelder zurückgrei- 
fen: 
main() 

| 

char *string; 

string=”"Dies ist ein 
String in.C!"; 

printf(”%s”,string); 

Eine neue Option für printf wird auch 
gleich mit vorgestellt: »%s« druckt 
einen String aus, auf den ein Zeiger 
deutet. Die Ausgabe wird von der printf- 
Funktion beendet, sobald sie ein Null- 
byte, den Stringbegrenzer, findet. 

Wenn Sie ein komplexes Programm 
entwickeln, benutzen Sie darin wahr- 
Scheinlich nicht nur die grundlegenden 
Datentypen wie Integerzahlen und ein- 
zelne Buchstaben, sondern auch kom- 
binierte Datentypen. Ein Programm zur 
Verwaltung von Personendaten erwar- 
tet beispielsweise Datensätze mit fol- 
gendem Aufbau: 

1. Identllikatlana-Nummar der Parson 
2. Geschlecht 

3. Familienstand 

4 

5 


. Einkommen beziahungswelse Gehalt 
. Zahl der Kinder 


Bisher fast ausschließlich eine 
Domäne von Pascal (Stichwort RE- 
CORDs), macht C mit »structures«. Das 
Schlüsselwort »struct« leitet die Defini- 
tion eines kombinierten Datentyps ein. 
Unsere Personendatei ließe sich so 
darstellen: 
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int idnummer; 

/* Identifikations-Nummer */ 

char geschlecht; 

/* ”"w” beziehungsweise ”m” */ 

char famillenstand; 

/* "v”=verheiratet, ”1”=1ledig*/ 

int einkommen; 

/* Einkommen bzw. Gehalt */ 

int kinderzahl; 

/* Zahl der Sprößlinge #/ 

] person; 

Sie sehen, Sie können in einer Struk- 
tur gleichzeitig verschiedene Datenty- 
pen verwenden. Hier sind das bei- 
spielsweise »int« und »char«. 

Die Strukturdefinition setzt sich aus 
dem Schlüsselwort »struct«, der öffnen- 
den geschweiften Klammer »[«, der 
Liste der Strukturkomponenten (hier 
»char geschlecht; char familienstand; 
...«), einer schließenden geschweiften 
Klammer »}«, dem Namen der Struktur 
(hier »person«) und einem abschließen- 
den Strichpunkt zusammen. 

Im folgenden können Sie einzelne 
Teile der Struktur ganz normal wie Varia- 
ble verwenden. Die Strukturkomponen- 
ten werden durch den Namen »struktur- 
name.komponentenname« angespro- 
chen. Erika Mustermann hätte dann 
vielleicht folgende Daten für ihren 
neuen Personalausweis: 


person.Idnummer = 1884; 
person.geschlecht='w"; 
peraon.lamlllenstand='v'; 
peraon.ainkommen = 2800; 
person.kinderzahi=2; 


Mit den Strukturelementen lassen 
sich auch arithmetische und logische 
Operationen durchführen - etwa nach 
einer Gehaltserhöhung: 
person.einkommen=person..einkommen 

+200; 
printf( "Einkommen von Person %d 
‚person.idnummer); 
printf(”ist %d”,person. 
einkommen); 

C bietet noch eine Besonderheit: Sie 
können auf einfache Art eine »Struktur- 
maske« definieren und diese dann auf 
mehrere Strukturen anwenden - ver- 
gleichbar mit Formularvordrucken - die 
unverändert mehrmals benutzt werden. 
Dem C-Compiler machen Sie das so 
verständlich: 
struct personenmaske 
| 

int idnummer; 

/* Identifikations-Nummer */ 

char geschlecht; 

/* ”w” beziehungsweise ”m” */ 

char ffamillienstand; 

/* "v”=verheiratet, ”1”=1ledig*/ 

Int einkommen; 

/* Einkommen bzw. Gehalt */ 

Int kinderzahl; 

/* Zahl der Sprößlinge */ 

|; 
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Dies hat den Vorteil, daß Sie verschie- 
dene Strukturen mit dem gleichen Auf- 
bau auf einmal definieren können: 

struct politiker 


Int gehalt; 
int beruf; 


); 


struct politiker helmut_kohl; 
struct politiker Johannes_rau; 
In diesem speziellen Fall ist aber fol- 
gende Befehlsfolge vorzuziehen: 
main() 


| 


struct 
| 
Int gehalt; 
Int beruf; 
] helmut,johannes; 


helmut.gehalt=11200; 
helmut.beruf=1; 
jJohannes.gehalt=7450; 
Johannes.beruf=2; 
printf(”Verdient Helmut 
%d?\n”,helmut.gehalt); 
printf( ”Und Johannes etwa 

A %d?\n”,johannes.gehalt); 

Die angegebenen Gehälter 
natürlich frei erfunden. 

Strukturen können selbst wiederum 
Datenfelder und weitere Strukturen ent- 
halten. Doch die nötigen Programmier- 
kenntnisse gehen weit über das Ziel 
dieses Einführungskurses hinaus. 

Wir kommen langsam zum Schluß 
unserer Einführung. Sie haben inzwi- 
schen die Fähigkeit, recht anspruchs- 
volle Programme in C zu entwickeln. 
Doch die bloße Kenntnis der C-Befehle 
istnicht alles, was man braucht, umC zu 
beherrschen. Von eminenter Wichtig- 
keit ist auch das Wissen um die C- 
Bibliothek. Darin sind alle für die Arbeit 
mit der Sprache notwendigen Funktio- 
nen abgelegt. Obwohl die Bibliotheken 
der einzelnen Compilerhersteller natür- 
lich keinerlei Normung unterliegen, zei- 
gen sich doch überraschende Ahnlich- 
keiten. Der Großteil der Compiler 
schließt sich den Bibliotheken der Unix- 
Systemumgebung von Kernighan und 
Ritchie an. Im folgenden werden Sie 
eine Reihe wichtiger C-Funktionen ken- 
nenlernen, die für erfolgreiches Pro- 
grammieren einfach unerläßlich sind. 
Am Grad der Übereinstimmung mit Ihrer 
Compiler-Bibliothek erkennen Sie auch 
die Vollständigkeit Ihres Compilers. 

Zuerst zu einigen Funktionen, die 
arithmetische Aufgaben durchführen 
und für verschiedene Typenkonversio- 
nen zur Verfügung stehen: 

»x=abs(y)« liest in die Variable x den 
absoluten Betrag von y ein. Der Betrag 
einer Zahl ist ihr positiver Wert. Nega- 
tive Zahlen werden also mit -1 multipli- 


sind 








ziert. Positive Werte bleiben unverän- 
dert. abs ist die C-Entsprechung der 
ABS-Funktion von Basic und Pascal: 


printi( ” % d” ‚abe(-3)): 3 
print" %d” ‚abs(3)); 3 
print" %d° ‚abe(0)): 0 


»x=sign(y)« holt sich das Vorzeichen 
von y und schreibt es nach x. Zahlen 
kleiner als O liefern x=-1, die Null selbst 
liefert eine Null, positive Zahlen melden 
den Wert 1: 


printf(” %d” ‚sign(-3)); 1 
printt(* %d” ‚sign(0)): 0 
print" %d* ‚siga(3)); 1 


»x=atoi(string)«e verwandelt einen 
String in eine Integerzahl. »atoi« heißt 
ausgeschrieben »convert ASCII string 
to integer«. Der String kann entweder 
als char-Array definiert sein oder als 
Konstante im Funktionsaufruf angege- 
ben werden. Die Funktion arbeitet wie 
ASC bei den meisten Basic-Interpre- 
tern. Sie überliest alle voranstehenden 
Leerzeichen, TAB-Aufrufe und Newiline- 
Codes. Sobald atoi die erste Ziffer ent- 
deckt, beginnt die Umwandlung. Diese 
wird durchgeführt, bis ein Zeichen 
erreicht ist, das keine Ziffer mehr dar- 
stellt. Vor der Zahl dürfen auch die Vor- 
zeichen »+« und »-« stehen. Einige Bei- 
spiele für die Benutzung von atoi: 


printt(” %d ‚toll 233 °)); 233 
printt{” %d* ‚atol(IText °)); 9 
prIntt(" % d” ‚atol( ” Text )); 0 
prlatt(” %d” ‚atol(’-I314X °)); -314 


Eine ganze Reihe von Funktionen 
dient speziell der Manipulation von 
Strings, die aber alle eigentlich nur 
Arrays des char-Typs sind. »strcat 
(stringi,string2)e verknüpft zwei 
Strings, (»cat« steht dabei für »concate- 
nate«). Das Ergebnis der Verbindung 
wird im Bereich des ersten Strings 
abgelegt. Die Funktion prüft aber nicht, 
ob das Datenfeld wirklich groß genug ist 
für die neuen Daten. Im schlimmsten 
Fall überschreibt der erweiterte String 
andere Daten oder auch den Pro- 
grammcode. Als Demonstration von 
strcat finden Sie ein kleines C- 
Programm, das zwei Strings definiert 
und dann zusammen ausdruckt. Be- 
achten Sie dabei, das erste Feld durch 
die Angabe »34« groß genug zu ma- 
chen, um auch den zweiten String 
sicher unterzubringen: 
main() 

| 

static char string1[34]= 
"Dies ist eine ”; 
static char string2[]= 
” Stringverkettung.”; 
strcat(stringl,string2); 
printf(”%s”,stringl); 

strcepy (stringi,string2) hingegen 
kopiert den zweiten String an den 
Anfang des ersten (»strcpy« heißt 
»string copy«). Dadurch, daß das Null- 
byte, das alle Strings abschließt, auch 





























mit übertragen wird, erscheinen bei 
printf nicht die eventuell überzähligen 
Zeichen des ersetzten Strings. Im fol- 
genden Programm zeigt der Computer 
aus diesem Grund nur das Wort »C- 
String«: 


main() 
| 
static char stringl[]= 
"Dies ist der alte String”; 
static char string2[]= 
"C-String”; 
strepy(stringl,string2); 
printf("%s”,stringl); 

Auch hier müssen Sie der strcpy- 
Funktion genügend Platz zur Erweite- 
rung des Strings zugestehen. 

stremp(string1,string2) vergleicht 
zwei Strings und setzt abhängig vom 
Ergebnis die vorangestellte Variable 
(»strings compare«). stremp ähnelt der 
Basic-Konstruktion VERGLEICH= 
(A$=B$)« oder »IF A$=B$ THEN ....«. 
Die Funktion liefert einen negativen 
Wert, wenn der erste String kleiner ist 
als der zweite. Entsprechend ist der 
positive Wert definiert. Sind beide 
Strings identisch, ergibt die stremp- 
Funktion den Wert O: 


printf(* %d° sircemp( "BC ’,"A”)); 1 
printt( " %d’ stremp A’, BC °)); 1 
printi( * %d' ‚atrcmpk "gleich "gleich *));: 0 


strlen(string) ermittelt die Länge 
eines Strings und ist damit äquivalent 
zur LEN-Funktion in Basic. Leerstrings 
kennzeichnet der Wert O. 


printi(* %d° ‚atrien( "C-Sprache”)); 8 
print" %d° .sirlen(” °)); 0 


Drei Funktionen, die die Manipulation 
von Einzelbuchstaben gestatten, hei- 
Ben »tolower« (Umwandlung in einen 
Kleinbuchstaben), »toupper«e (Um- 
wandlung in einen Großbuchstaben) 
und »toascii« (Umwandlungin ein ASCIl- 
Zeichen durch Löschen des siebten 
Bits des Codes): 


print” %e ” tolower( "A °)); a 
print" %e° loupper("b’)); B 
printf " %c ° 1oascıil161)); | 


Verschiedene Funktionen testen 
Buchstaben und setzen daraufhin eine 
Variable auf 1 (TRUE) oder O (FALSE): 


ISALNUM: 


printf(” %d” Isalnum( ”F ”)); 1 
printi( %d° ‚Isalnum( ” 3 ”)); 1 
printt(” %d” ‚Iselnum( ” # °)); 0 


isalnum heißt »is it alpha-numeric?« 
und wird auf TRUE gesetzt, sofern das 
Symbol eine Ziffer oder ein Buchstabe 
ist. 
ISALPHA: 


print" %d° ‚Isalpha( "2 ”)); 1 
printi(* %d* Isalphal "3° )); 0 


isalpha (»is it an alphabetic letter?«) ist 
TRUE, wenn das Symbol einen Buch- 
staben darstellt. 





ISDIGIT: 
print" %d” ‚Iadigit("3 °)); 
print" %d° ledigin A ")); 


isdigit (»is it a digit?«) meldet TRUE, 
wenn das Symbol eine Zifter von O bis 
9 ist. 


ISASCII: 
printt(“ %d” ‚Isaacli(120)); 1 
printf(" % d’ ‚Isascli(264)); 


isascii (»is it an ASCII code?e) liefert 
den booleschen Wert TRUE, wenn der 
ASCII-Code des Zeichens kleiner als 
128 ist. Zwischen O und 127 ist der 
ASCII-Code nämlich standardisiert, 
Werte von 128 bis 255 definiert jeder 
Computerhersteller nach Belieben: 


ISGRAPH: 
printi(° %d ° ‚Isgraph(200)); 1 
print“ %d’ Jagraph(120)): 0 


isgraph (sis it a graphic character?«) 
setzt TRUE, wenn der ASCII-Code des 
Zeichens größer als 127 ist. Dortliegen 
bei den meisten Computern Grafiksym- 
bole. 


ISCNTRL: \. 
printf( " %d ° ‚iscntri(13)); 1 
printf( ” % d” ‚Iscntri(32)); 0 


iscntrl (»is it a control character?«) 
übergibt TRUE, wenn das Zeichen 
einen Control-Code repräsentiert und 
demnach im Bereich ASCII O bis ASCIl 


31 liegt. 

ISLOWER: 

print %d° ‚Islowerl'a')): 1 
printt(” %d “ ‚Islower('A')); 0 


islower (»is it a lower character?«) 
testet, ob das Zeichen ein Kleinbuch- 
stabe ist. Trifft dies zu, wird das Ergeb- 
nis auf TRUE gesetzt. 


ISUPPER: 
printi( " %d° Iaupper('Z')); 1 
printft" %d° Isuppert'z')); 0 


isupper (»is it an upper character?«) 
prüft, ob das Zeichen ein Großbuch- 
stabe ist. In diesem Fallist das Ergebnis 
TRUE. 


ISPRINT. 
printt(* %d° laprint('*')): 1 
print" %d° laprint(3)); 0 


isprint (»is it a printable character?«) 
meldet TRUE, wenn das Zeichen aus- 
zudrucken ist. Dazu muß sein ASCIl- 
Code zwischen 32 und 126 liegen (127 
ist der Delete-Code). 


ISPUNCT: 
print ° %d° ‚lapunck(‘')): 1 
printt(“ %d° ‚Ispunck('7')); 0 


ispunct (»is it a punctuation charac- 
ter?«) stellt fest, ob es sich um ein 
druckbares Zeichen handelt, das nicht 
gleichzeitig eine Ziffer oder ein Buch- 
stabe ist. Das wären zum Beispiel das 
Komma, das Ausrufezeichen, das Dol- 
larsymbol und der »Klammeraffe«. 


ISSPACE: 

print” %d* ‚Isspace('\t')); 1 
printt(* %d“ ‚Isapace('\n‘)); 1 
printi(* %d“ ‚Ieepace(32)); 1 
print" %d° °)); 0 














isspace (»is it a space Character?«) 
prüft nach, ob es sich bei dem char- 
Symbol um ein Leerzeichen, TAB-Code 
oder Newline (\) handelt. Diese Zei- 
chen ergeben TRUE, alle anderen 
FALSE. 

Damit wären die grundlegendsten C- 
Funktionen besprochen. Wenn Sie die 
eine oder andere nicht in Ihrer Biblio- 
thek finden können, ärgern Sie sich 
nicht allzu sehr darüber. Die meisten 
lassen sich nämlich sehr einfach simu- 
lieren. Zum Beispiel die abs-Funktion 
durch 
abs(n) 

Int n; 
| 
if (n<O) return(n); 
else return(n); 


Sicher entdecken Sie aber in der 
Library Ihres Compilers eine Vielzahl 
weiterer nützlicher Funktionen, für 
deren Erklärung hier einfach der Platz 
fehlt. So haben wir beispielsweise alle 
Funktionen zur Dateibehandlung aus- 
gespart. Allerdings differieren diese 
auch bei den verschiedenen Compu- 
tern. Denken Sie allein schon an die 
unterschiedlichen Vorschriften zur Bil- 
dung von Dateinamen. 

Wenn Ihr Interesse für C geweckt ist, 
und Sie auch die letzten Feinheiten der 
Sprache kennenlernen wollen, sollten 
Sie sich ein entsprechendes Fachbuch 
kaufen. Mit der wachsenden Begeiste- 
rung für C in Amerika und Europa 
schwillt auch die Bücherflut an. 

Auf ein Buch sei aber hier schon hin- 
gewiesen. »Programmieren in C« ent- 
hält Informationen direkt von den C- 
Schöpfern Kernighan und Ritchie, 
sozusagen direkt von der Quelle. Bei 
einem Disput, was in C erlaubt ist und 
was nicht, kann man dieses Standard- 
werk bedenkenlos als Referenz heran- 
ziehen. Für Anfänger (die Sie nach die- 
sem Kurs aber eigentlich nicht mehr 
sind), ist das Buch aber mit Sicherheit 
zu schwere Kost. Es ist eben von 
Systemprogrammierern für Systempro- 
grammierer geschrieben. Wenn Sie 
aber C beherrschen, werden Sie auf die 
glasklar dargestellten Informationen 
sicherlich dankbar zurückgreifen. Selt- 
samerweise fehlen im gesamten Buch 
die Bindestriche in zusammengesetz- 
ten Substantiven in den Texten - Satz- 
fehler oder eigenartiges Sprachver- 
ständnis der Übersetzer? Jedenfalls 
sind manche Sätze rechtschwer zu ver- 
stehen. Ansonsten ist die Übersetzung 
aber gut gelungen. 

(Martin Kotulla/hg) 


Into: Brian W Kernighan und Dennis M. Ritchie, »Programmieren in Ce, 
Hanser-Verlag München/Wien, 1983. ISBN 3-446-13878-1 Wer die 
amerikanische Originalausgabe vorzıeht: »The C Programming Lan- 
guage«, Prentice-Hall. 1977. 
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Gut sortiert 
ist halb gewonnen 


Will man verschiedene Datentypen sortieren, sind 
auch unterschiedliche Sortierroutinen nötig. 
Unser Sort-Programm in der Sprache C kann meh- 
rere Datentypen verkraften und somit eine Datei 
flexibler und universeller gestalten. 


as Sortieren von Daten ist eine Aufgabe, die in einer 
Vielzahl von Programmen vorkommt. Es gibt meh- 
rere Sortieralgoritnmen. Da aber meistens große 
Datenbestände sortiert werden müssen, ist es sehr wichtig, 
den für die jeweilige Aufgabe optimalen Sort zu verwenden. 
Leider herrscht bei vielen Programmierern der Drang, 
Bibliotheksfunktionen an die jeweilige Aufgabe angepaßt zu 
schreiben. Besser und im Endeffekt zeitsparender istes, uni- 








versell einsetzbare Funktionen zu programmieren. Hat man, 
wie in unserem Fall, eine universelle Sortierroutine geschrie- 
ben, so kann sie in jedes Programm problemlos eingebunden 
werden, ohne daß erneuter Programmieraufwand anfällt. 

Zu beachten ist besonders, daß die Sortierroutine nicht nur 
einen bestimmten Datentyp verwenden kann, sondern flexi- 
bel gehalten ist. 

Ein Beispiel hierzu: Eine Lieferantendatei soll nach der 
Postleitzahl sortiert werden. Das ist sehr schnell program- 
miert. Möchte man aber die Liste eine Woche später nach 
den Namen ordnen, fällt für die Sortierroutine neue Program- 
mierzeit an. Dies kann dadurch vermieden werden, daß die 
Routine für beliebige Datentypen einsetzbar ist. Sie kann 
dann in die eigene Bibliothek aufgenommen und in neue Pro- 
gramme eingesetzt werden. (Heiner Etzler/hi) 


/#* Diese Sortierfunktionen enthalten nur den eigentlichen 


Sortieralgorithmus. 


Fuer eine komplette Sortierfunktion muss der Programmierer 


zwei Funktionen selbst schreiben: 


comp () 


vollzieht den Vergleich der Datenelemente, 


comp () und swap(). 


swap() 


ist fuer das Vertauschen zustaendig. 
Beide Funktionen muessen den behandelten Datentyp unbedingt 
beruecksichtigen. 
Das Sortieren von Daten ist eine Aufgabe, 
Programmen vorkommt. 
eigenen Eedarf zu 


die in den meisten 
Es lohnt sich Sortiermodule fuer den 
schreiben. #/ 


(RER NENNE EEE ENTE NEE ER RT RN ER HH N KERN RR / 
/’% #7 Funktion Bubble-Sort FRRARRRERKER %/ 
V[ERRRHUTKKRTHNIEN HN NN NN HEN NEN HN EN IN RR TEN ER FR NER ER ER REIHE / 


/#* Die Verwendung von Zeigern erlaubt, einen datensatzunabhaengigen 
Sortieralgorithmus f}r n Datensaetze zu programmieren. *#%/ 


#define void int 


void bubsort (n,comp,swap) 
/* An diesem Haupteingangspunkt der Funktion EBubble-Sort werden 
drei Farameter uebergeben. #%/ 


unsigned nz 
/* Der erste Farameter 
Datensaetze %/ 


(unsigned) ist die Anzahl 


zu sortierender 


int (*comp) O5 

yr#* Der zweite Farameter ist ein Zeiger auf die Funktion, die alle 
Schluessel zweier Datensaetze vergleicht und einen Ganzzahlwert 
uebergibt. */ 
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int (*swap) (3 
/* Der dritte Farameter zeigt auf die Funktion, die zwei Datensaetze 
vertauscht. 


za, 


1, 


/%* 


/%* 





unsigned t; 
/* t bestimmt, ob eine Vertauschung erfolgte. #/ 


unsigned j;3 


/* 3 wird in Index-Records verwendet, #/ 


do { 
/* In dieser Funktion wird festgestellt, ob mindestens zwei 
Records existieren. Es wird mindestens ein Vergleich gemacht. *%/ 


t = 0: 
/* Das swap-tlag(Vertauschung) erhaelt den 
Anfangswert FAI.SE (0). %*/ 


for (j = 0: 3 © n - 1: ++)) 
/%* Datensatznummern von U bis n-i #/ 


if((*comp) (j, +1) >0O) X 
/* compare (Vergleichsfunktion) wird mit den 
Zaehlern der beiden Datensaetze als Farameter 


x 
Listing. Verschiedene aufgerufen / 


Sortieralgorithmen in C oo 
realisiert (*#swap) (jJ,J + 2; 


/* Hier wird das Vertauschen ausgefuehrt. %*/ 


t = 15 
/* Nach einer Vertauschung wird das 
swap-flag auf TRUE (1) gesetzt. #*/ 
’ while(t); 
/%* Der Sortiervorgang wird solange ausgefuehrt, bis keine 
Vertauschung mehr notwendig ist. */ 


RAR Ende Funktion Bubble-Sort xxx ı% %/ 


Der Bubble-Sort ist einer der einfachsten Sortiermethoden. Er ist 
Jedoch nicht sehr effizient, da bei jedem Schleifendurchlauf jeder 
Datensatz der zu sortierenden Records mit allen anderen verglichen 
werden muss. Bei n zu sortierenden Datensaetzen muessen n hoch 2 
Vergleichsoperationen durchgefuehrt werden - bei gro’”em 
Datenbestand eine sehr zeitaufwendige Methode. 
Eine Alternative zum Eubble-Sort ist der sogenannte 

Shell -Sort. 
Hier wird eine aus m Elementen bestehende Liste in kleinere Teil -- 
listen unterteilt, die dann miteinander verglichen werden. #/ 


Fortsetzung Selte 100 
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Ay 2a, EUR 


Sie jetzt Ihre COMPUTER „Sammlung 


Schaffen Sie sich ein 
interessantes Nachschlagewerk und 
gleichzeitig ein wertvolles Archiv! 


Kennen Sie alle »Happy Computer«-Ausgaben von 1985? Suchen Sie einen ganz bestimmten 
Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach 
einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen 
a eine Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 06 und 08 bis 
Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in 
Ihrer Sammlung noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer 
dieser Ausgabe und das Erscheinungsjahr (z.B. 2/85) auf dem Bestellabschnitt der hier 
eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs- 
eingang umgehend zur Äuslieferung gebracht. 














Mtichwen Tui [77 Iticherert Tai keie Auagaie 
Aktnellan Geirware Tom» 
Compuier Amiga — en Traumcamputa: wird Wirklichkeit 910 Tertrerarb Ein Tasrprogmmm, das sich lohnı (Home word/C 64) nıa 
Atari: Lage gafastigı 14/11 Jane Kontra Applawariıa 143/08 
Ders »Pius/4« isı andlıch da 13/2 Jedem anina Zeitung (The Newsroom) 119/8 
Grundstein eina: nenan Linie and kein zwaıtar PC 137/10 Schreiben mit Schnaidar (Vergleichsiest) 141,8 
Haimeomputer: Muskeischwand am Marirı 11/8 Schreiben ahne Frusi 48/2 
Konsequenies Chaos (Dar deutsche OL) 14/10 Sıar Terie:: die 3:Stema Tartverarbeiiung (CPC 444) 48/0 
DFO Akustikkoppier lür C 84 8 Tertverarbeilung für jedermann (Homewmiiar Müs 13771 
Ascom-Koppler jatzt auch Mir Atari 20/8 Sprechen Basic Erweiierung aum Bpartaril (Aziec Basic/C 84) 78/4 
Ein Anschluß unter diesse Nummes (Mailbaz Nommarn) 188/3 Basicode für Spectnum 144/8 
Mallbozrbetrieb ın dan U3A 22/10 Drei Assembler für Atari Computar ım Verglamch x. 
Naues DFÜ Programm für den Epectrum 29/10 Fartechrirt rückwärts (CP/M-80 Emulsiar Ms 820 EN) 138711 
Nullmadam sum Außrtecken 19/1 Hisof-Pascal jan Micıodnıve kompetibel (Epectrum) 88/2 
Btmaın Atarı-Schraiber jeun für 820 ST 14/12 Logo für den Atari A20 ST 134/11 
Softwase fast sum Nulltanf 10/1 Mallard-80-Basıc — ein starlıes Bück 28/11 
Träume werden wahı (Echneidar- Neuheıen aus England) 0/12 Maschinensprache m kaina Zauberei (CPC 484) 107/8 
Wordstar für 109 Mark 8/0 Parsona)-Basıc für den Atari 820 ST 21/8 
Drucker Mar Inker. dar sparmama Druckaı 12/12 Prossssor- Welt van morgen C 64 simuliert 68000 42/10 
Floppy Commodare-Mappy auf Trab gebracht! 9 Spwee Basic fü) den 143/8 
Diakstieniaofwark für den Sharp MZ-800 12/1 eichem Rasız u meınen MI [' 777 
Opus. «Musik« für dan Spectrum 10/8 Wall ım Bchaßfspals m Simulator für C 64) 10/8 
En Quick Dial — a ine (MEX 2 Zwöll Farben in Mode 2 (Colas Bias für CPC 484) 11078 
eıtarung Mins-Expansıon-Boz / 11/ Draussen Das Programm. das Progamma macht (Progiesso: 33/8 
ML Dea Musirwunde: (Yamaha CX 4) 14178 Diskatıan Dakar für den C 128 42/12 
Der Bullg-MEX von Phillips koammı 80/1 Quicksave Mus Apectrum 137/4 
CP/M mit MEZ Compular: ac gaht'a 141/2 SM-Kiı — Das Werkesaug für La und Meister (C 04) 128/1 
Ein komplerten öyrtam von Phllipa 19/8 Boftwase Knsckam daswiechen t (Apple ID) 27/3 
Moitar Dreier (Ranyo. Ooldatar and Canan) 23/8 Grafik Apple-Omßk zarı und fein e Draw) 138/6 
MEX-Min 48/3 beandruckend (Print up = Drockprugramum) 80/2 
Taswoıd für MSX 18/8 Du Snus aaa ae den Büdschirn (Apmie) 82/3 
Miı dam Alagendan Teppich auf Erfolgakurs 18/10 un Paddien) 28/3 
Bücher Bücher für dan C 84 11/9 re este Outer Pre 81/2 
Bücher nu DFÜ 11173 m dem Joystick u (Dasignen Penci) 140,8 
Bücher zu Logo 188/08 Schneiders Künstlerateliar (Graflikmaster) 4,8 
Bücher zum Denken (EKD) 120/10 Via! Oraßk Müs wenig Oeld (Oraphice Basic und Supaıgrafik 
04 Mir © 64 im br 44/2 
See Vorsch Kamm! !, Trickfüm Dessanen) 120/8 
Computer: Köin: nach wie vor regional 13/8 ort Appie I n gr Anschluß 184/93 
Die neuasian Haimcamputa: (Winier-CEB) 03 Contsct 64 — Die Software um Ascom-Kopnier 142/8 
Funksamiallung ın Bardin MSX war Trumpf 911 Spectrum auf Draht (DFÜ Vergleschsten) 124,8 
Hacker. Krimis and Spiona (Bommar-CES 1882 — Taıl 2) . Asttanomia $pectrums Semstunden 34/3 
Habhy-tronic und Computer -Schau ve Sternguckar 188/10 
Kampf der Kolomse (Winier CES — Tail |) 8/4 Laman Muppats an Bord (Welcome Abaoarı) 17/8 
Sommas-CES 1888: Weiche Walle in Chicaga — Tel | 0/8 Musik Man häse und staune (Bighi & Sound Software /C 64) 84/8 
Boftware-jackpot (Wintas CES — Tail 2) 98 Schach Schach dam Commodore (Schachprogramme Im Vergleich) B0/A 
Software-Snpar-Show in London (PCW-Shaw) 12/1) Schachman par Telalon 188/10 
Kl Künstliche Intelligans In Wieabaden (A} Europa) 137/12 
Muaik Musikmasse Frankun Midi marschiert 22/8 Spiela-Tantn 
Amason 148/8 
Imterv ie» Amasın 148/08 
David Crane (Ohontbusiern Autor) 1178 Archon Il. Adapı 128/2 
David Snider. Des Orafik-Oroßmaisia: 14/8 Asylum 144/3 
Internew mit den :»Print Shop» Machem 14/8 Athleuc Land 149/) 
jack Tramial (Chairman Atarf) 11/9 A View to a Ki 168/10 
Kay Nishi (Viee-Präsiden! MicrosoN) 12070 Beilliiammı 187/10 
Binde of Blackpool| 18/8 
Bardware Tamm Boulder Dash 128/2 
Druchar Bawaßı robust (Europnni E 8311 PT) 31/8 Bounty Bob sırikes back 139/8 
Castia of Tamor 180,8 
Baftware- Taxin Caveloıd 124/93 
Taztvararb. Ein Teztprogramm. das sich lahn! (Hamaword /C 84) nv4 Crasy Train 144/1 
Jana kontra Applaworku 143/90 Cyclana 182/8 
Drei Druckaı im Test (TI &0. Camini 10X, CP-80X) 18/1 Duo 118/2 
(Nachhail auf Saita !49 in 4/89) DWX 308: Schönschrih Deus az Machina 144/4 
mm tr 10/2 Don't buy ihis 188/12 
Eine heiße Verbindung (EP 22, EP 44. EXD 10) 24/8 Doomdark's Revencha 148/6 
Kompakt und leise: Matrisdrucker OLP (Cantronica) 24/1 Doroden 19/3 
Ragenbogentarben — wie gedruckt (Okimate 20) 184/10 Dregonaden 124/2 
Schön oder schnail (Hortson HX 80) 21/3 Dragonwarld 149/@ 
Schöne Schrift mit schnallan Nadeln (Verglaichsiest Biar Dragonwotrld 148/8 
&R-)0, Epson GX-80. Panasonic EX- 1081) 197/8 Drop Zone 18078 
Bpectrum mlı starken Typen (Oabriela 80086) 128/11 Haektro Freddy 14871 
Zwai Drucker fir den Schnaidar (NLQ 401. OP B00 CPC) 112/8 Blie 184/10 
Computer Atari 820 ST Haißar Hiı miı 22 Biı 20/8 Eureira 144/4 
Chinese mit bnuscham Paß (Triton 84) 23/2 Fahranhaii 4A 148/80 
Compntar der dran Arı — 820 ST und C 128 22/8 Frvee Side Fooiball 168/10 
Der Musik Maaatıc (Yamaha CX 8) r.:YX) Formalsa Ona 10/8 
Der Neue: Cammodars PC 128 8 Frank Rrunos Bazıng ıaa/10 
Der snana« Spectrum 3171 Frankie goss 10 Hollywond 12/10 
Ein «Einsteiger: aus Taıwan (BIT-80) 18/2 Fruiny Frank 14874 
Enterprise ist tat — hoch labe dar Maphusio (PHC 84) 29/8 Oamastona Warrior 140/86 
Joyce — Schneidars Einstieg in die Walt der PCs 24/11 Obenoblasier 188/11 
Quanıensprung im Schnechentempo (OL di. Venuon) 120/11 Ohostbustera 138/3 
Kormanas mn Deutsch-Talanı (Ce-Tec/MEN 18/3 Ohası Chasar 170/11 
Schnatders neue Dimension BIST 8128) 24/10 Greaı American Cıoms Conntry Road Raca 188/11 
Sharpe Jüngste: (Sharp MZ 1 Oramlina 148/90 
Spectrum plus ode: ee ini 24/4 Orog'a Revange 180/08 
SVI-X'Prams — aln starkas Sick gut im Grifl (M5EX 128/8 Hacker 167/12 
TO7/’M und MOBßE — zwei Computaı, ein Konmapt 193/98 HERO 149/8 
Viel Computer Ms wanig Oald (Schnaide: CPC 684) 11378 Hype: Sports 148/8 
IC#4: Fernösilicha: Biedermann (MRX Computer) 2,2 Mypar Sparte I 14373 
Was ını war? (Atanı 820 ST + und 280 ST) 18/12 Jamp Jeı 148/98 
Wis musikalisch 2! main Heaımcampatar? 148/11 Karsıaka 148 /4 
8 MAX Computer im Vergleich 124/8 Kannedy Approach 188/12 
Laufwerke 3Zol Ertahrungen (MCD-|-Floppy für Spectrum) 2/1 Knighi Lore 13/3 
(Diecovary /Spectmum) Macbath 14474 
Ein unglaiches Paas (Bpectrum — VIC 1841 Interface) 21,4 Mail Order Monsiers 148/8 
Lauf. Floppy. lauf SpeadDas plas/CB4) 4/12 Mask of ıha Bun 122/2 
Preiswartas Apecu om Floppyaysiem (Viscoun:! Sysiem) 21/2 Mask of tha Bun 148/89 
Specuum Dakahansysiam tm Plus Look 20/3 Match Day 180/8 
VC 1841 wird sur Rannlloppy 43/4 Mmdehadow 141/8 
Recordaı Der Spectrum Sprinies (Datenrecorder. Spant) 28/1 Mı. Do 187/10 
Eın billiger Speicher 10: alle (Racorder MC 3810) 8 Mansıe: Trivia 188/10 
pro DPÜ auch mii dem TI (RA 233 Mr TI B6/4A) 28/8 Nick Faldo playı the Open 189/11 
Kommunikation mit dam Spectrum 3/4 Nigbtahade 189/12 
Sparianisch aber gui (Ascom Akuztikkoppias) 188/3 Nodes al Yasnd 168/12 
Bonstigas Computer Se Modelleisenbahn 178/11 On Coort Tannıs 180,8 
Der anders W tus) 18/3 Pittall 11 148/8 
Faszination des = cher‘ Tachnik Robata:) 1 OlrChess 181/@ 
Famnsa Farmal fü: den O84 (Formal 84) «12 Racing Destruction Saı 18/0 
Flachbildschirm miı Schwächen (LCD für Apple lic) 13778 Rama 148/8 
Orafpad Sopergrafiä für dan Spectrum 18/3 Rescue on Fractalus 168/10 
Habt den (Alarmanlags für C 64, VC 20) 29/1 Rocket Ball 140/8 
Ohren oder Tasten? (Vaica Command Modul/C 84) “7/10 Rockfosd's Riot (Boider Daab IN) 168/11 
Panpharıa Ms MEX (Plories. 3% Zol-Floppy) 281 Rock'n Balı 139/8 
(aysııcka ım Vergleichstest) Sharlock Homas 121/2 
Robotar. Technologie der Zaun (Fischertechnik) [1-77] aller 147/71 
Brarkaı Arın für Hetmcamputer (feach Rahnt) RZ) Sarpenı U Bar 14274 
Tafaifrenden Mı Orsfik-Caurmets (Atarı Maitafal) 14/17 Ehadowfira 18178 
Vom Piapmatz sum Mini-Orchester (Bpectrum Soand) 18/3 Sts-Oun Shootout 149/08 





Nıchwert Tim Baht ! Army bu 
Ipiain Tui 
Sap Shot 181/8 
Software Star 188/11 
Bpelunker 143/39 
Standing Blanea 148/4 
arm 181,9 
Summaı Games II 133/08 
Duper Pipeline II 141/@ 
The Ancianı Arı ol War 149/8 
Tha Dallas Quesı 147/08 
The Dam Bosteı 180/08 
Tha Fourth Protocol 188/11 
The Hächhikst's Ouide 1a tha Oalaxy 13874 
The Hlıchhikar's Ouide ı0 (ha Oalary 147/98 
The Kobbiı 148/08 
The Lirte Computaz People Projekt 170/12 
The Qulli 147/86 
The Way ol exploding Fist 189/10 
Toar de France 110/11 
Whara In ıhe Warid ia Carmen San Diego 189/11 
WRistllar'a Brother 141/3 
Wiute Lightning 148/71 
Winter: Oamas 104/12 
World Champianahip Bozıng 170/12 
Xyphus 182/08 
ZimSaladım 141/3 
Abenteuar Im Weltraum 182/8 
Alen 8 184/09 
Amason 172/10 
Asylum 183/8 
Alantıs 188/08 
Aziac Challanga 14774 
Anac Tomb 14794 
Anac Tamb 183/8 
Anıec Tomb 1737/10 
Beach Head ea 
Biada af Blackpoal 184/98 
Castla of Tanar 188/8 
Cavarna ol Khafııa 183/8 
Coöcal Mass 184/08 
Dailas Quent 184/08 
Dark Crysta) 184/86 
Death ın he Canhbean 142/08 
Death in (he Canbbean 184/0 
Death in iha Caribbean 112/12 
Doomdartı's Bevanga 142/8 
Eurelca 184/08 
Everyona's a Wally 173/10 
Forbidden Foraaı 18978 
Foremı at World'a End 183/@ 
Foren ai World's End 184/08 
Fred 184/@ 
Ohostbusien 10/3 
Ohortbusienn 14274 
Ohostbusiara 18278 
Oruiie u Sonne 183/8 
Hampsıead ıra/12 
Heron al Kam 184 /8 
Maraa ol Karn 173/12 
Meuankräche 179/18 
Hobbit 108/93 
Hulk 143/0 
Hunch Bach 8/1 
fat Sat wuy 184,8 
jJawals of Babylon 184/08 
Karsieka 173/12 
Knight Lare 184,8 
Lode Runne: 174/11 
Loda Runner 1314/12 
Mask af ıhe Bun ıra/11 
Maaquarada 144/8 
Mesnszaga tom Andromeda 184/8 
Mindahadow 174/11 
Mina: 204Ber 14774 
Pirata Advanture 120/2 
Piıtall 14174 
Pırtail II 144/8 
Pittatl 1] 174/10 
Onesi lo: Tires 184/@ 
Bahıra Wull 8/1 
Sanda ol Egypi 173/00 
Banda al Egypt 174/12 
Schloß des Orauanı 182/8 
er Mimi 179/11 
Dip al Doom 179/12 
Borcarer of Claymorgne Castia 183/98 
Spalunker 144 /@ 
Sup Pokaı 182/8 
Summaı Oamas 144/40 
Sammaı Oamas 173/10 
Super Hoey 111/10 
The Dallas Quest! 174/10 
Tre Hiıchkikar's Guide 10 tha Galary 183/98 
The Instiruie 173/10 
The Instirauie 173/12 
The Quası 173/11 
The Wıtnass 148/3 
Tıme Maschine 173/11 
Tranaspivanıan 184/98 
Uhima 0 128/2 
Vluma ti 18178 
Ultima M 18178 
Utremes 188/68 
Valbalıs 173/11 
Wikanler # Brot 144/08 
Zappalin 12/8 
Zumßalaßım 142/08 
Zoriı 174/10 
gen) 

Anwendung Alle Naune (Jahressuswarung Kegeln/C 84) 01/8 
(Adreäverwaltung /C 64) Bassaıas Basic gans einfach Bof- 
ware Basic 3 0/C ®4) 01/3 
Datenbank mit kaiam Zugzifl ne &4) [72] 
= Hallaysche Kamaı aa! Bamımı Die g An Dir 

un (da um) U 

ie En 14/0 
Nachhall auf Seite 180 in 97 
Do-it-yoursell-Dstenverwaltung (Mainfile 11/C 64) 89/3 
Einblick ins Innenlaben (Dieamambiar /CPC 484) 22/8 
Eine talle Textverasbeitung für den Schneider (484) 80/3 
Nachhall auf Baite BA in 8/BA 
Funirionan optisch aafbaraltat (VZ-200/Lassı) 08/3 
Geragalia Finanzen miı dam Commodara &4 wi 
Happyaynth. der Traum jedes Musikare (L.d.M./C 84) an/se 
Nachhall auf Baıte | 17 in 8/88 07/4 
Marsa Dacoda: für Funkamatanıe (öpectrum) 1m 
Nebenkostenabsechnung (C 84) 83/1 
Nachhal) auf Salt 80 in 13/RA Optik mit üämens Basic (C 64) 83/3 
Pıogramma tn Reih' and Qllad (C 64) ar: 
Boehen, natn danka (Dsieiverwaliung/CPC 484) 83/4 
Nachhall auf Seite 117 in 8/88 
Transistor Schaltungen berechnan (1.d.M./Spectum) 8171 

> Turbo-Basıc-inierpretes ls Atari SOOKL (L dM ) ars 

Orafik Apple lic KiRes-Qrafik auf dam Drucker 108/1 
Bawegte Rider auf dam C 84 48/8 
Bawegıe Orafik mi drai Belehları (CPC 484) 1471 
Bewegung: vom Sprite zum Zeichentrick (C 64) 6a 
Farbepielersien (Atasf) 88/3 
Crafikenmarung für Marmsdrucker (Apectrum) 108/1: 
Orafik-Window bekomm Nachwuchs (C 4) 88/11 
Nachhall auf Balte BO ın 12/83 
Oraßscha ne (C 84) 19/8 
Crafikzaubar (A 78/2 
Hires Fantarı Ei 68/3 
Rosatian Ormfik für dan Spectrum 88/3 
Schnalla Orafik aas dam Compiler (Ld.M./C 84) ‚a 
Schnalle Sprites auf allen Apple Campulam u” 
Schäne schnalla Orafik (Orafik-Paket/C 64) 80/2 
Solar-Paınter (Spectwum) 1014 
8prite Editor (C 84) @/ 
Aprites dreben gam einlsch (C 84) 08/0 
8priies per Software (CPC 484) 14/9 
Vam Bild zum Sprita (C 84) 88/9 
Zauba: der Farben mtı Magıc Painter (L d.M /Atari) 83/3 
Nachhall auf Baila AB in 8/88 
Zaubereien aal dam Bildschirm (.d M /Orfik/CPC 464) 80/4 
Zeichensouting für Kraise und Eiipes (CPC 484) 00/8 
Zykioide Mir Orafiker und Mathematikaı (C 84) 00/1 
Nachhall auf Baıte 79 in 13/88 
24 Farben in Orafik O für Atarı an 

Ipumı Des Haus des Magları (C 64) 0% 
Dashes, der Volitraffar (L.d.M./C 64) “as 
Nachhall auf Sehe I 17 in A/BA 
Dat rasande Raider (C 64) m. 
Diamanienflebe: (Ld.M./Atarı 48 KByte) a 
Nachhal) auf Saite Aß in 8/88 
Die Abenieuer atnes rasandan Raparienm (Rapart/C 64) 80/1 
Oerüällhaimar (Aa ra,e 
een d im Schnasder (CPC 464) 14/2 
Nee ba 8A in 8/84 
Hatro Kasa (Spectrum) use 
Lomberpch Larrya Abemeuar ın Ragdad A d.M/C 84) sa 
Kalta Zaiıen (Wintry Sereen/C 64) er 
Kneipe aum hastigan Kellner (VC 20) r 
Miı dem Apple au! die Trainerbank (Alrtioa Apfelsaft) has 
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Nps 6 Tricks 


Monstzue 


Drucks: 


Sprachen 


DFO 
Musik 


Sonstiges 


Lamen 
DFO 
Sonsnge 


Timm batın / Aumgabe 


Mit dem Atnst Computer auf Bch (Atasl) 
Mu Woodahot ins Mandver Eaha 
Mücke miı Tücke (C 64) 


er 
Nechhall auf Deite |17 in aus 
Mocruake (C 04) 


NachMug 

Nechhall Beite BE ın S/IS Niemandslanıd (C 84) 
Pokarface für 18 KByte (Bpectrum) 

Psycho — die Mach! das Geistes (C 84) 

Nachhall auf Seile 80 in 12/88 

Rennkahrer miı dam Joystick (Driver /C 64) 

Rattaı den latztan Raum (Inaalrı detanse /C 84) 
BAM — das Mann von des Baustelle (L.d.M./CPC 484) 
Nachhai) auf Setıa 70 tn 12/R8 

Schatzhähle (Atarı S00XL) 

Vorsicht Hochuwrnsses (Aquantar/L.d M./C 64) 
Über den Wolken (Flugplanang/C 64) 
Wartsuchspial (Apectrum) 

AMPEL — grünes licht Rır Amn- Maschinen Programme 
Aul dem Laufanden mlı ainar Echtzeituhr (C 84) 
Auf Trap gebracht (CPC 484) 

Autostarı für Atari 

Basic bequem (C 84) 

Basic Compactar (Apectrum) 

Nachhail aof Beute BO In 12/88 

Basıc-Plus Appieaof-Rasıc-Erwaitarnng (Apple IM 
Beun C 84 piepst an 

Büdes nchtig konsarvieren (CPC 484) 
Büdschirmtriek is den Commadors B4 


Byte-Zuifer (Bpectrum) 

Cham Merge endlich lauffähig (CPC 484) 

Data Generzior für Apple D 

Dateien hin- und hergeriasen (Atart IBM) 

Dar naue Chechkzummer ist da (C 64) 

Der neue Checksummar is! da (C 64) 

Der neue Checkuwummar (C 84) 

Deutsche Sondemseichen antes CP/M (CPC 484) 
Die Maltafel wird sur Maus (Atari) 

Diakerian sparen (C 64) 

Nachhall auf Belle 48 in | 1/88 

Disk Help Ms die achnelle Hilfe (Atari) 

Diak- und DOB-Uulity für alle Atark Computer 
Drei Tncks Rı MEX 

Ein langes Oesicht für den C 64 (Langscıeen 84) 
Fahlechlle mit NELP & TRACE (VC 20) 
Fensierlrünstler (C 84) 


(Bpectrum) 

Funktionstas mit bei langen Befshlsfolgen (CPC 484) 
Fußball-Managas Rır Commodare 64 
Orafik-Hardcopy in viertacher Oröße (C 64) 
Kosienloss Speichererweiterung (C 64) 
Kriegeaskiärung an Boftwars-Diabe (Bpectrum) 
Listen leicht gemachı (C 84) 
Make DATA Mu den äpactrum 
Maschinencode-Routinen In Basic umgesatzi (CPC 464) 
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Am besten 
leich mitbestellen: 


ie Happy Computer-Sammelbox 


Für alle Leser, die »Happy 
puter« regelmäßig kaufen, 


Com- 
sam- 


meln oder im Abonnement bezie- 
hen, gibt es ein interessantes Ser- 
vice-Ängebot: die Happy Compu- 


ter-Sammelbox! 


Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf- 
fen sich gleichzeitig ein interes- 
santes und attraktives Nachschla- 


gewerk. 


Übrigens: Die Sammelbox ist 


nicht nur ein praktisches 
Aufbewahnungsmittel: Sie 
eignet sich auch her- 
vorragend als Ge- 
schenk für Freun- 

de und Bekannte 

zu vielen 

Änlässen. 


N die bialker 
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SONDERHEFT 01/84: SINCLAIR 
Unentbehrliche Informationen zu den Sinclair 
Computern ZXBl und Spectrum. 


SONDERNEFT 01/05: SPECTRHM 
Anwendungsbesogene Listings und Tips & Tricks 
für alle Spectrum-Fans. 


SONDERHEFT 02/85: SCHMEIDER | 
Eine Fülle wertvoller Beiträge und Listings 
für alle Schneider-Anwender. 


SONDERHEFT 03/85: SPIELE 
Ein Super-Nachschlagewerk für alle Spiele-Fans mit 
100 Spielen im Test und großer Marktübersicht. 


SONDERHEFT 01/86: SCHNEIDER 2 
Noch mehr Tips und Tricks für Einsteiger und Fort- 
geschnittene mit vielen interessanten Programm-Listings. 


SONDERHEFT 02/86: ATARI | 
Besonders 800 XL- und 130 XE-Fans erwarten jede Menge 
Anwendungs: und Spiele-Listings sowie Informationen. 


SONDERHEFT 03/86: 62000er 

Umfassende Informationen zur neuen Compuler- 
Generation und eine große Vergleichstabelle, die im 
Detail über alle 68000er informiert. 


SONDERHEFT 04/86: SCHNEIDER 3 
Eine Erweiterung für alle Schneider-Anwender. Super- 
Programm-Listings und großer Einsteiger-Teil. 



































Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B 03/85) auf dem Bestellab- 
schnitt der hier eıngehefteten Bestell-Zahlkar- 
te ein. 
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/ ERKRANKTE TEN TER TEEN EN HR HN TER TE EHEN REF REEEERN RNIR  / 
/%* KRrARRKRRERR Shell-Sort KRRRÄERRRRTR #*/ 
/ERRKERERRERHRERIER KR TE TEEN RENNER TEE EI TEE TEEN FEN EEE TE EI RR / 


#define void int 


void shsort (n,comp,Sswap) 
/%* Haupteinstiegspunkt Shell-Sort mit der Uebergabe von drei 
Parametern. #/ 


unsigned rıy 
/* Anzahl der zu sortierenden Datensaetze #%/ 


int (*comp) ();5 
/* Zeiger auf die Funktion, die zwei Datensatzschluessel 
vergleicht. *#%/ 


int (*swap) (0); 

/%* Zeiger auf die Funktion, die zwei Records vertauscht. #/ 
int m; 

/* Intervallanzeiger */ 


iaeehie. 1. je 
/%* Zaehler (intern) *%#/ 


m=n 
/* Anfangswert f}r Intervall wird gesetzt #/ 


while(m /= 2) { 
/* Ist m /= 2 gleich Null, so ist der Sortiervorgang 
beendet. #/ 


k=- n-ms; 
/* k wird initialisiert. %/ 


>=1; 
/* 3 wird initialisiert. %*/ 


do { 
/* In dieser Schleife wird der untere Segment- 
grenzwert gesetzt. #/ 


ı = ji 
/* i wird initialisiert. #%/ 


do { 
/* Mit dieser Schleife wird der untere 
Segmentgrenzwert gesetzt. */ 


h=i +m 
/* Mittleren Grenzwert setzen. #/ 
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ift(xeomp) (i = 1, u - 132 7 DX 
/* Zeiger auf die Vergleichsfunktion setzen. #/ 


(*#swap) (i = 1, h- 19; 
/* swap wird nach Vergleich aufgerufen. #/ 


i-=m 
/* Wurde vertauscht, wird hier i gesetzt. #/ 


} else 


breakı 
/* Ausstieg aus der Schleife #/ 


’ while(i = 1); 
/* Überpruefen von i auf weiteren Durchlauf %#/ 


3 += 15 
/* j wird f}r weitere Vergleiche inkrementiert. %/ 


} while(j = k): 


/* Ende aeussere Schleife */ 


u. 


us 


VE KRWRWRRNRN Ende Funktion Shell-Sort KRFRRARKERR 


/* Eubble-Sort und Shell-Sort sind fuer fast alle Sortierprobleme 
die lL.oesung. 
Fin weiterer bekannter Sortieralgorithmus ist der sogenannte 
Auick-Sort. Dieser Sort hat eine noch hoehere Leistungsfaehigkeit 
als der Shell-Sort. 
Das folgende Listing des Quick-Sort ist ein sehr schoenes Eeispiel 
fr rekursive Frogrammierung. 


%/ 
/RRERKRKKRTKKHTH NN TR TFT TE N RE TE EEE THINK HK N TH TEN ER HF HN N RI HI RN A RR RR / 


/% KERRERERRR QDuick-Sort KFRRRRERRRR %*/ 
/KWERKKRKRNTERNKIH KT T TH TH N TE HT NT HH KT HT RN TH ET N TFT N ET ET IT HN KENNEN / 


#define void int 


Listing. Verschiedene 
Sortieralgorithmen In C 
static int (#*_comp) (), (*_swap) O5 realisiert (Fortsetzung) 
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/* Zwei statische Variablen werden dazu benutzt, die Funktionszeiger 
in einer Reihenfolge zu speichern, die es erlaubt, die Zahl 
der an die rekursive Funktion webergebenen Parameter zu 
erniedrigen. #/ 


void qusort(n,„comp,swap) 


/* Haupteinstiegspunkt f’r Quick-Sort mit der Vebergabe von drei 
Farametern, %/ 


unsiqaned nz 
/* n enthaelt die Anzahl der zu sortierenden Datensaetze. #%/ 


int 


(*comp) (); 


/* Zeiger auf die Vergleichsfunktion %/ 


int 


(*swap) (); 


/%* Zeiger auf die Vertauschfunktion %*/ 


\ 


} 


_ceomp = compi 
/%* Die statische Variable comp wird auf den Parameter 
comp gesetzt. %/ 


_Sswap = swaps 


/* Die statische Variable swap wird auf den Farameter 
swap gesetzt. %/ 


_quick (0, n - 25 
/* Die rekursive statische Funktion quick wird mit einem 


unteren Grenzwert von OÖ und einem oberen Grenzwert van n-1 


ausgefuehrt. %/ 


/» Ende der Funktion %/ 


static void _quick(lb, ub) 


unsigned 1b, ub; 


{ 
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unsigned J3 


unsigned _rearr O3; 


ı ftlbrs ub) % 
if(j = _rearr (1b, ub)) 
_quick(lb, j - DJ), 


_quick(j + 1, ubIa 





APPY 
:OMPUTE 


m — 


J Listing. Verschiedene 
Sortieralgorithmen In C 
„ realisiert (Schluß) 


/* Ende der Funktjon %*/ 


static unsigned _rearr (lb, ub) 
unsigned 1b, ub;z 


X 


whiletub = Ib &% (*_comp) (ub, 1b) >= 0) 
ub=>3 
if(ub != 1b) X 
(*_ swap) (ub, 1b); 
while(lb  ub %% (*_comp) (lb, ub) = 0 
ıb+tt;3 
if(lb != ıub) 
(*_ swap) (lb, ub)z 
} 
* while(lb '!= ub)s 


return 1b; 


Lo 


/* Ende der Funktion */ 


/%* HR Ende Quick-Sort #XXX%%xxx%%% 


/* Als Indizes wurden vorzeichenlose Variable (unsigned) zur 
Definition der Unter - und Übergrenze des abzusuchenden Bereiches 
verwendet. Variable dieses Typs erweitern den Zahlenbereich, 
der innerhalb der Funktion angewendet werden darf. 


Manche Frozessoren begreifen Arithmetik nur ohne Vorzeichen. 
Werden hier nun normale Integers (int) benutzt, wird bei der Code- 
Erzeugung automatisch ein Vorzeichen gesetzt. 

In C kann der weit groessere Teil von Schleifenkontrollvariablen 
vorzeichenlos definiert werden, 
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Rückkehr einer 


alten Dame: 


ie Originalversion von Eliza pro- 
grammierte Joseph Weizen- 
baum am MIT (Massachusetts 
Institute of Technology in Boston, USA) 
ursprüglich in Lisp. Schon bald folgten 
Übersetzungen in Basic und Veröffent- 
lichungen in verschiedenen Computer- 
zeitschriften. Obwohl im Laufe der Zeit 
einige Vereinfachungen vorgenommen 
wurden, ist das Resultat doch noch 
interessant. Der Vorteil dieser Version 
ist, daß die Texte und Schlüsselwörter, 
mit deren Hilfe Eliza antwortet, nicht 
Bestandteil des Programms, sondern in 
einer eigenen Datei erfaßt sind. So kön- 
nen Sie ohne Neucompilierung Ände- 
rungen vornehmen und deren Auswir- 
kungen studieren. Denkbar wäre so 
sogar eine Eliza-Version, die Deutsch 
spricht: Wenn Sie das Programm nur 
durch die Angabe des Namens »Eliza« 
starten, arbeitet es automatisch mit den 
Texten in der Datei Eliza.DAT. Wenn Sie 
aber beim Aufruf noch einen Dateina- 
men »Eliza <Texte>. DAT« angeben, 
werden die Texte aus dieser Datei 
genommen. Das Programm beenden 
Sie durch die Eingabe von »bye«. 

Das Programm sucht zunächst in der 
Eingabe des Benutzers nach Schlüs- 
selwörtern, die es kennt. Die Schlüssel- 
wörter gleicher Bedeutung sind dabei iin 
Gruppen zusammengefaßt, und zu 
jeder Gruppe gibt es eine Gruppe mit 
zum Schlüsselwort passenden Stan- 
dard-Antwortsätzen. Wenn Eliza ein 
Schlüsselwort aus einer Gruppe findet, 
nimmt sie aus der korrespondierenden 
Gruppe einen beliebigen Standardant- 
wortsatz. Je häufiger ein solches Wort 
typischerweise auftritt, desto länger 
sollte die Antwortliste sein - so wird oft- 
maliges Auftreten immer derselben 
Antwort vermieden. 

Sobald ein Standardantwortsatz 
gefunden wurde, erfolgt eine weitere 
Umformung. Enthält er ein Sternchen 
»*«, so wird an dieser Stelle ein Neben- 
satz eingefügt. In der Standard- 
Eliza.DAT treten Sternchen nur am 
Ende eines Satzes auf. Sie dürfen sie 
aber auch in der Satzmitte verwenden. 





Der Nebensatz entsteht aus der Ein- 
gabe des Benutzers. Der Eingabeteil, 
der dem Schlüsselwort folgt, ist 
Ausgangspunkt. Bevor er in die Antwort 
eingesetzt wird, wird er aber noch kon- 
jugiert: also Wörter wie »my« durch 
»your« ersetzt und umgekehrt. 
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»Eliza« gehört zu den Klassikern 
unter den Computerspielen: Der 
Computer schlüpft in die Rolle 
eines Psychoanalytikers. Damit 
es nicht in Vergessenheit gerät, 
finden Sie hier eine Version in 
der hochaktuellen Sprache C. 


Der so entstandene modifizierte 
Antwortsatz erscheint dann endgültig 
auf dem Bildschirm. 

Leerzeilen in der Datei werden bei der 
Auswertung übergangen. Ein Schräg- 
strich »/« gilt bei der Auswertung ganz 
genau wie ein echtes Zeilenende als 
»logisches Zeilenende«. Die Datei 
Eliza.DAT ist in mehrere Gruppen unter- 
teilt, die jeweils Zeilen mit dem Inhalt »$« 
voneinander trennen. 

Die erste Gruppe enthält das Titelbild, 
das der Computer beim Start ausgibt. 
Die zweite Gruppe - die nur aus einer 
einzigen Zeile bestehen darf - präsen- 
tiert die Begrüßung, mit der das Pro- 
gramm erstmals eine Eingabe vom 
Benutzer anfordert. 

Die dritte Gruppe beinhaltet paar- 
weise Schlüsselwörter für die Konjuga- 
tion eines Nebensatzes, die sich 
gegenseitig ersetzen. »i«e muß in »you« 
und »you« in »i« umgesetzt werden. 
Deshalb bilden »i« und »you« ein Paar. 
Ab der vierten Gruppe bis zum Datei- 
ende stehen paarweise jeweils eine 
Schlüsselwortgruppe und die dazu pas- 
sende Antwortgruppe. 

Beachten Sie, daß die Einhaltung die- 
ser Regeln nicht überprüft wird. Wenn 
die Datei nicht richtig aufgebaut ist, 
»verhaspelt« sich Eliza und gibt nur 
noch Unsinn aus. Im schlimmsten (aller- 
dings seltenen) Fall übersieht die Sor- 
tierfunktion sogar die Dateiendmarkie- 
rung, so daß das Programm abstürzt. 
Alle Schlüsselwörter und Konjugatio- 
nen müssen klein geschrieben werden 
- sonst erkennt sie das Programm nie- 
mals. 


Pirabheinne Be 
der Antwort 


Die Ergebnisse, die Eliza liefert, hAn- 
gen stark von der Reihenfolge des 
Dateiaufbaus ab. Schlüsselwörter am 
Anfang der Tabelle haben Vorrang, 
unabhängig von der Stellung der gefun- 
denen Wörter im Text. In der Regelist es 





sinnvoll, Schlüsselwörter, die zu konju- 
gierten Antworten führen, zuerst zu 
nennen, weil das die interessanteren 
Antworten ergibt. Sie können aber auch 
mit anderen Reihenfolgen experimen- 
tieren. 

Es muß sichergestellt sein, daß in 
jeder Eingabe ein passendes Schlüs- 
selwort gefunden wird. Jede Eingabe 
(bei Eliza auch in einer leeren!) enthält 
nur ein Leerzeichen. Das letzte Schlüs- 
selwort der Tabelle ist deshalb ein ein- 
zeines Leerzeichen (nicht verwechseln 
mit einer Leerzeile!). 

Im Schlüsselwort »think« der Stan- 
darddatei Eliza.DAT ist die Buchstaben- 
folge »hi« enthalten. »hi« fungiert aber 
gleichzeitig als eigenes Schlüsselwort 
mit höherer Priorität - als Abkürzung 
von »hello«. Ohne weitere Vorkehrun- 
gen wäre so das Schlüsselwort »think« 
unauffindbar. Bestandteil des Schlüs- 
selwortes »hi« ist deshalb ein Leerzei- 
chen, um einen Fehlgriff auszuschlie- 
Ben. Ähnliche Probleme treten auch bei 
anderen Wörtern auf. Leerzeichen in 
der Datei haben also immer eine wich- 
tige Bedeutung - Sie sollten ganz 
besonders darauf achten. Wenn ein 
Schlüsselwort nicht in der ersten Spalte 
beginnt, ist das ein Indiz dafür, daß ein 
wichtiges Leerzeichen voransteht. 
Leerzeichen am Ende einer Zeile wer- 
den durch Anhängen eines Schrägstri- 
ches »/« am Ende der Zeile sichtbar 
gemacht. Da der Schrägstrich ein logi- 
sches Zeilenende bedeutet, Leerzei- 
chen aber beim Einlesen nicht beachtet 
werden, schadet das bei der Interpreta- 
tion der Datei durch Eliza nichts. 

Bei umfangreicheren Dateikonstruk- 
ten können bestimmte Präpositionen in 
mehreren Paaren der Konjugations- 
tabelle auftreten. Wenn eine mehrfache 
Präposition bei der Analyse eines Paa- 
res in den Nebensatz eingefügt wurde, 
würde sie bei der Analyse des anderen 
Paares fälschlicherweise wieder ent- 
fernt und durch eine dritte ersetzt. 
Konjugations-Schlüsselwörter, die in 
dieser Weise eingesetzt werden, dür- 
fen Sie deshalb in der Datei mit einem 
zusätzlichen Unterstreichungszeichen 
»_« versehen. Das verhindert ein 
erneutes Finden. Vor dem Einfügen des 
Nebensatzes in den gesamten Antwort- 
satz werden alle Unterstreichungszei- 
chen automatisch entfernt. 

Scheuen Sie sich nicht, die Datei 
Eliza.DAT nach eigenem Gutdünken zu 
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verändern (natürlich sollten Sie eine 
Sicherheitskopie aufbewahren!). Inter- 
essant ist, außer einer allgemeinen 
Erweiterung, etwa die Übersetzung der 
Texte ins Deutsche, mit Anpassung der 
Konjugationen oder ein ganz anderes 
Gesprächsthema. Vielleicht können Sie 
die Antworten auch so geschickt wäh- 
len, daß der Benutzer beeinflußt wird, 
über ein Thema zu sprechen, zu dem 
Eliza besonders viele Schlüsselwörter 
weiß? 

Die vorliegende Version wurde unter 
CP/M-80 mit einem BDS C-Compiler 
compiliert und getestet. Mit geringen 
Änderungen läuft Eliza aber auch unter 
anderen Betriebssystemen und mit 
anderen Compilern. Da möglichst einfa- 
che Standardfunktionen verwendet 
werden, ist diese Eliza-Version auch mit 
den kleinsten Compilern zu verarbei- 
ten. 


Anpassen müssen Sie die Aufrufe der 
Funktionen »fopen« und »getc« (zum 
Einlesen der Datei). Beim BDS C- 
Compiler erwartet die Funktion »fopen« 
beim Aufruf die Adresse des Dateina- 
mens und die Adresse eines genügend 
großen Pufferspeichers. Die Funktion 
»getc« erwartet nur die Adresse des 
Pufferspeicherss der gewünschten 
Datei. Die meisten Compiler verarbei- 
ten aber andere Strukturen. Wenn Sie 
noch unerfahren sind, sollten Sie sich 
dazu ein einfaches Programm aus Ihrer 
»C-Bibliothek« ansehen, und die darin 
enthaltenen Dateioperationen im 
ElizaC-Programm nachbauen. In der 
Regel lauten die neuen Versionen dann 
so: 
»..f((fd = “r)) 
NULL) [...« 
zum Dateieröffnen und 
»..getc(fd)...« oder ... »fgetc(f1)...« 
zum Lesen eines Zeichens aus der 
Datei. Natürlich müssen Sie dann dekla- 
rieren »int * fd« und können die Deklarie- 
rung von »puffer[BUFFSIZ]|« weglas- 
sen. 

Sie ersparen sich graue Haare, wenn 
Sie Experimente zur Diskettenverwal- 
tung immer auf einer leeren Diskette 
durchführen (mit Sicherheitskopie des 
bearbeiteten Programms auf einer 
anderen Diskette). 

»CPMEOF« ist der Wert, der das 
Erreichen des Dateiendes signalisiert 
und heißt bei manchen Compilern ein- 
fach »EOF«, die Konstante »ERROR« 
manchmal kurz »ERR«. Wenn andere 
verwendete Konstanten in Ihrem 
»Stdio.h« nicht definiert sind, können Sie 
sie auf einen beliebigen, Ihnen sinnvoll 
erscheinenden Wert festlegen. 

Die Funktion »getns« unterscheidet 


fopen(name, 


nein.» 








sich von der Standard-Bibliotheksfunk- 
tion »gets« nur dadurch, daß beim Einle- 
sen von der Tastatur die maximal 
erlaubte Zeilenlänge vorgegeben wer- 
den kann. Sie funktioniert allerdings nur 
unter CP/M-80. Wenn Sie keinen 
CP/M-Rechner haben, dürfen Sie den 
Aufruf »getns(eingabe 77)« ohne 
Schaden einfach durch »getsflein- 
gabe)« ersetzen. Dann müssen Sie 
eben auf den Komfort der automati- 
schen Begrenzung der Zeilenlänge ver- 
zichten. Die Standard-Bibliotheks- 
funktion »bdos()« heißt manchmal auch 
»__bdos()« oder »Ubdost()« und ruft - 
ohne Einflußnahme des C-Systems - 
Betriebssystemfunktionen direkt auf. 
Wenn der Compiler keine »Zeiger auf 
Zeiger« erlaubt, können die Variablen- 
deklarationen »char * *name« durch »int 
"name« ersetzt werden. Die Bedeu- 
tung und Struktur der Variable ändert 
sich dadurch nicht. In der Funktion 
selbst können doppelte Sternchen 
trotzdem weiterverwendet werden. Die 
Anwendungen dieser Variablen brau- 
chen deshalb nicht geändert werden. 
Dasselbe gilt für Zeigerarrays; »char 
*namel[]« kann ohne Schaden ebenfalls 
durch »int *name« ersetzt werden. 
Manche Compiler hängen an jeden 
puts-Befehl automatisch einen Zeilen- 
vorschub an. Sie merken das sofort an 
den vielen Leerzeilen auf dem Bild- 
schirm. In diesem Fall streichen Sie im 
Quelltext einfach die Zeilen mit »\n«. 
Die Konstanten DATEILLAENGE, 
MAXZEILEN und MAXKEYS bestim- 


beim Aufruf nit 
Aufruf mit 'ELIZA <dateiname>’ 
verwendet werden. 
wird aber nicht ueberprueft ! 
Die Funktion 


Der Aufruf von °fopen’ 


"ELIZA wırd automatisch 


“einlesen 


men, wieviele Bytes im Speicher für die 
Datei Eliza.DAT reserviert werden. 
Wenn Sie nur wenig Speicher haben, 
wählen Sie etwas kleinere Zahlen. 

DATEILAENGE bestimmt in etwa die 
maximal erlaubte Dateilänge, hier also 
20000 Byte. MAXZEILEN gibt an, wie- 
viele Zeichen die Datei maximal haben 
darf. Beachten Sie jedoch, daß jede 
Zeile zwei Nummern benötigt. Wenn Sie 
also in der Datei 1000 Zeilen erwarten, 
müssen Sie MAXZEILEN auf den Wert 
2000 definieren. MAXKEYS gibt die 
maximale Zahl Schlüsselwortgruppen - 
Antwortgruppenpaare an. Jede Schlüs- 
selwortgruppe belegt allerdings drei 
Nummern! Mit einer Definition von 
»#define MAXKEYS 400« sind also 
nur etwa 130 Schlüsselwortgruppen 
erlaubt. 


Zum Vergleich: Die hier gedruckte 
Grunddatei Eliza.DAT benötigt minde- 
stens die Werte DATEILAENGE = 
4500, MAXZEILEN = 520, MAXKEYS 
= 100. Ohne Änderung der Daten kön- 
nen Sie also bis zu viermal längere 
Wortschatzdateien verwenden. Eine 
Überschreibung der zulässigen Maxi- 
mallängen prüft das Programm aller- 
dings nicht. Diese führt ohne Warnung 
zum Systemabsturz. 

Der Hauptaufwand des Programms 
liegt darin, leistungsfähige Routinen zur 
Zeichenkettenverarbeitung zur Verfü- 


“ELIZA.DAT geladen. Durch 


kann stattdessen eine andere Datei 
Der korrekte Dateiaufbau und erlaubte Dateilaange 


“getns’ muss an das Betriebssystem angepasst werden ! 
in funktion 


variiert von Compiler 


zu Compiler ===> unbedingt anpassen !!! 


“/ 

“include "stdio.h" 
“define DATEILAENGE 20000 
“define MAXZEILEN 2000 
“define MAXKEYE 400 


/* 
"getns’ 


unterscheidet sich von der Standardbıbl iotheksfunktion 


/* maximale Dateigroesse in Bytes */ 
/* 2 mal die maximale Zeilenzahl dar Datei */ 
/* 3 mal die maximalen Schluessealwortgruppen */ 


“gets nur 


durch die Angabe der maximalen Zeilenlaenge und laueft nur unter CP/M-BO. 


In anderen Systemen Funktionsrumpf einfach durch 


”/ 
getns (eingabe, maxlen) 
char eingabe[]; 
int maxlen; 
{ 
char puffer [MAXLINE + 2]; 


“puffer = maxlen; IE 
bdos (10, puffer); er 
puffer[2 + puffer(l}]) = NULL; /* 
strcpy (eingabe, puffer + 2); 4 


tlen ist 
"insatr’ 


”7 


instr (start, text, tlen, such, slen) 


Listing 1. Smalltalk mit Ellza 





tatsaechliche Laenge des 6trings text, 
sucht in ‘text’ ab Position 
gefunden Ruackgabe der Position von 


"start 


“gets (aingabe) ersatzen ! 


maximale Laenge in erstes Pufferbytea 
Aufruf CP/M - Zeileneditor 
tatsaechliche Laenge im 2. 
Text ab zweitem Pufferbyte 


Pufferbyte 
} 


slen ist Laenge von such. 
nach dem 6tring "such’. Wenn 


such’, sonst °0°. 
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gung zu stellen. Der Aufwand lohnt sich 
aber. Die Routinen »getns«, »instre«, 
»einlesen« und »holeeing« sind sehr uni- 
versell und auch für andere Programme 
brauchbar. Am besten fügen Sie sie in 
Ihre  Standard-Bibliotheksfunktionen 
ein (kopieren Sie aber vorher Ihre 
Standard-Bibliothek). Da die Funktio- 
nen keine globalen Variablen benöti- 
gen, ist das ohne weiteres möglich. 

Die Funktion »getns(eingabe,max- 
len)« entspricht der Funktion »gets(ein- 
gabe)« mit zusätzlicher Angabe der Zei- 
lenlänge, bei deren Überschreibung die 
Eingabe abgebrochen wird. Intern 
stützt sich die Funktion auf den CP/M- 
Zeileneditor. Deshalb ist sie leider nur 
unter CP/M-80 einsetzbar. 

Die Funktion »einlesen(name.datei, 
descript)« liest die Datei, deren Name 
ab der Adresse »name« gespeichert ist, 
von der Diskette und legt sie im Spei- 
cher ab der Anfangsadresse »datei« 
(am besten ein Charakterarray) ab. Ein 
einziges Nullbyte ersetzt mehrfache 
Kombinationen von CR (Wagenrück- 
lauf) und LF (Linefeed). Dadurch wird 
jede Zeile in einer eigenen Zeichen- 
kette abgelegt, und betriebssystem- 
und compilerabhängige Unterschiede 
zwischen Textdateien werden besei- 
tigt. Beimanchen Systemen genügt nur 
LF oder CR, um eine neue Zeile zu si- 
gnalisieren, andere Systeme (zum Bei- 
spiel CP/M und MS-DOS) benötigen 
beide. Als Nebeneffekt werden bei die- 
ser Manipulation alle Leerzeichen ent- 
fernt. 

Im Programm Eliza gilt auch ein 
Schrägstrich »/« als Zeilenvorschub- 
byte. Bevor Sie diese Funktion in die 
Standardbibliothek aufnehmen, sollten 
Sie eventuell diese Abfrage entfernen. 
Wenn Sie mit mehreren Dateien 
zugleich arbeiten wollen, schließen Sie 
die Datei nach dem Einlesen, um den 
benötigten Diskettenpuffer wieder frei- 
zugeben. Sonst wird mit der Zeit das 
System verstopft. 

Als Drittes wird der Funktion ein Inte- 
gerfeld übergeben. In dieses werden 
während des Einlesens - analog zur 
Stringverarbeitung in Basic - String- 
descriptoren abgelegt. Jeweils zwei 
aufeinanderfolgende Feldelemente 
enthalten Informationen zum selben 
String. Das erste Feldelement eines 
Paares enthält die Anfangsadresse 
einer Zeile und das zweite dessen 
Länge. Um die Länge einer Zeichen- 
kette festzustellen, braucht jetzt also 
nicht mehr die ganze Zeichenkette 
nach einem Nullbyte durchsucht zu 
werden. Das erste nicht mehr benötigte 
Element des Descriptorfeldes wird mit 
Null markiert. Zur Verwaltungsvereinfa- 
chung kann im Hauptprogramm das 
Descriptorfeld auch als Array definiert 
werden, dessen Elemente analog zu 
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char text [), such[]; 
int start, tlen, salen; 
{ 


int i, ende; 
char *txtp, *txt2p, *suchp, *such2p. c; 


if(elen == ]1) { /“ Sonderfall l-Zeichenstring (Geschwindigkeit! */ 
cC = *"such) 
for (txtp = text + start — 1; *txtp != NULL; txtp++) 
if(*txtp == c) 
return txtp - text + 1j 
return 0; 
) else { 
ende = tlen -— slen + \ı /* letzte Position, an der such Platz hat */ 
txtp = text + start - 1; /* Anfang nicht beachten */ 
suchp = such + 1} 
for(i = startı i <= ende; i++) ( 7/* moegliche Anfangspos. von auc */ 
i£f(*such == *txtp++) 7/* Kontrollschleife nicht immer nitig */ 
for (such2p = suchp, txt2p = txtpı *such2p == *txt2pı txt2p++) 
if(*++such?2p == NULL) /* wenn Ende von such, dann o.k */ 
return i; 
} 
return (0; 


Datei von Diskette einlesen: dabei mehrfache Zeilenuebergaenge (CR. LF und 
Leerzeilen) arsatzen durch ein einziges NULL’. Zeichen °/’ gelten als 
logische Zeilenuebergaenge. Zusaetzlich Aufbau eines 
Stringdescriptorenfeldes: je 2 aufeinaderfolgende descript-Elemente 
enthalten Adresse und Laenge einer Zeile 


einlesen (name, datei, descript) 
char name[)], dateil)]; 

int descript[); 

{ 


char *dateip. puffer [BUFGIZ)]; /* "puffer’” ist Datenpuffer zum Diakıo */ 
int c., *"rzeilp, lenı /* "*tzeilp Zeiger in Descriptorenfeld*/ 
if(fopen (nama, puffer) == ERROR) { /* Hier Anpassung an verwendeten*/ 

puts("***** Datei '*); /* Compiler notwendig ! ./ 


puts (name); 
puts("" nicht gefunden *****"\n"); 
exit(); 

) 

zeılp = descriptj; 


“zeilp++ = dateip = datei; /“ Adresse der ersten Zeile u; 
len = 0; /° &Startweart fuer Zeilenlaenge */ 
while((c = getc (puffer)) !» CPMEOF) ( /* Lesen. bis EOF auftritt n/ 
if(c == ERROR) { 
i£f(*(dateip - 1) != NULL) { /* Unerwartetes Dateiende wie */ 
“dateıp++ = NULL; /* Zeilenende behandeln ®/ 
“zeilp++ = len; 
zeilp++j 
} 
break; 
) 
if(c == 13 Il c== 10 || c == °/°) { /* Newlinemarkier. der Datei*’/ 
i£(*(dateip - 1) !I= NULL) { /* Leerzeilen nicht beachten */ 
*dateip++ = NULLI 
*zeilp++ = len; /* Laenge in Stingdescriptor */ 
*zeilp++ = dateip|ı /* Adresse naechste Zeile “/ 
len = 0j 
3 
) else { 
*dateıp++ = cj /° “normales” Zeichen of 
len++} 
) 
} 
*dateip = EOF; /“ Ende der Datei “4 
®--zeilp = 0; /* Auch im Descriptorfeld u, 
‚ 
/* 
Datei fuer Verwendung durch Eliza vorbareiten:ı Anfangsadressen der 
Begruessungszeile, der Konjugationsregaln, Schluessaelwortgruppen beastımman 
Nach jeder Schluessalwoartgruppe folgt ein 6Batz dazupassander Antworten 
7 


ordnen (descript, servus, konjfirst. kaylıst) 
int descript[]). *sarvus, *konjfirst, kaylistf)ı 
( 


char **"zeilp; 
int *keyp, ij 


zeilp = descriptı /“ Header - zeilen ueberspringen en 
while (**zeilp I= '$') /“ "98° ist Zeichen fuer Gruppanende ”/ 
zeilp += 2; 
“servus = zeilp + 2j /* Begruessaungszeile 4 
zeilp += 6j 
*konjfirat = zeilpı /* Deacriptor der arsten Konjugation marken */ 
while (**zeilp I= °$°‘) /" Vebrige Konijugationen ueberspringen N 4 
zeilp += 2j 
zeilp += 2j /* Korrektur “/ 
kayp = kaeylıatı /* Adressen der &chluesselgruppen ın Feld “/ 
i = 0; /* 0 = &chlueasalwort, 1 = Antwort “/ 
while (*"zeilp I= 0) { /! bis Dateiende #7 
*kayp++ = zeilpı /* Start &Gchlueasal/ Antwortgruppe 6 
if(i) /* 1 bedeutet Antwortgruppe nl 
*kayp++ = zeilpı /® Antwortgruppe doppelt ablegen (ist = 
im fij /® noetig EL 





/* 


5 






































while (**zeilp != 39°’) 
zeilp += 2; 
zeilp += 2; 


/* UVebrige 6Saatze der Gruppe ueberspriıngen */ 


) 


*keyp = 0; /* Ende der Schluessaelworttabelle n7 


Zeile von der Tastatur holen; dabei Rueckgabe der Zeilenlaenge, ent- 
fernung aller Apostrophe ""*" aus Text und Umwandlung in Kleinbuchstaben 


holeeing(eingabe, einlen) 
char eingabe[); 
int *einlen; 


{ 


“ 


“rf 


char *ziel, *qualle. c; 


puts("ı: "); /? Meldung: Zur Eingabe bereit u; 

getns (aingabe + 1, 7N; /% Zeile holen, maximal 77 Zeichen ”/ 

puts("\n"); 

ziel = quelle = eingabe; 

"ziel=  ; /* Leerzeichen voranstellen nf 

while((c = *qualle++) != NULL) /* Zeichen aus Puffer bis Ende erreicht */ 
11 Ic 1an2\777 /* Wenn kein "‘" wieder ablegen, aber ohne Luecken */ 

(ce < A I|lc> 2) ? tziel+»+ = c : *"ziel++ = c + 32; 

*ziel++ = | /* dabei Umwandlung in Kleinbuchstaben a7 

"zielt+ = ° | /* 2 Leerzeichen anfuegen “/ 

“ziel = NULL; /“ Endemarkierung “/ 

“"!ainlen = ziel - eingabe; /* Laenge berechnen ef 


Standard-Antwoartsatz anhand der Eingabe bestimmen: Durchsuchen der 
Eingabe nach Schluasselwoertern; wenn gefunden, waehlen eines beliebigen 
Antwortsatzes aus der zugehoerigen Gruppe 


findantw (antwort. antlen.: restpos, eingabe, einlen, keylist) 
char *antwort[), eıngabel]; 


int keylist()], 


{ 


“antlen, *"restpos., einlen; 
char **zeilp; 
int *keypı posı 


ftor(keyp = keylist; *keyp I= 0j keyp += 3) 
for (zeilp = *keypı **zeilp I= ’$°; zeilp += 2) /* next Schluessel “/ 

if(pos = instr(l, eingabe, einlen, *zeilp, *(zeilp + 1))) ( 
“restpos = poß + *(zeilp + 1)ı /* Gefunden: Ruackgabe Pos. */ 


/* Schleife Wort-gruppe et 


zeilp = *(keyp + 2)ı /* hinter dem Schluesselwort */ 
“antwort = *"zeilp++; /* Rueckgabe Adresse Antwort */ 
*“antlen = *zeilp++; /* Rueckgabe Antwortlaenge 7 
if(*!zeilp != 5°) t /* Baım naechstennal naachste*/ 

“(keyp + 2) = zeilp; /* passende Antwort nf 
) else ({ 

*(keyp + 2) = *"(keyp + 1); /* nach letzter passander nr 
) /“ wieder bei erster beginnen*/ 
return; 


/* 
Nebansatz konjugieren: In Tabelle konj stehen Paarweise Descriptoren auf 
gegenseitig auszutauschande Worte. z.B. your’ in 'my’ und umgekahrt. 

“7 

konjugation (neben, nlen, kon)) 

char neben[]; 

int *nlen., *"konj; 

{ 
char temp[MAXLINE]), **zeilp. *ziel, *qualle, cı 


int l,ı ss, 1lsı sr, 1r, s., r, len; 


len = *'nlen; /* Anfangslaenge des Nebansatzaa “/ 
strcpy (temp. neben); /* wird &chrittweise durch Ergebnsi ersetzt ef 
for(zeilp = konj; **zeilp != "5°; zeilp += 4) ( /* "S’ist Taballandande*/ 


1.2.3; /®* &tartposition zum suchen “7 
SS = *!zeilp; /* Descriptoren eines Wortpaares holen rf 
ls = *"(zeilp + 1); 

sr = *(zeilp + 2); /“ Adresse und Laenge des 2. Wortes er 


lr = *(zeilp + 3); 


while( (s=ınstr (l,neben,len.ss,1ls)) + (rsınstr (lınaben,len.gsr,1r))) ({ 


if(e <r?s: Ir) A /* Test ob 2. Wort in ]l. oder umgekahrt */ 
strcpy(temp + s - 1, gr); /® erstes Wort in temp einfuagen */ 
strcpy(temp + s — 1 + Ir, neben + s - 1 + 15); 
l»s + )]r - 1; /° Rueckuabersatzung &pearren nf 
lan = len + Ir - 1s; /* neue Laenge der Konjugation “7 


} else ( /* Wenn 2. Wort zuerst gefunden, in 1. umwandeln 27 
strcpy(temp + r - 1. 5685); 
strcpy(temp + r - 1 + ls, neben + r - |) + ]1r); 
l=r + ls - li 
len = len + ls -Ir; 
) 
strcpy (neben, temp) ı /* altuelle Version des strings holen */ 
} 
) 
ziel = neban; 
qualle = *(neben + ])) != ° ° ? neben 


while((c = *quelle++) != NULL) 


/%* doppelte Leerzeichen am Zeilenanfang entfernen */ 
neben + 1ı 
/% bis zum Zeilenende *+/ 


Listing 1. Smalltalk mit Eliza (Fortsetzung) 























Records in Pascal »structs« aus je zwei 
Integerzahlen bestehen. Diese Mög- 
lichkeit bieten allerdings nicht alle Com- 
piler. 

Die Funktion »instr(start,text,tien, 
such,sien)« entspricht der gleichnami- 
gen Basic-Funktion. Ab der Position 
»start« (gezählt wird hier ab 1) wirdin der 
Zeichenkette »text« nach dem ersten 
Auftreten der Zeichenkette »such« 
gesucht. Wenn »such« gefunden 
wurde, wird die Position zurückgege- 
ben, an der sie in »text« stand. Andern- 
falls erhält das Hauptprogramm den 
Wert O. Die Suche beginnt nicht unbe- 
dingt am Anfang von »text«, sondern an 
der Position, die »start« angibt. Zur 
Geschwindigkeitssteigerung werden 
der Funktion mit »tlen« und »slen« auch 
noch die Längen von Text und Such- 
string übergeben. Wenn diese Werte 
unbekannt sind, kann im Aufruf immer 
noch »strlen(text)« und »strlen(such)« 
statt »tlen«e und »slen« verwendet wer- 
den. 

Da die Routine sehr oft durchlaufen 
wird, spart man hier nicht an der Pro- 
grammlänge, sondern lieber an der 
Anzahl der insgesamt auszuführenden 
Operationen. Wenn die Suchzeichen- 
kette die Länge 1 hat, wird eine beson- 
ders einfache Schleife durchlaufen, die 
nur eine Abfrage auf »Zeichen gefun- 
den« enthält. Ist die Suchzeichenkette 
länger als ein Zeichen, wird in der äuße- 
ren Schleife zunächst nur geprüft, ob 
das erste Zeichen der Suchzeichen- 
kette mit einem Zeichen des Textes 
übereinstimmt. Erst wenn eine Überein- 
stimmung auftaucht, wird die Schleife 
aufgebaut, die feststellt, ob auch noch 
die folgenden Zeichen passen. Sobald 
ein Unterschied festgestellt wird, bricht 
die Schleife ab. Eine weitere Beschleu- 
nigung ist möglich, wenn Ihr Compiler 
Registervariablen bietet. Sogar »sta- 
tic«-Variablen sind noch wesentlich 


schneller greifbar als »automatic«- 
Variablen. 
Die Funktion »holeeing(eingabe, 


&einlen)« holt eine Eingabezeile von der 
Tastatur. In der Integer-Variablen »ein- 
len« wird die Anzahl der eingegebenen 
Zeichen zurückgemeldet. Die Routine 
gibt vor der Eingabe selbständig ein 
Eingabeprompt (analog zum »A>« in 
CP/M) aus, und beendet die Eingabe 
auf dem Bildschirm durch einen Zeilen- 
vorschub. Vor der Rückgabe werden 
alle eingegebenen Zeichen in Klein- 
buchstaben umgewandelt und Apo- 
strophe »’< entfernt. Vor der Zeile 
stehen jeweils ein und dahinter zwei 
Leerzeichen. 

Die Funktion »konjugiere(&antwort, 
&anlen,konj)« ist die komplizierteste 
Funktion des Programms und eine Spe- 
zielle Eliza-Funktion. Die vollständige 
Verarbeitung eines Konjugationswort- 
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paares entspricht einem Durchlauf der 


for-Schleife. Zunächst werden die LÄn- Lrter mr 2%) /v alle Unterstriche entfernen (falls bei bestimm-*/ 
s i : “ziel+t+ = c; 7/* ten Worten Markierung fuer bereits arsatzt a 
gen und die Adressen der beiden Wör- ziel = NULL; /® notwendig war ®/ 
ter geholt. Die while-Schleife wird so oft | “nlen = ziel - neben; /* neue Zeilenlaenge zurueckgeben “fr 
passiert, bis feststeht, daß weder das 
; h t Y* 
eine noch cas andere Wort sich im Verlassen der Eingabeschleife durch 'bye’. Ein Stern °** in einem Antwort- 
Nebensatz befindet. Wenn mindestens statz veranlasst das Einfuegen eines konjugierten Nebensatzes. Der Neben- 
eines der beiden gefunden wird, wird ” satz ist der Teil der Eingabe, hinter dem &chluessalwort 
das bearbeitet, das im Nebensatz 
zuerst auftaucht. Der temporäre String ee ara2] 
enthält zunächst eine Kopie des char *argvll; 
Nebensatzes. Der Ersatzstring wird an int descript ([MAXZEILEN] , *keyp.ı keylist ([MAXKEYS] . 
die Stelle des temporären Strings einlen, anlen, reatpos, t, npos, nlenı 
p g | 
geschrieben, an der das zu ersetzende nr, datei Se . a Fe ing [MAXLINE] ‚neban [MAXLINE] ı 
Wort steht und der Rest des Nebensat- nu e Be 
. : if(argce <= ])) { /* Datei einlesen und ordnen mE 
zes, der erhalten bleibt, angehängt. name = "ELIZA.DAT"| /* wenn keine Dateinamensangabe:ı RL 
Danach wird die neue Länge des } else { /* Standard ist "ELIZA.DAT’ ./ 
Nebensatzes berechnet und die Start- a a 
position zum Suchen so weitergesetzt, U lt detel, ae a 
: ordnen (descript, Asarvuaı onj. keylist)ı 
daß das eben ausgetauschte Wortnnicht tor (zeilp = descriptı **zeilp I= "8°1 zeilp +2) ( 
noch einmal untersucht wird. Zum Pelze. /* Headerzeilen anzeigen , 
Schluß wird der temporäre String wie- Mur 
der auf den Nebensatz kopiert. Nach u /* Begruesung von Eliza */ 
der vollständigen Konjugation werden ae ing = NULL) /“* alte Eingaba zunaachst loeachen 27 
i for (;;) { /* Hauptschleife des Programms “/ 
eventuelle doppelte Leerzeichen “ do { /* solange abfragen, bis Eingabe unterschiedlich zur letzten */ 
und hinter dem Nebensatz sowie alle holeeing(eagabe. Kainlen); 
Unterstreichungszeichen entfernt. ee "bye ")) /* Programmabbruch = 
Zurückgegeben wird die neue Länge if(t = !strcmp(eagabe.,oldeing)) /* Eingabe war schon mal da eG 
des Nebensatzes. puts ("please don't repeat yourself I\n"); 
} while(t); 
strcpy (oldeing, eagabe); /* neue Eingabe wird alte 7 
Ziegsmsainelkliza £findantw(äantwort, &anlen, &restpos, eagabe, aınlen, keyliat); 
if(npos = instr(l, antwort, anlen, "*", 1)) ( /*Nebensatz einfuagan?*/ 
e em selne 8 lce strcpy(neben, " "); 7/* Nebensatz beginnt hinter S&chluesselwort */ 
a strcpy(neben + ], eagabe + restpos - 1); 
nlen = einlen - restpos + 2j /* Laenge des Neabansatzen */ 
i | i i i konjiugation (neben. &änlen, konj); /* Konjugieren 27 
‚Die Funktion »findantw« gibt zen strcpy(eagabe, antwort); /* &tandard-Antwort nicht zerstoeren!*/ 
Eingabe den passenden Standard- strcpy (eagabe + npos - l, neben) ı/* Nebensatz in Kopie einfuagen"/ 
Antwortsatz und die Position des SELGBN MagaDe 2 pen 7 AN RS ee u 
Nebensatzes in der Eingabe zurück ee en 
Dazu durchsucht die Funktion alle puts (antwort) ı /® Gesamtantwort auf Bildschirm ausgeben */ 
= i puts("\n"); 
Schlüsselwortgruppen nach einer ) 


Br . . . . e ) 
an ee. Listing 1. Smalltalk mit Eliza (Schluß) 


Feld »konj« drei Einträge reserviert. Der 


erste ist ein Zeiger auf die Descriptoren / 
der Schlüsselwörter, der zweite ein Zei- / N 
ger auf den ersten Descriptor der dazu Bee 
passenden Antworten und der dritte ein 2 EEE a TEE: 
Zeiger auf die aktuelle Antwort. Sobald / 
ein Schlüsselwort gefunden wurde, lie- | pesstchar”" au enzulekaie im mire 1906 von’inarsknpatuhegt 
fert die Funktion die Descriptorinhalte / 
der aktuellen Antwort. Danach richtet { Erz{hl’ doch Eliza einfach irgendetwas. 
sich der Zeiger auf den descriptor der wozu Du gerade Lust hast. 
nächsten Antwort. Wenn diese Antwort ; 
nicht mehr zur Gruppe gehört (Inhalt s 
»$«!), wird wieder die erste Antwort zur ee 
aktuellen. So ist sichergestellt, daß alle ara / am / 
zum Schlüsselwort passenden Antwor- a 
ten irgendwann an der Reihe sind. Sour 7 ö 
Wenn Sie nun weiter interessiert sind, el ee nr 
können Sie darangehen, das Programm S 
auszubauen. Vielleicht statten Sie es a u 
mit einem Gedächtnis aus, so daß auch, don’t you believe that i can* 
wenn gerade kein Schlüsselwort in der | Pirann var Karla ae kat 
Eingabe vorkommt, Eliza feststellen 5 
kann, welches Hauptthema in der Luft a 
liegt. Oder Sie testen, wie sich eine perhaps you don’t want to* 
andere Suchreihenfolge (etwa nach der EN 
Lage im Text statt nach der Reihenfolge you are Listing 2. Elizas 
in der Datei) auf die Antworten auswirkt. ae Antworten als Datel 
(Helmut Tischer/hg) 


AST- 
4 u9Jaln 
» 
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what makes you think i am*® 

doas it please you to believe i am* 
perhaps you would like to be* 

do you sometimes wiah you where* 
$ 

i dont 

5 

dan ’t you really* 

why don't you* 

do you wish to be able to* 

does that trouble you? 

9 

i feel 

$ 

tell ma more about such feelings. 
do you often fael* 

do you enjoy feeling* 

E) 

why dont you 

S 

do you really beliava i don’t* 
perhaps in good time i will* 

do you want me to* 

9 

why cant i 

9 

do you think you should be able to* 
why can't you® 

s 

ara you 

9 

why are you interestet in whether or not i am* 
whould you prefer if i where not* 
perhaps in your fantasies i am“ 

g 

i cant 

9 

how do you know you can’t*® 

have you tried? 

perhaps you can now“ 


3 
ı am 
ım / 
9 


did you come to ma because you are* 
how long have you baan*® 
do you believe it is normal to be* 


do you enjoy being*® 


5 

you / 

$ 

wa were discussing you-- not me. 
oh, i* 


you're not really talking about me, area you? 
5 

i want 

$ 

what would it mean to you if you got* 
why do you want*® 

suppose you soon got“ 

what if you never got“* 

i sonetimes also want“ 

$ 

what 

how 

who 

where 

when 

why 

$ 

why do you ask? 

does that question interest you? 

what answer would please you the most? 
what do you think? 

are auch questions in your mind often? 
what is that you really want to know? 
have you asked anyoana alse? 

hava you asked such questions before? 
what else comes to mind whan you ask that? 
$ 

name 

9 

names don’t interest me. 

i don't care about names-- please go on. 
$ 

cause 

S 

is that the real reason? 

don’t any other reasaons come to mind? 
doeas that reason explain anything alse? 
what other reaaona might thare be? 

$ 

sorry 

$ 

please don’t apologize! 

apologıes are not necassary. 

what feelings do you hava, when you apologize? 
don’t be so defansive! 

$ 

dream 

9 

what does that dream suggest to you? 

do you dream often? 














what persons appear in your dreams? 
are aou disturbed by your dreanma? 

$ 

hello 


hi / 
$ 
how da you do ... please state your problen. 
s 
maybe 
S 
you don't seem quite certain. 
why the uncertain tone? 
can’t you ba more positive? 
you aren’t sure? 
don’t you know? 
3 
no 
3 
why no*® 
don’t say no. its always ao nagative. 
why not? 
are you saure? 
why no? 
$ 
your 
5 
why are you concerned about my* 
what about your own*® 
9 
always 
$ 
can't you think of a specific exanple? 
when? 
what are you thinking of? 
really, always? 
9 
think 
3 
do you really think so? 
but you are not sure you“ 
do you doubt you“ 
in what way? 
$ 
alike 
3 
what resemblance do you see? 
what does the similarity suggast to you? 
what other connections do you See? 
could there really be some connections? 
how? 
you seem quite positive. 
are you sure? 
$ 
yes 
$ 
i see. 
i understand. 
9 
friend 
$ 
why do you bring up the topic of friends? 
do your friends warry you? 
do your friends pick on you? 
are you &ure you have any friends? 
do you impose on your frienda? 
perhaps your love for friends worries you. 
$ 
computer 
S 
do computera worry you? 
ara you talkink about me in partikular? 
are you frightened by machines? ‚ 
why do you mention computers? 
what do you think machines have to do with your problems? 
don’t you think computers can help peopla? 
what is it about machines that worries you? 


$ 
monay 
$ 
why do you have problems with money? 
do you think money is everything? 
ara you aure that money is the problem? 
$ 
aliza 
3 
i think we want to talk about you, not about me. 
whats about me? 
why do you always bring up my nane? 
$ 
r 
S 
gayı do you have any psychological problena? 
what does that suggest to you? 
i nee. 
im not saure i understand you fully. 
come ealucidate your thoughts. 
can you elaborate on that? 
that is quite interesting. 
3 


Listing 2. Elizas Antworten als Datel (Schluß) 


109 























Forth: Programmieren 


in der vierten Dimension 


Eine Programmiersprache, die 
sich in der letzten Zeit ständig 
steigender Beliebheit erfreut, 
ist Forth. Zu Recht, denn Forth 
ist eine äußerst leistungsfähige 
Sprache mit einem ungewöhnli- 
chen Konzept. Schwer zu lernen 
ist sie nicht. 


eit es Computer gibt, ist das zen- 

trale Problem die Kommunika- 

tionsschnittstelle Mensch/ Com- 
puter - oder anders formuliert, wie sage 
ich meinem Computer, was er tun soll? 
Während in der »grauen Vorge- 
schichte«e der EDV noch bitweise pro- 
grammiert werden mußte, erwies sich 
dieses Verfahren im Laufe der Zeit als 
viel zu umständlich. Es entstanden 
höhere Programmiersprachen, die sich 
einer bestimmten Anzahl von Befehls- 
worten bedienen. Meist sind diese an 
die menschliche Sprache angelehnt. 
Zu solchen höheren Programmierspra- 
chen zählen beispielsweise Fortran, 
Basic, Pascal, C oder Lisp, um nur 
einige zu nennen. 

Betrachtet man sich die Entwicklung 
in der Computertechnik, so stellt man 
fest, daß sich, seitdem das erste Röh- 
rengerät in Betrieb ging, bis zum heuti- 
gen Tage die Hardware rasant weiter- 
entwickelt hat. Anders die Software. 
Hier dominieren noch immer Sprachen 
wie Fortran und Basic, die in ihren 
Ursprüngen in die fünfziger Jahre 
zurückreichen. 

Daß Programmiersprachen für Com- 
puter, die Sie heute nur noch im 
Museum bewundern können, nicht 
immer den heutigen Ansprüchen genü- 
gen, ist leicht einzusehen. Vor allem 
Basic, das sich mittlerweile zum Stan- 
dard für kleine und mittlere Systeme 
entwickelt hat, hinkt den Ansprüchen 
der meisten Programmentwickler weit 
hinterher. Zwar ist es leicht zu erlernen 
und besitzt eine unkomplizierte 
Befehlssyntax, aber strukturierte Pro- 
gramme, lokale Variablen und ähnliches 
sind für die meisten Dialekte tabu. 

Was tut also der (Basic-)Jfrustrierte 
Programmierer? Er sucht sich eine 
neue Sprache, die seinen Ansprüchen 
besser gerecht wird. Und da beginnt 
das Dilemma. Welche der vielen Kon- 
kurrenten kommt für ihn in Frage? Hier 
ist es hilfreich, sich zu überlegen, was 
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die »neue Traumsprache« alles leisten 

soll. Folgende Punkte sind dabei für 

jeden Programmierer wichtig. Die Spra- 

che soll: 

- schnell sein, 

- strukturiertes Programmieren ermög- 
lichen, 

- auf andere Computertypen übertrag- 
bar sein, 

- die Stärken des eigenen Geräts 
unterstützen, 

- erweiterbar sein, 

- möglichst wenig des kostbaren RAM- 

Speichers belegen, 

- relativ leicht zu erlernen und zu ver- 
stehen sein. 

Wenn das auch Ihre Vorstellungen 
einer nahezu idealen Programmierspra- 
che sind, dann brauchen Sie nicht län- 
ger zu suchen. Denn solch eine Traum- 
sprache gibt es schon - Forth. 

Zwar ist auch Porth nicht die Program- 
miersprache schlechthin, doch weist 
sie zumindest die oben aufgeführten 
Vorteile (und noch einige mehr) auf. 
Was es damit tatsächlich auf sich hat, 
darüber klären Sie die nächsten Seiten 
auf. Sie ersetzen zwar kein Handbuch 
von Forth (es können auf so wenig Sei- 
ten niemals alle Anweisungen erklärt 
werden), aber wir wollen versuchen, 
Ihnen ein Gefühl für den typischen Cha- 
rakter von Forth zu geben. Vielleicht 
kommen Sie auf den Geschmack, sich 
mit dieser faszinierenden Sprache 
näher zu befassen. 


Forth, Sprache für 


Forth wurde Ende der sechziger 
Jahre entwickelt und ursprünglich zur 
Steuerung und Auswertung der Meßda- 
ten einer Sternwarte eingesetzt. Schon 
damals stand die Zukunft von Forth im 
wahrsten Sinne des Wortes in den Ster- 
nen, denn die amerikanische Weltraum- 
behörde NASA wählte Forth als 
Sprache für zukünftige Satellitenpro- 
gramme. Doch bevor es dazu kommen 
sollte, blieb es bis Ende der siebziger 
Jahre sehr ruhig um diese Sprache. 
1977 gründete eine nichtkommerzielle 
Gruppe von Programmierern die »Forth 
Interest Group« (FIG) und machte Forth 
damit einer breiteren Öffentlichkeit 
zugänglich. Es entstand als Standard 

















FIG-Forth, aus dem sich zwei Jahre spä- 
ter der Forth 79-Standard entwickelte. 
Beide Versionen sind heute im Heim- 
und Personal Computerbereich verbrei- 
tet. Der Unterschied dieser Dialekte ist 
nur gering, so daß sich FIG-Forth- 
Programme leicht in den 79-Standard 
umsetzen lassen - und umgekehrt. 

In unserer Einführung wollen wir im 
wesentlichen das ältere FIG-Forth 
benutzen. Etwaige Abweichungen zum 
79-Standard bleiben aber auch nicht 
unerwähnt. 

Mittlerweile wird für fast jedes Com- 
putersystem eine Forth-Version ange- 
boten. Da die Sprache kaum Speicher- 
platz beansprucht, ist sie ideal für klei- 
nere Systeme geeignet. Im allgemeinen 
benötigt Forth nicht mehr als 10 KByte 
RAM-Bereich. Je nachdem, welche 
Extras zusätzlich implementiert sind, 
kann sich dieser Bereich natürlich erhö- 
hen. 

Forth kommt im Prinzip ohne Massen- 
speicher aus, weshalb sich ein Disket- 
tenlaufwerk erübrigt. Da beim Heim- 
computer die Programme nicht im ROM 
vorliegen, braucht man aber unbedingt 
einen Kassettenrecorder. Dennoch, 
wie bei allen Sprachen ist auch unter 
Forth der Gebrauch eines Disketten- 
laufwerks angenehmer als ein Datenre- 
corder. Auch kommen einige Stärken 
von Forth nur mit einem Laufwerk zum 
Tragen. 

Nachdem Sie Ihre Forth-Version gela- 
den und gestartet haben, erscheint, 
zusammen mit einer Mitteilung über die 
Herkunft des Systems, der gleiche Cur- 
sor, den Sie sicher schon von Basic her 
bestens kennen. 

Zwei verschiedene Wege gibt es, um 
sich mit der neuen Sprache vertraut zu 
machen. Entweder Sie starten einen 
»Irockenkurs« und studieren das Hand- 
buch in allen Einzelheiten, oder aber Sie 
legen alle Hemmungen ab, geben 
irgendetwas ein und warten, was der 
Computer machen wird. Entscheiden 
Sie sich für die zweite Art, so werden 
Sie sehr oft eine nüchterne Fehlermel- 
dung auf dem Bildschirm vorfinden. 
Diese besteht entweder aus einem 
Kommentar wie zum Beispiel »CANT 
FIND« oder aus einer Ziffer, die die Feh- 
lerart anzeigt. Manchmal wird der Com- 
puter aber auch mit einem lapidaren 
»OK« antworten. Immer dann haben Sie 
eine Forth-Anweisung richtig benutzt. 

Für den Fall, daß Sie aber den Wort- 








schatz ohne langes Ausprobieren ken- 
nenlernen wollen, ist in fast jedem 
Forth-Compiler eine Anweisung vorge- 
sehen, die alle Befehle auf dem Bild- 
schirm ausgibt. »VLIST« oder »WORDS« 
sind zwei häufig gebrauchte Kennworte 
für diesen Befehl. Dieses Wörterbuch 
zeigt sämtliche Anweisungen, die Ihr 
Compiler versteht. Ganz egal, ob es 
sich um vor- oder selbstdefinierte 
Befehle handelt. 


Erste 
Komtalctewimeanme 


Unter Forth müssen alle Eingaben mit 
der RETURN- (oder ENTER-) Taste 
abgeschlossen werden. Die eingege- 
benen Worte lassen sich in drei Grup- 
pen unterscheiden - in »Nonsens«- 
Worte, die der Compiler mit einer Feh- 
lermeldung quittiert, in Anweisungen 
oder in Zahlen. Denn auch wenn Sie nur 
eine Zahleingeben, reagiert der Compi- 
ler darauf mit »OK«, das heißt, er akzep- 
tiert den Befehl ohne Probleme. Was ist 
nun mit dieser Zahl geschehen? 

Bei nahezu allen Operationen in Forth 
spielt der Stack eine zentrale Rolle. Der 
Stack (zu deutsch Stapelspeicher) ist 
nichts anders als ein kleiner Speicher- 
bereich, der nach einem besonderen 
Prinzip verwaltet wird. Jede Zahlenein- 
gabe von der Tastatur, die mit RETURN 
abschließt, landet zuerst einmal im »lop 
Of Stack« (TOS), also in der obersten 
Speicherzelle (eine Speicherzelle ist 
ein 16-Bit-Register) des Stacks. 

Jede neu hinzukommende Zahlen- 


Forth=-Sie-'brio* 


- Forth wurde Ende der sechziger 
Jahre in den USA entwickelt. 

- Forth ist eine Compilersprache, mit 
der Sie aber auch Interaktiv arbeiten 
können. 

- Forth ist sehr schnell. Vergleich- 
bare Programme brauchen in Basic 
bis zu 20mal mehr Zeit als in Forth. 
- Der Befehlssatz in Forth besteht 
aus 200 bis 300 Wörtern. Ein Wort 
läßt sich mit einem Unterprogramm 
in Basic oder besser mit einer Proze- 
dur in Pascal vergleichen. Der 
Benutzer kann diesen Wortschatz 
um eigene Definitionen erweitern. 
Diese neuen Wörter sind im 
Gebrauch mit den Standard-Forth- 
Wörtern vollkommen identisch. 

- Bei Forth-Wörtern handelt es sich 
entweder um Secondaries, die wie- 
derum aus Forth-Wörtern aufgebaut 


























Bild 2. Die Ausgabe auf den Bildschirm erfolgt immer vom TOS 


eingabe wird ebenfalls dort abgelegt. 
Alle bereits vorhandenen Zahlen rut- 
schen um eine Position nach unten. Bei 
der Ausgabe vom Stack kommt als 
erstes die Zahl im TOS an die Reihe. Da 
es sich hierbei immer um die zuletztein- 
gegebene Zahl handelt, wird das Ganze 
als »Zuletzt rein - zuerst raus«-Prinzip 
bezeichnet. Im Fachenglisch heißt das 
dann »Last In - First Out«-Prinzip (kurz 
LIFO). 

Alle Operationen, die den Stack be- 
einflussen, arbeiten nach diesem Ver- 
fahren. Deswegen sollten Sie sich 


sind, oder um Primitives, welche in 
Maschinencode definiert sind. 

- Forthrechnet nur mit Integerzahlen 
von 16 oder 32 Bit Breite. 

- Forth belegt in der Regel zwischen 
8 und 12 KByte Speicherplatz 
(hängt von dem Umfang des Wort- 
schatzes ab). 

- Forth verwaltet den Diskettenspei- 
cher virtuell, das heißt RAM- und 
Diskettenspeicher sind formell 
gleichwertig. 

- Forth ist weitgehend standardi- 
siert, das heißt alle für Heim- und 
Personal Computer angebotenen 
Versionen leiten sich vom FIG-Forth 
ab. FIG-Forth stammt von der Forth 
Interest Group, einer nichtkommer- 
ziellen Vereinigung von Programmie- 
rer. 

- Die Rechenoperationen werden in 
Forth nach den Regeln der Umge- 
kehrten Polnischen Notation (UPN) 
durchgeführt. 








damit gut vertraut machen. Bereitet 
Ihnen die Arbeitsweise noch Schwierig- 
keiten, dann hilft Ihnen vielleicht folgen- 
der Vergleich weiter. 

Stellen Sie sich einen Schreibtisch 
vor, auf dem ein Stoß Papierliegt. Legen 
Sie ein Blatt auf dem Stoß ab, so landet 
es auf der obersten Stelle. Das nächste 
Blatt liegt darüber und an oberster Posi- 
tion befindet sich damit immer das Blatt, 
das zuletzt abgelegt wurde. Wollen Sie 
nun den Papierstoß abarbeiten, dann 
nehmen Sie zuerst das oberste Blatt 
weg. Und dieses ist das zuletzt hinge- 
legte. Das schon am längsten auf dem 
Tisch liegende Papier ist das letzte 
beim Abarbeiten. Und so funktioniert 
auch der Stack in Ihrem Computer. 

Nach soviel Theorie zurück zu Forth. 
Wir wissen nun, wie der Stack verwaltet 
wird und wollen ausprobieren, wie wir 
drei Zahlen auf den Stack legen und 
wieder herunterholen können. Wir 
geben einfach folgende Zeile ein: 
149 -2 

Zwischen zwei Zahlen muß immer ein 
Leerzeichen stehen und die Zeile mit 
der RETURN-Taste beendet werden. 
Der Computer quittiert die Eingabe mit 
»OK«. Was ist nun aber auf dem Stack 
passiert? Dazu betrachten wir Bild 1, 
das uns zuerst den »leeren« Stack und 
zum Schluß den »vollen« Stack zeigt. 
Zuerst wurde die 14 im TOS abgelegt, 
dann die 9 (gleichzeitig wandert die 14 
um eins nach unten) und zum Schluß 
die -2 (die andern beiden Werte wan- 
dern nach unten). 

Um diese Zahlen wieder vom Stack 
auszugeben, lernen Sie nun Ihr erstes 
Forth-Wort kennen (Befehle, bezie- 
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hungsweise Anweisungen, werden in 
Forth als Wort bezeichnet). Es handelt 
sich um einen unscheinbaren Punkt. 
Durch ».« wird die Zahl im TOS (Top Of 
Stack) auf den Bildschirm ausgegeben. 
. -2 ok 

Nach der Eingabe des Punktes und 
der RETURN-Taste reagiert der Compu- 
ter mit der Meldung »-2 OK«. Wir wollen 
im folgenden immer die Zeile so ange- 
ben, wie Sie nach der Bearbeitung aus- 
sieht. Eingeben dürfen Sie natürlich nur 
die Forth-Wörter (in diesem Falle also 
nur den Punkt). Sie können natürlich 
auch mehrere Zahlen auf einmal ausge- 
ben lassen: 
.. 914 0K 

Der nächste Punkt veranlaßt den 
Computer zu einer Fehlermeldung, da 
der Stack leer ist: 
. O0 EMPTY STACK 

Bild 2 zeigt Ihnen, wie sich der Stack 
bei der Ausgabe der Zahlen verändert. 
Sie sehen dabei, daß jede Zahl, die 
durch ».« auf dem Bildschirm erscheint, 
gleichzeitig vom Stack verschwindet 
und sich alle anderen Zahlen um eine 
Position nach oben bewegen. 

Bevor wir zu unseren ersten Rechen- 
aufgaben in Forthn kommen, müssen wir 


UPN = Rechnen 
in der umgekehrten 
Polnischen Notation 





Forth zeigt einige unkonventio- 
nelle Lösungswege, Computer- 
programme zu erzeugen. Beson- 
ders das Rechnen in Forth unter- 
scheidet sich von fast allen 
anderen Computersprachen. 


er Stack ist das wichtigste 
Hilfsmittel zum Rechnen in 
Forth. Dazu stehen verschie- 
dene Operatoren und Befehlswörter 
zur Verfügung. Allerdings muß man bei 
dem Jonglieren mit Zahlen in Forth 
einige spezifische Besonderheiten 
beachten: 

- Alle Operationen werden nach den 
Regeln der Umgekehrten Polnischen 
Notation (UPN) durchgeführt. 

- Forth rechnet nur mit Integerzahlen 
(ganze Zahlen). 

- Forth kennt in der Standard-Version 
nur die vier Grundrechenarten. 
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-gibt die Zahl im TOS 
(oberste Zahl im 
Stack) aus 


. lext« -gibt die Symbole zwi- 


schen den Anfüh- 
rungszeichen als Text 
aus 

-bewirkt einen Zeilen- 
vorschub 





Tabelle. Ihre ersten Wörter In Forth 


uns noch einmal ganz genau mit der 
Syntax von Forth auseinandersetzen. 
Befehlswörter dürfen in Forth beliebig in 
einer Zeile stehen. Allerdings muß 
immer mindestens ein Leerzeichen 
zwei Anweisungen trennen. Anders als 
beispielsweise in Basic, wo es einen 
festgelegten, im Grunde nicht mehr 
erweiterbaren Befehlssatz gibt, kann 
jedermann Forth um neue Befehle 
bereichern. Da dabei jede Zeichenkom- 
bination als Wortname erlaubt ist, stel- 
len die Leerzeichen für den Textinter- 
preter die einzige Möglichkeit dar, die 
Wörter voneinander zu unterscheiden. 

Auch Texte lassen sich unter Forth 
auf den Bildschirm ausgeben. Dazu 


UPN ist eine Vorschrift für die Durch- 
führung von Rechenoperationen unter 
Einbeziehung eines oder mehrerer 
Stacks. Nehmen Sie als Beispiel die 
Operation »33+4=« (hier noch in der 
Basic-typischen Schreibweise). Die 
UPN-Schreibweise bereitet die Be- 
fehlszeile so auf, wie sie der Computer 
am leichtesten bearbeiten kann. Das 
bedeutet, daß zuerst die Operanden 
(Zahlen) und dann die Operatoren 
(Rechenzeichen) eingegeben werden. 
Unser Beispiel sieht dann wie folgt aus: 
334% 

Das Ergebnis befindet sich nach der 
Berechnung im Stack - und zwar im 
TOS (Top of Stack) - und kann dort wei- 
terverarbeitet werden. Der Vorteil der 
UPN gegenüber der Infix-Notation (das 
ist die Basic-übliche Eingabe von 
Berechnungen) machtsich erst bei grö- 
Beren Ausdrücken bemerkbar. Die Ein- 
gabe in Infix-Schreibweise: 
(2+7)/(4*(8-3))= 








dient ein zweites Wort: ».”«. Ein Bei- 
spiel: 
.” OSTERHASE” OSTERHASE OK 

Wenn Sie ».”OSTERHASE”« mit 
RETURN an den Computer abschik- 
ken, dann gibt er den Text »OSTER- 
HASE« zurück. Denken Sie an die rich- 
tige Verteilung der Leerzeichen, da 
sonst der Computer Sie nicht verste- 
hen kann. 

Mit solch einer Textausgabe können 
wir auch unsere Stack-Ausgabe kom- 
fortabler gestalten: 


4 0K 
CR 108”, 
TOS : 4 OK 


Wenn Sie die 4 und die zweite Zeile 
eingegeben haben, dann antwortet der 
Computer mit der dritten. Das neue 
Wort »sCR« bewirkt einen Zeilenvor- 
schub. Beimanchen Compilern funktio- 
niert dieser letzte Befehl nur in Wörtern. 
Wie Sie solche definieren, erfahren Sie 
später. Manchmal darf ».”...”« durch 
».(...)« ersetzt werden. Näheres finden 
Sie in Ihrem Handbuch. Die Wörter des 
ersten Teils der Einführung in Forth faßt 
die Tabelle noch einmal zusammen. 


(Peter Monadjemi/hg) 











braucht bedeutend mehr Platz als die 
UPN-Schreibweise: 
2 7+483-%] 

Sie sehen, daß die UPN weder Klam- 
mern noch Gleichheitszeichen benö- 
tigt. Dadurch ergibt sich neben einer 
kürzeren, Speicherplatz sparenden 
Schreibweise auch ein erheblicher 
Geschwindigkeitsvorteil. Die Klammern 
erfordern vom Computer nämlich immer 
ein Vorausschauen, »wo wird diese wie- 
der geschlossen«. Bei der UPN hinge- 
gen werden bei jedem Rechenoperator 
die beiden obersten Werte im Stack mit- 
einander verknüpft und deren Ergebnis 
direkt im TOS abgelegt. Für unsere Auf- 
gabe bedeutet das, daß mit Eingabe 
des Pluszeichens die 2 und 7 addiert 
und das Ergebnis 9 in den TOS gelegt 
wird. Die Eingabe der drei Zahlen 4, 8 
und 3 bewirkt, daß die 9 an der vierten 
Stelle von oben liegt. Das Minuszei- 
chen berechnet 8 minus 3, legt die 5 in 
den TOS und zieht die beiden anderen 





Werte nach oben. Das Malzeichen mul- 
tipliziert die 5 mit der 4, legt das Ergeb- 
nis ab und schon steht die 9 direkt unter 
der 20. Das Divisionszeichen besorgt 
den Rest, so daß zum Schluß das 
Ergebnis der Rechnung im TOS steht. 
Die UPN ist also nicht etwa ein exoti- 
sches Rechenverfahren, sondern die 
»natürlichste« und effektivste Methode 
für einen Computer, Rechenoperatio- 
nen zu verarbeiten. 

Nun wollen wir uns aber damit befas- 
sen, wie sich der Stack verändert, wenn 
wir die Grundrechenarten bearbeiten 
lassen. Die Addition löst das Zeichen 
»t+« aus. 

45 +0K 

Was ist nun auf dem Stack gesche- 
hen? Dazu betrachten wir uns Bild 1. Sie 
sehen, daß sich vor dem Aufruf von»+« 
die beiden zu addierenden Zahlen an 
den beiden obersten Stellen des 
Stacks befinden müssen. Nach der 
Addition wird das Ergebnis im TOS 
abgelegt. Von dort kann man es mit ».« 
leicht auf den Bildschirm ausgeben. 
> ’9E0K 

Die 9 zeigt an, daß das Ergebnis tat- 
sächlich im TOS gespeichert war. Die 
Subtraktion erfolgt analog: 

16 12 - . 4 0K 

Auch hier müssen sich die beiden 
Zahlen zuerst auf dem Stack befinden. 
»-« zieht die Zahlim TOS von der darun- 
terliegenden ab (siehe Bild 2) und »/« 
ruft die Division auf (Bild 3): 
20®22,/. 2. 10.0K 

Bis dahin ist die Welt noch in Ord- 
nung. Doch das nächste Beispiel führt 
zu einem unerwarteten Ergebnis: 
21.2.7 2.1008 

Hier kommt das schon erwähnte Feh- 
len von Real-(Fließkomma-)zahlen voll 
zum Tragen. Aber keine Bange: Forth 
bietet verschiedene Wege, auch belie- 
big genaue Ergebnisse zu erhalten. Mit 
dem Operator »/« bekommen Sie also 
nur die Vorkommazahl. Um den ganz- 
zahligen Rest dieser Rechenoperation 
zu erhalten, gibt es unter Forth einen 
Befehl, den die meisten Basic-Dialekte 
nicht kennen. 

21 2 MOD . 1 OK 


23 4 MOD . 3 OK 
21 geteilt durch 2 gibt 10, Rest 1 und 
23 geteilt durch 4 gibt 5, Rest 3. Die 





Bild 1. So verändert sich der Stack 
bei der Addition 





ganzzahligen Restbeträge werden bei 
diesem Wort in den TOS gelegt. 

Die Multiplikation aktiviert »*«. 
20 20 * .„ 200 OK 

Allerdings muß man auch hier aufpas- 
sen, nicht den erlaubten Bereich zu ver- 
lassen. So ergibt 
200 200 * „ -25534 OK 





Das Rechnen mit 32-Bit-Zahlen erfor- 
dert spezielle Wörter. Diese erkennt 
man fast immer an einem »D« oder einer 
»2«, mit der der eigentliche Befehl 
beginnt. Damit der Textinterpreter solch 
eine doppelt lange Zahl korrekt erkennt, 
muß diese mit einem Dezimalpunkt ein- 
gegeben werden. Allerdings spielt es 


L 


N 


\ 


| 


| 


ein falsches Ergebnis (beziehungs- 
weise eine Fehlermeldung). Diesmal 
liegt es allerdings nicht an den Integer- 
zahlen, sondern an der Tatsache, daß 
Forth intern nur mit 16 Bit breiten Zahlen 
rechnet. Da das 16. Bit das Vorzeichen 
enthält, ist damit der Rechenbereich auf 
die Zahlen zwischen -32768 und + 
32767 beschränkt -, zugegebenerma- 
Ben ein kleiner Darstellungsbereich. 
Doch auch hier stehen dem Program- 
mierer alle Türen offen. Theoretisch 
können Sie mit beliebig breiten Zahlen 
arbeiten. Von Haus aus erlaubt Forth, 
entweder auf das Vorzeichen zu ver- 
zichten oder aber mit 32 Bit breiten 
Zahlen zu arbeiten. Beide Fälle setzen 
allerdings spezielle Wörter voraus. So 
erhalten Sie bei unserer »verunglück- 
ten« Multiplikation mit 

200 200 * U. 40000 OK 

doch noch ein vernünftiges Ergebnis. 
Mit »U.« wird die Zahl, die im TOS steht, 
als vorzeichenlose Zahl auf dem Bild- 
schirm ausgegeben. 





Bild 2. So verändert sich der Stack 
bei der Subtraktion 
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dabei keine Rolle, an welcher Stelle die- 
ser Punkt steht. 
222.222 OK 
Au,ALLL OK 
D+ OK 

Durch »D+« werden die beiden dop- 
pelt langen Zahlen im Stack addiert und 
das Ergebnis im TOS abgelegt. Wie 
bekommen Sie nun diesen Wert auf den 
Bildschirm? Sicher nicht mit ».«. Denn 
damit erhalten Sie nur die niederwerti- 
gen 16 Bit der 32-Bit-Zahlausgegeben. 
Auch hier ist ein besonderes Ausgabe- 
wort notwendig, nämlich »D.«. 
D. 666666 OK 

Bislang wurde die Anordung der Zah- 
len auf dem Stack durch die Reihen- 
folge der Eingabe festgelegt. Sehr oft 
besteht jedoch die Notwendigkeit, 
diese Reihenfolge zu verändern, bezie- 
hungsweise einzelne Zahlen auf dem 
Stack zu kopieren. Auch dazu stehen in 
Forth eine Reihe von Befehlen zur Ver- 
fügung. Die wichtigsten erklären wir 
Ihnen im folgenden. 





Bild 3. So verändert sich der Stack 
bei der Division 
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34 DUP OK 
. . 34 34 OK 

»DUP« (Bild 4) kopiert die Zahl im TOS 
und verschiebt die darunterliegenden 
um eins nach unten. Die Operation ist 
beispielsweise immer dann notwendig, 
wenn eine Zahl im TOS zwar ausgege- 
ben, mit ihr aber noch weiter gerechnet 
werden soll. 


67 88 SWAP OK 
088 0R 


»SWAP« (Bild 5) vertauscht die bei- 
den obersten Zahlen im Stack. Norma- 
lerweise muß ja die zuletzt eingege- 
bene Zahl als erste wieder auf dem Bild- 
schirm erscheinen (LIFO-Prinzip: Last 
in first out). Das wäre hier die 88 gewe- 
sen. »SWAP« hat nun aber die beiden 
obersten Werte im Stack vertauscht, so 
daß die 67 im TOS stand und damit auch 
zuerst ausgegeben wurde. 


12733 65. ROT OK 
12565 3 300K 


»ROT« läßt die obersten drei Zahlen im 
Stack einmal gegen den Uhrzeigersinn 
rotieren. Wie sich dabei der Stack ver- 
ändert, zeigt am besten Bild 6. Durch 
»ROT« wird die Zahl von der dritten 
Stelle im Stack ins TOS gebracht, wäh- 
rend die beiden darüberliegenden 
Werte um eine Position nach unten wan- 
dern. Alle Befehle (und noch einige 
mehr) finden Sie in der Tabelle noch ein- 
mal zusammengefaßt. 

Normalerweise werden alle Ein- und 
Ausgaben von Zahlen im Dezimalsy- 
stem durchgeführt. Forth ist jedoch in 
der Lage. beispielsweise die Zahlen in 
nahezu jedem System auszugeben. 
Dazu ist lediglich der Inhalt einer eınzi- 
gen User-Variablen mit dem Namen 
»BASE« zu ändern. Bei den User- 
Variablen handelt es sıch um Speicher- 





Bild 5. nSWAP« vertauscht den Wert 
im TOS mit dem darunterliegenden 
Stackwert 
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Die Erklärung der Darstellung der Befehle finden Sie im letzten Kapitel. 


+ (ni n2bisn3) - 


addiert die beiden obersten Zahlen des Stacks 


und legt das Ergebnis im TOS ab 


- (ni n2 bis n3) 
TOS ab 
/ (ni n2 bis n93) 
TOS ab 


MOD (n1 n2 bis n3) 


subtrahiert n2 von ni und legt das Ergebnis im 
dividiert nt durch n2 und legt das Ergebnis im 


dividiert ni durch n2 und legt den ganzzahlligen 


Rest im TOS ab 


c@ (abisn) 

?”(abis n)* 
schirm 

I(n a usw.) 


holt ein Byte und speichert es im TOS 
wie »sc@«, aber mit Ausgabe auf dem Bild- 


speichert Zahl in der Adresse a, die im TOS 


angegeben ist 





Tabelle. Die In diesem Abschnitt neu vorgestellten Befehle und deren 


»Geschwister« 


werte, die wichtige Systemgrößen bein- 
halten. So enthält zum Beispiel »SO« die 
Adresse des Stacks, »DP« den Beginn 
des Wörterbuches und »BASE« den 
Wert der aktuellen Zahlenbasis. 

Der Aufruf einer User-Variablen holt 
jedoch in Forth nicht den Wert, sondern 
die Speicheradresse, unter der der 
Wert zu finden ist. Um den aktuellen 
Wert von »BASE« zu erfahren, brauchen 
wir ein Wort (Anweisung) vom Typ: »Gib 
den Inhalt der Speicherzelle mit der 
Adresse addr aus«. Solch ein Wort stellt 
»C@« (manchmal auch »?«) zur Verfü- 
gung. 

BASE C . 10 OK 

Diese Anweisung bringt den aktuel- 
len Wert der User-Variablen BASE auf 
den Bildschirm. Um den Wert zu 
ändern, benötigen wir ein Wort vom 
Typ: »Lege den Wert a unter der 
Adresse addr ab«. Dieses Wort lautet 
»!«. Sowohl der Wert »a« als auch die 
Adresse »addr« müssen sich auf dem 
Stack befinden - und zwar in der richti- 
gen Reihenfolge. Nach der Eingabe 
muß die Adresse (in diesem Fall BASE) 
im TOS stehen. 

63 2 BASE ! OK 

. 111127 ©&K 

Die Zahlen 63 und 2 werden auf den 
Stack gelegt, dann die Adresse BASE 
im TOS gespeichert. Das Wort »!« 
ändert die Ausgabefunktion auf Dual- 





Bild 6. „ROT« bringt den dritthöchsten 
Wert In den TOS und schlebt die beiden 
anderen Werte um eins weiter nach unten 








zahlen. Mit ».« erscheint dann die 63 in 
dualer Form (111111) auf dem Bild- 
schirm. Da wir gerade auf Dualzahlen 
umgeschaltet haben, muß jetztauch die 
Eingabe in dualer Form erfolgen. 
923 ? CAN'T FIND 

Die Zahlen 9 und 23 sind keine Dual- 
zahlen und deshalb gibt der Compiler 
eine Fehlermeldung (hier »CANT 
FIND«) zurück. Mit 
11 BASE ! OK 
schalten wir auf die Zahlenbasis »3« um 
(11 dual ist 3 dez). Da es nun etwas 
kompliziert ist, die richtige Ziffernfolge 
für Dezimalzahlen zu finden (10 dez = 
1010 dual = 101 zur Basis 3), gibt es 
unter Forth das Wort »DECIMAL«, das 
immer wieder zum vertrauten Dezimal- 
system zurückführt. 
DECIMAL OK 

Ein kleines Beispiel zeigt eine beein- 
druckende Lösung eines Problems, das 
in vielen anderen Sprachen nur bedeu- 
tend umständlicher gelöst werden 


kann. 
»DUALS2 BASE! ; OK 
: DOPPEL 
20 O0 DO CR I DECIMAL . 
I DUAL . LOOP ; OK 


Wir haben zuerst das Wort »DUAL« 
zur Umschaltung auf Dualzahlen defi- 
niert und dann die Anweisung »DOP- 
PEL«. Wie man Wörter bestimmt und 
auch wie die Schleife »DO ... LOOP« 
arbeitet, finden Sie in den folgenden 
Kapiteln. Hier sollen Sie das Programm 
nur eintippen und starten. Nach dem 
Aufruf von »DOPPEL« ergibt sich auf 
dem Bildschirm folgendes Bild: 








Forth lemt dazu 


Einen der größten Vorteile von Forth macht der sehr einfache 
Ausbau seines Wortschatzes aus. Jede Forth-Version kann sein 
Benutzer mit neuen, selbstdefinierten Anweisungen erweitern. 





RB: als beispielsweise in 
Basic bestehen Forth-Pro- 
gramme nicht aus einer be- 
stimmten Anzahl von Programmzeilen, 
sondern aus Wörtern. Jedes diese Wör- 
ter kann weitere beinhalten, die wie- 
derum neue Wörter enthalten dürfen 
und so weiter. Dieser extrem modulare 
Aufbau führt dazu, daß das eigentliche 
Hauptprogramm letzten Endes aus nur 
einem einzigen Wort bestehen kann. 

Ein solches »Forth-Wort« läßt sich mit 
einem Unterprogramm in Basic oder 
einer Prozedur in Pascal vergleichen. 
Es gibt verschiedene Wege, sich selbst 
solch eine Anweisung zu definieren. 
Die einfachste ist die sogenannte 
»Colondefinition«, bei der das Wort wei- 
tere Wörter enthalten darf, die nach Auf- 
ruf des neuen Worts ausgeführt wer- 
den. Handelt essichbei diesen Wörtern 
wiederum um Forth-Wörter, dann 
spricht man von SECUNDARIEs. Ein 
Wort, das direkt Maschinencode- 
Routinen aufruft, bezeichnet man als 
PRIMITIVE. Die meisten Wörter des 
Grundwortschatzes von Forth sind 
SECUNDARIES. 

Wie kann man nun solch ein Wort 
selbst definieren? 

Jede Wortdefinition eines SECUN- 
DARIES leitet ein unscheinbarer Dop- 
pelpunkt »:« ein. Er bewirkt unter ande- 
rem, daß das System in den »Compile 
mode« umschaltet. Das hat zur Folge, 
daß alle nun folgenden Anweisungen 
nicht mehr direkt ausgeführt, sondern 
in das Wörterbuch eingetragen werden. 

Unter einem Wörterbuch (englisch 
Dictionary) wird in Forth ein Speicher- 
bereich verstanden, der den Wort- 
schatz der betreffenden Version bein- 
haltet. Jede neue Wortdefinition wird 
nun auch in diesem Wörterbuch ver- 
zeichnet. Das Dictionary selbst ist in 
sogenannte Vokabulare unterteilt. Zwi- 
schen verschiedenen Vokabelberei- 
chen schaltet VOKABULARY NAME 
um. 

Durch Aufruf von NAME wird der 
Vokabelbereich NAME zum CONTEXT- 
VOKABULAR, das heißt dem aktuellen 
Vokabular, in dem die Dictionary- 
Suchläufe zuerst beginnen. Normaler- 
weise ist das Standard-Vokabulary ein- 
geschaltet. Es trägt den Namen Forth. 

Wenn wii jetzt ein neues Wort definie- 
ren, so wird dies in das »Haupt«- 
Wörterbuch eingetragen. Durch 
»WORDS«, »VLIST« oder einem ande- 





ren, compilerspezifischen Namen kann 
man das überprüfen, denn dieser gibt ja 
den gesamten Inhalt des Wörterbuchs 
aus. Das Wörterbuch baut sich übri- 
gens in Richtung größer werdender 
Adressen auf. Das Ende, also den 
Beginn des freien Arbeitsspeichers, 
kann man mit »HERE« ins »lop of 
Stacks« (TOS) laden. Nun aber zurück 
zu unserem Problem, selbst neue 
Worte zu definieren. 

Anders als in jeder mittelmäßigen 
Basic-Version fehlt in Forth die Quadrat- 
funktion. Sie ist aber relativ einfach zu 
definieren. Die Zahl, welche quadriert 
werden soll, muß zuerst einmal im TOS 
stehen. Dann kopieren wir sie mit DUP 
und multiplizieren beide miteinander. 
Die beiden Wörter, die wir dazu brau- 
chen, kennen Sie schon. 

4 DUP * . 16 OK 
16 DUP * . 256 OK 

Unsere Überlegung scheint zu stim- 
men, denn in beiden Fällen wurde die 
Ausgangszahl quadriert. 

Um die Quadratfunktion nun im Wör- 
terbuch zu »verewigen«, erweitern wir 
es um das Wort »QUADRAT«e. Diese 
Funktion soll bei ihrem Aufruf immer 
den aktuellen Wert im TOS quadrieren 
und das Ergebnis dort auch wieder 
ablegen. 

Wie schon erwähnt, leitet ein Doppel- 
punkt die neue Wortdefinition ein. 
Danach folgt der Name der neuen Funk- 
tion, dann die Befehlsfolge. Ein Semiko- 
Ion schließt das Ganze ab. Mit 
: QUADRAT DUP * ; OK 
haben Sie nun den Wortschatz Ihres 
Systems bereichert. Bevor Sie das 
neue Wort aufrufen, müssen Sie aber 
daran denken, daß die Zahl, die qua- 
driert werden soll, im TOS steht. 

12 QUADRAT OK 

berechnet das Quadrat von 12. Das 
Ergebnis 144 bekommen wir mit 

. 144 OK 

auf den Bildschirm. An oberster Stelle 
im Wörterbuch steht nun das neue 
Wort. Falls Ihnen die Ausgabeform zu 
nüchtern ist, dann definieren Sie doch 
mit 

: AUSGABE CR 


.” DIE QUADRATZAHL IST” . ; OK 


eine Ausgaberoutine. Nach dem Aufruf 
von AUSGABE erscheint die gerade 
aktuelle Zahl aus dem TOS. Der Bild- 
schirm sieht dann wie folgt aus: 

12 QUADRAT AUSGABE 

DIE QUADRATZAHL IST 144 





Um nun die Ausgaberoutine in dem 
Wort QUADRAT gleich mit aufzurufen, 
bedarf es einer Neudefinition dieses 
Wortes. Es gibt zwar auch Wege, beste- 
hende Routinen zu verändern, aber das 
lassen wir hier beiseite. Also geben wir 
das Wort schnell noch einmal neu ein. 
: QUADRAT DUP * AUSGABE ; 

? QUADRAT ISN'T UNIQUE 

Lassen Sie sich durch die Fehlermel- 
dung nicht irritieren. Damit teilt Ihnen 
der Compiler nur mit, daß es bereits ein 
Wort mit diesem Namen gab. Durch die 
neue Definition haben Sie es aber 
umbenannt. Rufen Sie jetzt QUADRAT 
auf, und Sie erhalten das gewünschte 
Ergebnis: 

5 QUADRAT 
DIE QUADRATZAHL IST 25 OK 

Ein erneuter Blick ins Wörterbuch 
zeigt, daß jetzt zwei Wörter mit dem 
Namen QUADRAT existieren. Um ein 
Wort zulöschen, benutztman FORGET. 
FORGET QUADRAT OK 

Damit bleibt nur noch die Frage zu klä- 
ren, welche Version der beiden Worte 
QUADRAT gelöscht wurde. Am einfach- 
sten ist das festzustellen, indem man 
QUADRAT noch einmal aufruft. 

10 QUADRAT OK 

Damit ist klar, daß FORGET die neue- 
ste Version unseres Wortes gelöscht 
hat. Doch damit nicht genug. FORGET 
löscht nicht nur das betreffende Wort, 
sondern auch alle anderen, die später 
definiert wurden. Deshalb sollte man 
FORGET nur sehr vorsichtig einsetzen. 

Der Grund für diese Wirkungsweise 
von FORGET ist leicht zu verstehen, 
wenn man sich vorstellt, daß alle Wörter 
im Wörterbuch durch eine »KETTE«mit- 
einander verbunden sind. Trennen Sie 
die Kette an einer Stelle (etwa durch 
FORGET), so sind auch alle Wörter ver- 
loren, die bis zu diesem Punkt auf der 
Kette aufgereiht wurden. 

Nicht immer läßt Forth das Löschen 
von Wörtern so ohne weiteres zu. Inden 
meisten Forth-Versionen ist der Sprach- 
kern geschützt. Eine User-Variable 
»FENCE« enthält die Adresse, ab der 
ein Löschen durch FORGET nichtmehr 
möglich ist. 

Noch ein Wort zur Namensgebung. 
Hier dürfen Sie Ihrer Kreativität freien 
Lauf lassen, denn als Wortname ist jede 
beliebige Zeichenkombination erlaubt, 
die nicht länger als 31 Zeichen ist. 
Lediglich Leerzeichen dürfen nicht 
benutzt werden. 

Daß sich in Forth so ziemlich alles um, 
beziehungsweise neu definieren läßt, 
zeigt das folgende Beispiel: 

"28.07 20K 

Damit wurde der Zahl 8 kurzerhand 
eine neue »Bedeutung« gegeben. Denn 
auf einmal erhalten Sie mit 
8 QUADRAT . 36 OK 
ein recht merkwürdiges Ergebnis. Forth 
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So wird der Stack durch das Wort KUBIK verändert 


ist, und das werden Sie noch öfters 
feststellen, die Sprache der nahezu 
unbegrenzten Möglichkeiten. 


Um Ihnen die Wortbildung noch ein- 
mal zu verdeutlichen, definieren wir 
noch eine zweite Funktion. 


RKUBEK /DUPSZDURF RR... ; 


Mit der Funktion KUBIK wird ab sofort 
die Kubikzahl des Ausgangswerts im 
TOS auf den Bildschirm ausgegeben. 
Dazu verdoppelt DUP die Zahl auf dem 
TOS zweimal und multipliziert dann die 
beiden obersten Werte jeweils mitein- 
ander (»* *«). Der Doppelpunkt und das 
Semikolon umschließen die Definition. 


Forth, entscheiden Sie sich! 


UPN, Rechnen mit dem Stack 
und Wortdefinitionen sind nach 
den letzten Seiten kein Problem 
mehr für Sie. Aber ein Computer- 
Programm muß auch Entschei- 
dungen treffen können. 


ie in fast allen höheren Pro- 
grammiersprachen, kön- 
nen auch in Forth Entschei- 


dungen in der Form »Führe eine Anwei- 
sung nur dann aus, wenn ein Vergleich 
positiv ausfällt« bearbeitet werden. 
Forth stellt dazu zwei Konstruktionen 
zur Verfügung. Zum einen »IF ... ENDIF« 
und zum andern »IF ... ELSE ... ENDIF«. 
Die zweite Anweisung bearbeitet den 
Teil zwischen IF und ELSE, wenn der 
Vergleich positiv ist. Ist er negativ, dann 
wird der Teil ausgeführt, der zwischen 
ELSE und ENDIF steht. Fast alle Forth- 
Dialekte erlauben anstelle von ENDIF 
auch THEN, wenn auch der erste Weg 
die sinnvollere Bezeichnung darstellt. 

Ein Beispiel verdeutlicht die Arbeits- 
weise von IF ... ENDIF: 
: TEST9 >IF .”ZU GROSS I” 

ENDIF ; OK 

»TEST« prüft, ob die Zahl im TOS (also 
die zuletzt eingegebene Zahl) größer 
als 9 ist. In diesem Fall wird der Kom- 
mentar »ZU GROSS !« ausgegeben. 

4 TEST OK 
11 TEST ZU GROSS OK 

Wenn Sie sich nun einmal das zuge- 
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Mit 

3 KUBIK 27 OK 

bekommen wir das gesuchte Ergebnis. 
100 KUBIK 16960 OK 

ist jedoch ein etwas seltsames Ergeb- 
nis. Hier müssen wir uns wieder den 
Wertebereich unserer Zahlen ins 
Gedächtnis zurückrufen. Denn 
1000000 können wir mit unserem 
Zahlenbereich zwischen -32768 und 
32767 nicht darstellen. 

Nachdem Sie nun eine ganze Menge 
über die Wortdefinition und das Porth- 
Wörterbuch gelernt haben, ist es an der 
Zeit, eine Zusammenfassung durchzu- 
führen: 


hörige Stack-Diagramm (Bild 1) an- 
schauen, dann wird Ihnen der Mecha- 
nismus der IFENDIF-Anweisung schnell 
klar. Um einen Vergleich durchzufüh- 
ren, müssen sich zunächst einmal 
beide Zahlen im Stack befinden. Der 
Vergleichsoperator »>«holt beide Zah- 
len vom Stack, führt den Vergleich aus 
und legt für den Fall, daß er positiv aus- 
fällt eine »1« und für den Fall, das er 
negativ ausfällt eine »O« im TOS ab. Von 
diesem Flag (deutsch: Flagge oder 
Signal) hängt es ab, ob die zwischen IF 
und ENDIF stehenden Anweisungen 
ausgeführt werden oder nicht. 

Bei der IF-ELSE-ENDIF-Anweisung 
dagegen werden für den Fall, daß der 
Vergleich negativ ausfällt, die Anwei- 
sungen zwischen ELSE und ENDIF 
ausgeführt. Alle erlaubten Vergleichs- 
operatoren zeigt Tabelle 1. 

Wenn Sie die Vergleichsoperatoren 
durchgehen, dann werden Sie sicher 
den Vergleich »ungleich« vermissen. Er 
läßt sich aber leicht durch die Wortfolge 
»= NOT« ersetzen. Das Flag, das bei 
»=« im TOS abgelegt wird, invertiert 
dann »NOT« und wir haben unser Ziel 
erreicht. 

Zwei Punkte müssen Sie aber noch 
bedenken, wenn die Anweisung für 
eine Entscheidung dienen soll. Sie darf 
nie im Direktmodus, sondern nur inner- 
halb einer Wortdefinition stehen. 


Außerdem ist noch zu beachten, daß 
die Zahlen, mit denen man den Ver- 
gleich durchgeführt hat, anschließend 








: = Leitet die Definition eines Forth- 
Wortes ein. 


‚ - Beendet die Definition eines 
Forth-Wortes. 

FORGET - Löscht alle Wörter bis 
einschließlich dem angegebenen 
aus dem Wörterbuch. 


Die neuen Worte dieses Abschnitts 


- Jede Wortdefinition wird in das Wör- 
terbuch eingetragen. Dabei ist der hier 
besprochene Doppelpunkt nicht der 
einzige Weg, eine Wortdefinition vorzu- 
nehmen. 

- Ein Eintrag in das Wörterbuch hat zur 
Folge, daß das jeweilige Wort Bestand- 
teil des Wortschatzes wird, und somit 
auch, genauso wie die Worte aus dem 
Grundwortschatz, aufgerufen werden 
kann. 


- Durch FORGET NAME wird die letzte 
Definition NAME gelöscht, sowie alle 
danach durchgeführten Definitionen. 


(Peter Monadjemi/hg) 





vom Stack verschwunden sind. Wollen 
Sie weiter mit diesen Werten arbeiten, 
dann müssen Sie sie zuvor kopieren. 

Nun zu einem anderen Thema: Die 
Stärke eines Computers liegt in seiner 
Fähigkeit, bestimmte Anweisungen 
beliebig oft sehr schnell zu wiederho- 
len. Während im normalen Basic hierfür 
nur die FOR-NEXT-Schleife vorhanden 
ist, kennt Forth insgesamt vier verschie- 
dene Anweisungen. Allen gemeinsam 
ist, daß sie nur in Wörtern (also nicht 
direkt) benutzt werden dürfen. Die ein- 
fachste Wiederholfunktion ist »DO 
LOOP«: 

: SCHLEIFE 10 0 DO I. 
LOOP ; OK 

Als Ergebnis bekommen wir 
SCHLEIFE 0 123456789 0K 

Zwei Besonderheiten fallen an der 
Schleifenkonstruktion sofort auf: 

- Zuerst wird der End- und dann der 
Anfangswert übergeben. 

- Das Wort »I« holt den Schleifenwert, 
der die bisherige Anzahl der Durchläufe 
angibt, in den TOS. 

Die Bedeutung des Wortes »DO« 
besteht darin, zum einen die Stelle zu 
markieren, zu der nach »LOOP« unter 
Umständen zurückgekehrt wird, und 
dient zum anderen dazu, die beiden 
Schleifenwerte (Start und Ende) auf 
einen weiteren Stack zu transferieren. 
Von diesem war bisher noch nicht die 
Rede, da er für den Anfänger keine 
praktische Bedeutung hat. Die Aufgabe 
dieses »RETURN STACK« besteht 


r ehren 

















darin, wichtige Adressen bei der Aus- 
führung eines Wortes zu verwalten. 
Und auch die Schleifenwerte einer DO- 
LOOP-Anweisung werden hier gespei- 
chert. Damit istauch die Bedeutung des 
Wortes »I« zu verstehen. Diese Anwei- 
sung holt den momentanen Wert des 
»Top Of Return Stack« in den TOS. 

Die DO-LOOP-Anweisung gehört zu 
den sogenannten »definierten Schlei- 
fen«, da die Anzahl der Durchläufe von 
vornherein fest steht. Ganz anders ist 


das bei »BEGIN ... UNTIL«: 
: TEST BEGIN 1 + DUP . 
DUF 100. = 
UNTIL .” FERTIG !” ; OK 


Hier steht die Anzahl der Durchläufe 
nicht von vornherein fest. Sie hängt viel- 
mehr von einer Bedingung ab. In unse- 
rem Beispiel wird durch »=« geprüft, ob 
der Inhalt des TOS bereits den Wert 
100 erreicht hat. Ist das der Fall, so wird 
im TOS eine 1 als Flag abgelegt. Daran 
erkennt das Wort UNTIL, daß eine 
Anweisung abzubrechen ist. 

Für den Fall, daß der Inhalt des TOS 
100 noch nicht erreicht hat, wird durch 
»=« eine DO im TOS abgelegt und 
anschließend werden alle Anweisun- 
gen, die zwischen BEGIN und UNTIL 
liegen, ein weiteres Mal wiederholt. 
Somit handelt es sich bei dieser Anwei- 
sung um eine vom Typ: »Wiederhole so 
lange, bis eine bestimmte Bedingung 
wahr ist.« 

Falls Ihnen dieser Befehl immer noch 
zu undurchsichtig ist, so nehmen Sie 
ein Blatt Papier und zeichnen Sie die 
Stackbelegung bei dem Wort TEST auf. 
Denken Sie daran, daß sowohl durch 
».«, als auch durch »=« der Inhalt des 
TOS vom Stack verschwindet, wenn 
man ihn nicht vorher kopiert hat. 

Noch ein Beispiel für diese Befehls- 
folge: 

: UEBUNG BEGIN CR 
* DRUECKE EINE TASTE” KEY 

65: = UNTIL ;. OK 

Durch KEY wird ein Zeichen von der 
Tastatur gelesen (ähnlich GET in Basic) 
und der dazugehörige ASCII-Wert im 
TOS abgelegt. Dieser wird daraufhin mit 
65 verglichen (ASCII-Wert von A ist 
65). Haben Sie tatsächlich A eingege- 
ben, so bricht der Programmlauf ab, 
andernfalls wird er ein weiteres Mal 
durchgeführt. 

Ähnlich wie bei BEGIN-UNTIL liegen 
die Verhältnisse bei der BEGIN- WHILE- 
REPEAT-Anweisung mit dem Unter- 
schied daß die Ausführungs- 
Bedingung bereits vor dem WHILE ste- 
hen muß. Die eigentliche Anweisung 
befindet sich zwischen WHILE und 
REPEAT. Ist die Bedingung nicht erfüllt, 
so wird die Anweisung gar nicht erst 
ausgeführt. 

: TASTE BEGIN KEY 65 = 

WHILE „.” VERSUCH'S NOCHMAL ” 

.” NA ENDLICH !” ; OK 


UNTIL 























TASTE B VERSUCH'S NOCHMAL OK 
TASTE A NA ENDLICH ! OK 

KEY bringt wieder den ASCIl-Code 
der gerade gedrückten Taste in den 
TOS. »65 =« prüft diesen Wert auf 
Code 65 (für A). Da in diesem Fall im 
TOS eine »1« abgelegt und dadurch die 
Anweisung zwischen WHILE und 
UNTIL nicht ausgeführt werden würde, 
wird der Inhalt des TOS (das Flag) mit 
»0=« invertiert. Wenn im TOS eine O 


liegt, dann verändert »>0=«dieseineine“” 


1. 

Zum Abschluß dieses Kapitels noch 
eine Wiederholungsanweisung, bei der 
Sie sich keine Gedanken um ein 
Abbruchkriterium machen müssen. 
Denn bei »BEGIN-AGAIN« handelt es 
sich um eine Endlosanweisung. 

: NONSTOP BEGIN 40 EMIT 
AGAIN ; OK 

Nach dem Aufruf von NONSTOP pro- 
duziert Ihr Computer so lange Klammer- 
affen, bis Sie den Strom abschalten 
oder einen Reset durchführen. 

Variablen, ohne die kaum ein Basic- 
oder Pascal-Programm auskommt, 
haben wir bisher eher beiläufig 
erwähnt. Das liegt daran, daß Forth 
(anders als Basic und Pascal) stack- 
orientiert ist. Damitistgemeint, daß sich 
alle Zahlenoperationen auf dem Stack 
abspielen. Demnach könnte man streng 
genommen auf die Variablen völlig ver- 
zichten. In bestimmten Fällen haben 
diese aber doch ihre Bedeutung. Denn 
zum einen ist die Kapazität des Stacks 
begrenzt, und zum anderen ersparen 
Sie sich durch die Verwendung von 
Variablen, beziehungsweise Konstan- 
ten, allzu umständliche Stack-Opera- 
tionen. 

Um mit Konstanten oder Variablen zu 
arbeiten, müssen Sie diese (ähnlich 
Pascal) zuerst einmal definieren und 
ihnen einen Anfangswert zuweisen. 
Dies geschieht durch die Definitions- 
wörter »CONSTANT« und »VARIABLE«. 
O VARIABLE ZAHL OK 

Damit haben wir eine Variable auf den 
Namen Zahl definiert. Beim Aufruf von 


sg 


= ji wennn?2 =nI 
= i wennn2 < ni 


TOS 
Operator 


f 
f 


f= wenn n2 > ni 
Die folgenden Operatoren erwarten 


eine Zahl n im Top of Stack, welche 
mit Null verglichen wird. 

O =f=1iwennn=0O 

Ö <f=1iwennn<O 

O >f=1iwennn>0 

Tabelle 1. Die Vergieichsoperatoren 


brauchen die zwei obersten Stellen 
Im Stack 








Zahl erhalten Sie nun aber nicht deren 
Wert, sondern lediglich die Adresse, 
unter der dieser Wert im Speicher zu 
finden ist. 


ZAHL . 12345 OK 

Um den eigentlichen Wert zu erfah- 
ren, benutzen wir den schon bekannten 
Befehl »C@« beziehungsweise »7«. 
Seine Bedeutung war: »Hole den Inhalt 
der Speicherzelle, deren Adresse im 
TOS liegt.« Mit 
4 ZAHL ! OK 
weisen wir unserer Variablen ZAHL den 
Wert 4 zu. Zuerstladen wir die 4 und die 
Adresse von ZAHL auf den Stack. Mit 
ZAHL 4 0K 
testen wir, ob die neue Zahl im Speicher 
abgelegt wurde. 

Ein wenig anders schaut es mit den 
Konstanten aus. Hier bringt der Aufruf 
der Konstanten mit Namen ihren Wert 
direkt in den TOS: 

45 CONSTANT WERT OK 
WERT . 45 OK 

Auch der Wert einer Konstanten läßt 
sich ändern, wenn Sie die Adresse ken- 
nen. Als wir weiter vorne die Zahlen- 
basis veränderten, griffen wir auf solch 
eine Variable zurück. Zum Abschluß 
noch ein kleines Zählprogramm, das im 
Hexadezimalsystem bis 100 zählt: 

: HZAEHL 

100 O0 DO HEX I 

DECIMAL ; OK 

Programmieren können Sie in Forth 
jetzt natürlich noch lange nicht. Aber 
Sie kennen die Grundzüge und es steht 
Ihnen nichts im Wege, sich mit offenen 
Augen in das Abenteuer Forth zu stür- 
zen. In der folgenden Tabelle 2 finden 
Sie diesmal nicht die neu besproche- 
nen Befehle, sondern alle diejenigen, 
die Ihr Forth-System haben sollte, aber 
nicht haben muß. Die Erklärung der 
Befehlsworte spornt Sie vielleicht an, 
die Anweisungen auszuprobieren und 
in eigenen Programmen zu verwenden. 
Die Listings in diesem Heft zeigen Ihnen 
weiter, wie man Forth-Programme ent- 
wickelt und realisiert. 

(Peter Monadjemi/hg) 
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Speichert eine Zahl in der 2@ 
Adresse an oberster Stack- 
Position 

Dient bei der Zahlenausgabe mit 
Maske für die Zifferndarstellung 
vorzeichenloser doppelt 
genauer Integers 

Beendet die maskierte 
Zahlenausgabe 

Fordert zur Eingabe einer ein- 
fach genauen Integer auf 
Wandelt bei der Zahlenausgabe 
mit Maske Ziffernzeichen in den 
ASCII-Code um 

Dient zum Speichern von Strings 
Vereinbart einen String im 
Arbeitsspeicher 

Entfernt nachlaufende Blanks 
vom String 

Druckt einen String 

Vereinbart einen String-Array 


2ARRAY 


2DARRAY 
2DROP 
2DUP 


OVER 


2ROT 


2SWAP 


2VARIABLE 


Vertauscht die Werte in String- 
Variablen 

Liefert die Adresse des näch- 
sten Wortes im Eingabestrom 
Leitet einen Kommentar ein 
Liefert das Produkt zweier 
Zahlen 

Multipliziert n, mit n, und 
dividiert 

das doppelt genaue Produkt 
durch n, 

Ähnlich wie */; liefert jedoch 
auch den Rest 

Liefert die Summe zweier Zahlen 
Inkrementiert den gespeicherten 
Wert 

Inkrementiert eine Schleifen- 
variable 

Compiliert n ins Wörterbuch 
Subtrahiert n, vonn, 
Aktualisiert den Zeichenzähler 
Gibt eine Zahl aus 

Gibt Text aus 

Gibt die Zahl n, im Datenfeld n, 
aus 

Dividiert n, durch n, 

Division mit Quotient und Rest 
»Wahr« falls n < O 

»Wahr« fallsn = O 

»Wahr« fallsn > O 
Inkrementiert den obersten 
Stack-Eintrag um Eins 
Dekrementiert den obersten 
Stack-Eintrag um Eins 
Multipliziert den obersten 
Stack-Eintrag mit 16 

Speichert eine doppelt genaue 
Integer 

Definiert einen zweidimenslo- 
nalen String-Array 

Multipliziert die oberste Integer 
mit 2 

Addiert 2 auf die oberste 
Integer 

Subtrahiert 2 von der obersten 
Integer 

Dividiert die oberste Integer 
durch 2 


<CMOVE 


2CONSTANT 





Holt eine doppelt genaue Inte- 
ger aus der Adresse 

Definiert einen zweidimensiona- 
len Array 

Definiert eine doppelt 

genaue Konstante 

Definiert einen doppelt 
genauen Integer-Array 

Entfernt die oberste doppelt 
genaue Integer vom Stack 
Dupliziert die oberste doppelt 
genaue Integer auf dem Stack 
Dupliziert die zweite doppelt 
genaue Integer auf dem Stack 
an oberste Stack-Position 
Rotiert die dritte doppelt genaue 
Integer an oberste Stack- 
Position 

Vertauscht die obersten beiden 
doppelt genauen Integers 
Vereinbart eine doppelt genaue 
Variable 

Leitet die Definition eines 
FORTH-Wortes ein 

Beendet die Definition eines 
FORTH-Wortes 

Wird »wahr« falls n, < n, 


Leitet die Zahleneingabe mit 
Maske ein 

Wird »wahr«, falls n, kleiner oder 
gleich n, ist 

Wird »wahre«, falls n, ungleich n, 
ist 

Dupliziert n Speicherwörter 
beginnend bei a, an der 
Adresse a,; Übertragung 
beginnt bei der höchstwertigen 
Adresse 

Ist »wahr«, falls n, gleich n, ist 
Ist »wahr«, falls n, größer oder 
gleich n, Ist 

Enthält die Startposition für die 
Untersuchung 

des Eingabestroms 

Überträgt eine Integer auf den 
Kontroll-Stack; benötigt 
entsprechendes R> 

Dupliziert die oberste einfach 
genaue Integer, es sei denn, 
diese ist gleich O 

Holt die an der Adresse gespei- 
cherte einfach genaue Integer 
Ersetzt die oberste einfach 
genaue Integer durch Ihren 
Absolutbetrag 

Erweitert den Speicherbereich 
einer Variablen um n Byte 
Bitweises logisches AND 
Vereinbart einen Array 

Legt den ASCiIl-Wert des ersten 
Zeichens in dem String, der bel 
a beginnt, auf den Stack 
Enthält die Ein-/Ausgaberadix 
Leitet eine Schleife ein 

Füllt Speicherbereiche mit 
Lserzeichen 

Enthält die Adresse des Block- 
puffers für den Eingabestrom 
Überträgt den Block n von der 
Diskette In den Arbeitsspeicher 
und legt dessen Startadresse 
auf den Stack 


d,d,-d,d,d, 


d, d, d, -d, d,d, 


d, d, - d, d, 
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Fr Beschreibung Stack-Relation wort Beschreibung Stack-Relation 


BUFFER Wie BLOCK, die Daten werden EXPECT Liest Zeichen in den Arbeits- 
jedoch nicht übertragen speicher ein, beginnend bei 
Cı Speichert das niedrigwertige na- Adresse a, wobei maximal n Zei- 
Byte einer einfach genauen chen oder bis zum ersten 
Integer Return gelesen wird 
Cc@ Holt ein Byte und speichert es a-n FILL Belegt n aufeinanderfolgende ann.- 
als einfach genaue Integer Speicherwörter (beginnend bei 
CASEND Beendet eine CASE-Anweisung Adresse a) mit dem 
CHR$ Wandelt eine ein Byte lange c-a ASCII-Wert n. 
Integer in ihre ASCIl-Darstellung FIND Sucht die Adresse des nächsten -a 
um; das Ergebnis steht im tem- Wortes im Eingabestrom 
porären Arbeitsbereich, dessen FLUSH Speichert die markierten Puffer 
Adresse auf den Stack gelegt auf Diskette 
wird FORGET Löscht alle Wörter bis ein- 
CMOVE Überträgt n Bytes von Adresse a,&,n- schließlich dem angegebenen 
1 nach Adresse 2; die Übertra- aus dem Wörterbuch 
gung beginnt bei den niedrig- FORTH Name des Hauptwörterbuches 
wertigen Adressen DO= Ist »wahr«, wenn der doppelt d-f 
COMPILE Nimmt einen Wert in die Wortde- genaue Wert gleich O Ist 
finition mit auf D< Ist »wahr«, wenn d, kleiner d, ist d,d,-f 
CONSTANT | Vereinbart eine Konstante mit n- DABS Liefert den Absolutwert einer d, -d, 
dem Wert n doppelt genauen Integer 
CONTEXT Enthält die Adresse des -a DARRAY Vereinbart einen Array mit dop- n- 
Kontext-Vokabulars pelt genauen Integers 
COUNT Legt die Anfangsadresse des a-a,n DECIMAL Setzt die Zahlenbasis auf 10 
Strings und den String-Zähler DEFINITIONS | Macht den Kontext-Wortschatz 
auf den Stack zum aktuellen Wortschatz 
CR Sendet einen Zeilenvorschub DEPTH Liefert die Stack-Tiefe in Einhei- 
CREATE Richtet einen Wörterbucheintrag ten von einfach genauen -n 
ein Integers 
CRT Lenkt die Ausgabe auf den DMAX Liefert die größere von zwei d, d,-d 
Bildschirm doppelt genauen Integers 
CURRENT | Enthält die Adresse des aktuel- -a DMIN Liefert die kleinere von zwei d,d,-d 
len Wörterbuches doppelt genauen Integers 
D#IN Fordert zur Eingabe einer dop- -d DNEGATE Dreht das Vorzeichen einer dop- d--d 
pelt genauen Integer auf pelt genauen Integer um 
D* Multipliziert doppelt genaue d,d,-d, DO Leitet eine Schleife ein n,n, - 
Integers DRDSECS Liest Diskettensektoren an,n,n,N,-nif 
B3/ Multipliziert d, mit d, und divi- d,d,d,-.d DROP Entfernt die oberste einfach n- 
diert das vierfach genaue Pro- genaue Integer vom Stack 
dukt anschließend durch d, DUP Dupliziert die oberste einfach n-nn 
D*°/MOD Wie D*/, liefert aber auch den d, d,d,.d,d, genaue Integer 
Rest DWTSECS Schreibt Diskettensektoren an,n,n,n,-nf 
D+ Addiert zwei doppelt genaue d,d,-.d HERE Liefert die Adresse des näch- 
Zahlen sten verfügbaren -a 
D- Subtrahlert zwei doppelt genaue d, d,-.d Wörterbuch-Bytes 
Zahlen (d, minus d,) HEX Umwandlung der Zahlenausgabe 
D/ Liefert den Quotienten d, d,-d in Hexadezimaldarstellung 
von d, und d, HOLD Zur Einfügung von Zeichen bei = 
D/MOD Wie D/, liefert aber auch d,d,-d,d, der Zahlenausgabe mit Maske 
noch den Rest | Legt den Schleifenindex auf den -N 
D. Gibt eine doppelt genaue d- Stack 
Integer aus l Legt den Testwert der Schleife -N 
D.R Gibt eine doppelt genaue Inte- dn- auf den Stack 
ger in einem n Zeichen langen IF Für Programmverzweigungen f-- 
Datenfeld aus IMMEDIATE Schaltet von Compilierung n,n,- 
E Bearbeitet den Block, der vom in Ausführung um 
Inhalt von SCR bestimmt wird INDEX Gibt die erste Zeile von n, n,n,- 
EDIT Bearbeitet Block n; n wird in n - Blocks aus, beginnend 
SCR gespeichert mit Block n, 
ELSE Für Programmverzweigungen c- J Liefert den Index der dynamisch -n 
EMIT Gibt ein Zeichen aus übernächsten Schleife auf den 
EMPTY- „ | Markiert alle Puffer als leer Stack 
BUFFERS KEY Legt den ASCII-Code des näch- -n 
ERASE Setzt n aufeinanderfolgende an- sten Eingabezeichens auf den 
Byte auf den Wert 0, beginnend Stack 
mit der Adresse a L Gibt den Block aus, dessen 
EXECUTE Führt den Wörterbucheintrag a- Nummer in SCR gespeichert ist 
aus, dessen Adresse auf dem LEAVE Beendet eine Schleife 
Stack liegt LEFT$ Überträgt die n ersten Zeichen an-a, 
EXIT Beendet die Programmbe- des Strings, der bei a beginnt, in 
arbeitung den temporären Arbeitsbereich 


Tabelle 2. Der Befehlssatz, den Ihr Forth-System haben sollte 
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LIST 
LITERAL 
LOAD 
LOADS 
LOOP 

M ® 


M*/ 


M+ 

M- 

M 
M/MOD 
MAX 


MID$ 


MIN 
MOD 
MOVE 
MYSELF 


NCASE 
NEGATE 


NOT 

OCTAL 
OTHERWISE 
OVER 

PAD 


PAGE 
PCRT 


PRINT 
QUERY 


QUIT 
R> 


R@ 


RANDOMIZE 


REPEAT 


RIGHT$ 


Tabelle 2. Der Befehlssatz, den Ihr Forth-System haben sollte 


Schluß) 


120 


Legt die Länge eines Strings auf 
den Stack 

Gibt den Block n aus und legt n 
In SCR ab 

Nimmt den Stack-Wert, ohne Ihn 
zu interpretieren, in die Compila- 
tion mit auf 

Lädt den Block n 

Lädt n, Block, beginnend mit n, 
Inkrementiert den Schlei- 
fenindex 

Doppelt genaues Produkt zweier 
einfach genauer Integers 
Multipliziert d, mit n, und spei- 
chert das Produkt als dreifach 
genaue Integer, welche dann 
durch n, dividiert wird; der Quo- 
tient ist doppelt genau 
Gemischte Addition 

Gemischte Subtraktion 
Gemischte Division 

Wie M/, außer daß sowohl Quo- 
tient als auch Rest geliefert 
werden 

Liefert den größeren von zwei 
Werten 

Überträgt an die Adresse a, 
einen n, Zeichen langen Teil- 
String, der ab der n,ten Zei- 
chenposition des Strings a 
beginnt 

Liefert den kleineren von zwei 
Werten 

Liefert den Rest der Division 
von n,/n, 

Verschiebt n 16 Byte lange 
Speicherwörter, beginnend bei 
a,, nach a, 

Erlaubt rekursive Aufrufe 

Leitet eine CASE-Anwelisung ein 
Ersetzt eine Zahl durch die 
negative Zahl mit dem gleichen 
Betrag 

Negiert ein Flag 

Setzt die Ein-/Ausgabebasis für 
Zahlen auf das Oktalsystem 
Allgemeiner Ausgang in CASE- 
Anweisungen 

Dupliziert die zweite Zahl an 
oberste Stack-Position 

Enthält die Anfangsadresse des 
temporären Arbeitsbereichs 
Löscht den Bildschirm 

Legt die Ausgabe sowohl auf 
Bildschirm als auch auf Drucker 
Legt die Ausgabe nur auf den 
Drucker 

Für Zeicheneingabe 

Löscht den Return-Stack 
Überträgt die oberste einfach 
genaue Integer vom Return- 
Stack auf den Parameter-Stack 
Dupliziert die oberste einfach 
genaue Integer vom Return- 
Stack auf den Parameter-Stack 
Initialisiert den Zufallsgenerator 
Für die Programmierung von 
Schleifen 

Überträgt die n letzten Zeichen 
des Strings a in den temporären 
Arbeitsbereich, liefert dessen 
Adresse 








Erzeugt eine Zufallszahl und 
n- speichert sie In SEED 
Erzeugt eine Zufallszahl n,-n, 
zwischen 1 undn, 
Legt die n-te einfach genaue 
Integer auf dem Stack an ober- 
Nn- ste Stack-Position 
n,n,- ROT Befördert die dritte einfach 
genaue Integer an oberste 
Stack-Position 
Markiert alle Puffer für nachfol- 
gende Sicherungen 


Enthält die Adresse des zuletzt 
bearbeiteten Blockpuffers 
Fügt den ASCIlI-Code des 
Minuszeichens bei Zahlenaus- 
gabe mit Maske ein, falls n 
negativ ist 
Gibt ein Leerzeichen aus 
Vertauscht die beiden obersten 
Stack-Einträge 
Bei Programmverzweigungen 
benötigt 
Gibt n Zeichen beginnend ab 
der Adresse a aus 
Vorzeichenlose Integermulti- 
plikation 
Gibt eine vorzeichenlose Integer 
aus 
Gibt eine vorzeichenlose Integer 
in einem n Stellen breiten 
Datenfeld aus 
Vorzeichenlose Division mit dop- 
pelt genauem Dividenden, liefert 
Quotienten und Rest 
U< »Wahr« falls u, kleiner u, Ist (vor- 
zeichenlose Integers) 
Für die Programmierung von 
Schleifen 
Markiert alle Blockpuffer als 
gesichert 
Definiert eine Variable 
Für die Vereinbarung eines 
neuen Wortschatzes 
Für die Programmierung von 
Schleifen 
Liest Zeichen aus dem Eingabe- 
strom; Trenner Ist Zeichen mit 
ASCII-Code n 
Pr. XOR Bitweises exklusives ODER 

Y/N Fragt nach Y oder N; N liefert 

Wahrheitswert »wahr« 

[ Beendet Complilierung und leitet 
Ausführung ein; wird in Wortdefi- 
nition benötigt 
Bewirkt, daß ein Wort mit dem 
Status IMMEDIATE compiliert 
wird 
Beendet Ausführung und fährt 
mit der Compilierung fort 


NN 
N, nn, -N,N;N, 


SAVE- 
BUFFERS 


d,n.n,-d, SCR 


n,n,-d 


SIGN 


d,n-d, 
dın-d, 
dn, -n, 
dn,-d,n, 


n,n,-n 


an,n,-a, 


n,n,-n 
n,n,-n 


a,8,n- 


UNTIL 
UPDATE 


VARIABLE 
VOCABU- 
LARY 
WHILE 


WORD 


[COMPILE] 


Tabelle aua =Der Einstleg In Forih=, Marki& Technik Verlag AG, ISBN I-80000-086-2 


Die Buchstaben der Stack-Relationsspalte bedeuten: 
a = Adresse 
= ASCII-Code 

doppeltgenaue Zahl 

Flag 

ganze Zahl 

Rest (bei Division) 

ganzzahliges Ergebnis (bei Division) 


an-ä, 





rofessionelle Grafikprogrumme 
oyce 


für Schneider CPC 6128 + J 









DIGITAL 
RESEARCH 


DR Draw: Macht aus Ihren Ideen ein Kunstwerk 


Verwenden Sie DR Draw, um Organisations-Diagramme, Flußdiagramme, Logos, techni- 
sche Zeichnungen, Schaubilder, Platinenentwürfe und jede nur erdenkliche Art von 
Linien- und Formgrafiken zu entwerfen. Und jeder Bestandteil Ihrer Zeichnung kann auf 
vielfältige Weise durch Farben und Schraffuren hervorgehoben werden. 





Einfachste Bedienung 


DR Draw verwendet leichtverständliche Menüs zur Steuerung seiner Funktionen und 
Erstellung einer Zeichnung. Sie können aus vorprogrammierten Figuren wie Kreisen, 
Quadern, Rechtecken, Kreisbögen, Polygonen und Linien auswählen oder Ihre eigenen 
Figuren entwerfen oder die bestehenden verändern. An beliebigen Stellen kann erläu- 
ternder Text in eine Zeichnung eingefügt werden. Außerdem haben Sie die Wahl zwi- 
schen mehreren Schriftarten. 


Flexibllität bei der Gestaltung 


Jeder Teil einer Zeichnung kann auf Tastendruck überarbeitet und verändert werden: 
Figuren können mit Farben oder Mustern gefüllt werden; sie können vergrößert oder ver- 
kleinert oder an eine neue Position verschoben oder kopiert werden. Ebenso können die 
Schriftarten, Größen, Farben und Positionen mit wenigen Tastendrücken geändert 
werden. 


Vergrößerungen und Ausschniittdarstellungen 


Mit Hilfe einer besonderen Funktion von DR Draw können Sie Einzelheiten Ihrer Zeich- 
nung vergrößern, um Details besser bearbeiten zu können. 


Ausgabe auf Papier, Transparentiolie oder Film 


Was immer Sie erstellen, kann gespeichert oder zu Berichts- und Präsentationszwecken 
auf Papier, Transparentfolie oder Film geplottet oder gedruckt werden. DR Draw druckt 
Ihre Zeichnung exakt auf eine DIN-A4-Seite. 


Hardwarevoraussetzungen 


DR Draw läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem oder 
zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege- 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 


Die Fähigkeiten auf einen Blick 

e Erstellung beliebiger Zeichnungen 

e vorprogrammierte Figuren wie Kreise, Quader, Rechtecke, Kreisbögen, Polygone 
und Linien 

© freie Wahl der Gestaltungselemente wie Farben, Muster und Schriftarten 

® Vergrößerungen und Ausschnittdarstellungen 

© Teile einer Zeichnung können kopiert, verschoben oder gelöscht werden 

© Grafiken können gespeichert, geplottet oder gedruckt werden 

e einfache Bedienung durch Menüauswahl 


DM 1 99,-* (aFr. 178,-16S 1890,-") 


Best.-Nr. MS 613 


In Vorbereitung: 


Fakturlerung 
Ein dBASE-Il-Anwenderprogramm, das folgende Möglichkeiten bietet: Angebots- 


schreibung und Rechnungsschreibung, Artikelverwaltung, Adreßverwaltung, Nach- 
kalkulation. Der dokumentierte Quellcode wird für individuelle Programmanpassun- 


gen mitgeliefert. 
DM 94,-* (sFr. 82,-1öS 840,-*) 


Best.-Nr. MS 816 
* inkl. MwSt. Unverbindliche Preisempfehlung 





u! 
Markt&fTechnik 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 


Diese Markt & Technik-Softwareprodukte erhalten 
Sie in den Fachabteilungen der Kaufhäuser und 
in Computershops. 





DR Graph 


DR Graph: Präsentationsgrafiken mit professionellem Niveau 


DR Graph ist ein interaktives Softwarepaket, mit dem Sie Ihren Mikrocomputer zur Erstel- 
lung von Geschäftsgrafiken und Text-Charts verwenden können. DR Graph macht es 
leicht, komplexe geschäftliche oder wissenschaftliche Daten in übersichtliche und aus- 
sagekräftige Grafiken zu verwandeln 


Ein Blid sagt mehr als tausend Worte 


Eine gut dargestellte Grafik weckt das Interesse und die Aufmerksamkeit des angeziel- 
ten Personenkreises eher als andere Kommunikationsarten. Grafisch dargestellte Fak- 
ten können leichter analysiert, verstanden und behalten werden. 


Einfachste Bedienung 


Mit DR Graph können Sie die Grafik dem Computer schnell und leicht beschreiben Zur 
Erstellung einer Grafik werden die gewünschten Optionen ganz einfach aus übersichtili- 
chen Menüs ausgewählt. DR Graph kann von jedermann bedient werden, der mit einta- 
chen Grundlagen der Mikrocomputerbedienung vertraut ist. 


Flexibilität bei der Gestaltung 


Zusätzlich zur vorhandenen Computerschrift stehen drei verschiedene Schriften für 
Titelzeilen, Legenden und Anmerkungen zur Verfügung. Auch bei der Gestaltung der 
Grafiken kann aus zahlreichen Linientypen, Linien- und Balkenbreiten und acht Schraffu- 
ren gewählt werden. 


Ansehen, spelehgrn und drucken 


Mit DR Graph können Sie auf dem Bildschirm immer genau sehen, wie Sie Ihre Grafik 
gestalten. Anschließend können Sie sie drucken oder auf Diskette speichern, um sie 
später weiter zu bearbeiten. 


Hardwarevoraussetizungen 


DR Graph läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem oder 
zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege- 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 


Die Fähigkeiten auf einen Blick 


® Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Grafiken, Strich- 
Histogramme, Punkte-Grafiken und Text-Grafiken 

e freie Wahl der Gestaltungselemente wie Beschriftungen, Titelzeilen, Legenden, 

Farben, Schriftarten und Ränder 

frei wählbare Skalierung 

variable Linien- und Balkenbreite 

Schnittstelle zu anderen Programmen 

beliebig positionierbare Anmerkungen 

Grafiken können gespeichert, geplottet oder gedruckt werden 

einfache Bedienung durch Menüauswahl 


DM 1 99,-* (sFr. 178,-16S 1890,-*) 


Best.-Nr. MS 614 


Finanz-Buchhaltung 


Das Komplett-Paket für den Schneider CPC 6128 und Joyce. Erstellen von Konten- 
plänen, Umsatzsteuerauswertung und Einnahmen-/Überschußrechnung. Betriebs- 
wirtschaftliche Auswertungen wie Journalschreibung und Kostenstellenrechnung 


möglich. 
DM 194,-* «ar. 175--, 


Best.-Nr. MS 615 





Bestellungen im Ausland bitte an 
untenstehende Adressen. 


Schweiz: Markt& Technik Vertriebs AG, 
Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 
Österreich: Ueberreuter Media Handels- 

und Verlagsges. mbH, Alser Straße 24, 
A-1091 Wien, 02 22/48 1538-0 








Forth zum Abtippen 


Gelerntes will auch geübt werden. Wer noch kei- 
nen Forth-Interpreter hat, der findet hier einen, der 
nichts kostet. Einfach eintippen, RUN eingeben 
und mit der ENTER-Taste starten. 


achdem Sie sich jetzt durch viele Seiten Forth hin- 
durchgekämpft haben, wollen Sie Ihre Forth-Pro- 
gramme zum Laufen bringen. Doch gleich einen 
Compiler kaufen, das muß nicht sein. Testen Sie erst einmal 
Ihr Interesse mit diesem kostenlosen Basic-Forth-Interpreter. 

»Basic-Forth V.4« ist vollständig in Basic geschrieben und 





1 CLS 

2 DIM S(88) .R(BB) ,L(80) .LO(BD) ,I*(800) 
3 DIM RBs(80) 

4 PRINT " BASIC-FORTH 
28 REM 

z4 ON ERROR GOTO 29 

28 GOTO 30 

29 PRINT A$,"?" 

30 M=® 

32 N=Q 

6D K=1 

62 INPUT I$ 

63 Is=1$+" " 

64 Li=0 

78 L(K)=L1 

72 LO(K)I=LEN(I$) 

74 L1=LO(K) 

100 IF N<B THEN GOTO 186 
104 GOTO 110 

186 PRINT "STACK EMPTY" 
108 GOTO 38 

118 L(Kd=SL(K) +1 

112 IF L(K)>LOCK) THEN GOTO 132 
114 B$=MIDE(IS.L(K) ,l) 

116 IF B$=" " IHEN GOTO 118 
118 A$s=B$ 

120 L(K)=Lıik) +1 

122 B$=MID$(I$,L(K),1) 

124 IF B$=" " THEN GOTO 130 
126 A$=A$+Bs$ 

128 GOTO 128 

130 56010 20% 

132 IF K<2 THEN GOTO 68 

174 K=k-1 

135 I$=MID$(I$.1,LD(K)) 

136 L1=LO(k) 

128 GOTO 118 


v.4" 


208 REM DICTIONARY 

380 IF At<>"SQUARE" THEN GOTO 710 
382 B$="DUR * " 

384 I$=1I$+6$ 

306 K=4+1 


388 GUTO 78 


310 IF A$s<>"CUBE" THEN G0OTO 320 

312 B$="DUF SQUARE # " 

314 I$=I$+b$ 

316 K=K+1 

318 GDTO 78 

328 IF As<«. "TEST" THEN GOTO 358 

322 B$="DU PI 18 /’ rR@ * SIN . LOOFP " 
324 1$=1t+Bb$ 


122 





läuft auf beinahe jedem Computer. Spezielle Befehle wurden 
fast völlig weggelassen und erklären sich, wenn, durch ihre 
Anweisungen. Also einfach eingetippt und schon beginnt Ihr 
Forth-Vergnügen. 

Die Profis unter Ihnen werden jetzt sicher schmunzeln. 
Forth-Interpreter in Basic - da geht doch der ganze 
Geschwindigkeitsgewinn in die Binsen. Richtig, aber mit 
Basic-Forth sollen Sie nicht professionell programmieren, 
sondern ausprobieren. Und da ist Basic zum Eingeben eben 
die leichteste Programmiersprache. Wenn dann erst einmal 
Interesse an dieser Sprache geweckt ist, können Sie immer 
noch auf einen echten Forth-Compiler umsteigen. (hg) 


326 kK=kK+i1 

328 GOTO 70 
S38 REM 

992 IF As: :'+" 
984 N=N-1 

9B&6 S(N)=S(N) +SI(N+1) 
988 GOTO 100 


THEN GOIO 9718 


918 IF Asc>"-" THEN GOTO 9720 
912 N=N-1 
9143 S(NI=S(N)-S(N+I) 


916 GOTO 188 
928 IF Asca"«" 
922 N=N-1 

924 S(NI=S(N)#S(N+1) 
926 GOTO 108 
939 IF As >"/" 
932 N=N-1 

934 S(NI=S(N)/S(N+1) 

936 6010 190 

948 IF A$<>"ABS" THEN GOTO 958 
942 S(NI=ABS(S(N)) 

944 GOTO 188 

950 IF As«.>"ATN" THEN GOTO 960 
952 S(NI=ATNIS(N)) 

954 GOTIO ı00 

968 IF A$<>"COS" TIHEN GOTO 970 
962 S(N)=COS(S(N)) 

764 GOTO 1080 

778 IF As$< >"EKF" THEN GOTO 980 
972 SINI=EXF(StND) 

774 GOTO 180 

988 IF As: >"INT" THEN GÜTO 998 
982 S(N)=INT(S(N)) 

984 GOTO 100 

998 IF As: >"LOG" THEN GOTO 
992 S(NI=LOG(IS(N)) 
994 GOTO 108 

1080 IF As<>"RND" 
10882 S(N)=RND(-N) 
1084 GOTO 108 

10818 IF A$<>"SGN" THEN GOTO 1020 
1012 S(N)=SGN(S(N)) 

1214 GOTO 108 

1028 IF A$<:"SIN" THEN GOTO 1038 
1022 S(NI=SINIS(ND) 

10824 GUIDO 108 

1858 IF At<>"SOR" THEN GOTO 1848 
1832 S(N)=SOR(S(N)) 


THEN GOTO 938 


IHEN GOTO 9748 


1000 


THEN GOTO 1818 


Listing. Ein Forth-Interpreter zum Abtippen 








1034 
1840 
1042 
1844 
18508 
1052 
1854 
1960 
1962 
1064 
1846 
1068 
1970 
1971 

1072 
1974 
1976 
1880 
19082 
1884 
1086 
18970 
10972 
1994 
1180 
1182 
1184 
11046 
1108 
1118 
1112 
1114 
1116 
1128 
1122 
1124 
1126 
1128 
1130 
1132 
1134 
1136 
1138 
1140 
1142 
1144 
114& 
1200 
1202 
1203 
12904 

12085 
120& 
1207 
12089 
1218 
1212 
1214 
1215 
1216 
1217 
1218 
1228 
1222 
1225 
1224 
1225 
1227 
1228 
1230 








GO1ID 148 
IF A$« "TAN" THEN GOID 18508 
S(N)=TAN(S(NDI 


GOTO 100 

IF A$ >" " THEN GOTO 1988 
SıN)=S(N) S(N+I) 

GOIO 188 


IF A$:>'"5?" THEN GDOTO 19078 
FOR I=1 ION 

PRINI S(N-I+B) 

NEXT I 

GOTO 100 

IF A$:>"." THEN GOTO 18808 

IF NSI THEN G0T0 106 

FRINT S(N) 

N=N-1A 

GOTO 108 

IF A$<>"DUP" THEN GOTO 10978 
N=N+1 

S(NI=S(N-I) 

GOTO 180 

IF A$<>"DROP" THEN GOTO 1180 
N=N-1 

GOTO 188 

IF As >"SWAP" THEN GOTO 11108 
S(N+1)=S(N-U 

S(N-1)=S(N) 

S(N)=S(N+1) 

GOTO 140 

IF A$< >"OVER" THEN GOTO 1120 
N=N+1 

S(N)=S(N-2) 

GOTO 188 

IF A$<>">R" THEN GOTO 1138 
M=M+1 

R(M)I=S(N) 

N=N-1 

G0TO 180 

IF A$<-"R>" THEN GOTO 1148 
N=N+1 

S(N)=R(M) 

M=M-1 

GOTO 188 

IF A$c -"R@" THEN GOTO 1208 
N=N+i 

S(N)=R(M) 

GOTO 190 

REM 

IF A$<ı.:"=" THEN GOTO 1218 
N=N-1 

IF S(N)=S(N+1) 
S(N)=® 

G0T0 100 
s(N)=1i 

GOIO 1900 

IF A$<i.>">" THEN GOTO 1220 
N=N-1 

IF S(N) >S(N+I) 
S(N)=Q 

G0OIO 188 
S(N)=1 

GOIO 188 

IF A$<>"x2" THEN GOTO 1230 
N=N-1 

IF S(N)ISS(N+I) 
S(N)=8 

G0OTO 1989 
sSs(N)=1 

GOTD 1808 

IF A$< "IF" THEtI GOTO 1250 


THEN GOTO 1207 


THEN GOTO 1217 


THEN GOTO 1227 














1231 


232 


12373 
1234 
1235 
1236 
1237 
1238 
12539 
12408 
1241 
1242 
1 250 
1252 
1260 
1262 
1270 
1272 
1274 
1276 
1280 
1282 
1283 
1284 
1286 
1287 
1288 
1289 
1200 
1 302 
1 3984 
12085 
1306 
1306 
13509 
1310 
1512 
1320 
322 
1324 
1326 
1328 
1350 
1332 
1340 
1520 
1502 
1504 
15094 
1510 
1512 
1514 
1516 
1520 
1322 
1 +90 
1602 
1604 
ug 
1606 
M=1 

1808 


DT DEFINED': 


1618 
1612 
1414 


N=N-1 
IF S(N+1) 





THEN GOTO 190 


FOR 1I=1 (k) TO LO(CK)I-3 


B$=I#(I.I+3) 


IF B$="ELSE" THEN GOTO 1248 


IF B$=" THEN" 
NEXT 1 

FRINI "IF?" 
GO1I0 30 
I.(kK)=1r+r4 

GOTO 180 
GOIN 108 

IF As: >"ELSE" 
GOTO 1233 

IF A$< >" THEN" 
GOIO 188 

IF A$< >"BEGIN" 
M=M+1 
R(M)=L(K) 

GOTO 188 

IF A$«>"UNTIL“ 
N=N-1 

IF S(N+1) THEN 
IF S(N+1) THEN 
L(K)=R(M) 

GOTO 190 

M=M-1 

GOTO 108 


IHEN GOTIO 1248 


THEN GOTO 1268 


THEN GOTO 12708 


THEN GOTO 1288 


THEN GOTO 1308 


GOTO 1288 
GOTO 188 


IF A$<>"D0O" THEN GOTO 1328 


M=M+1 

R(M)=L (HE) 
M=M+1 
R(MI>SS(N-I) 
M=M+1 
R(M)=S(N) 
N=N-2 

GSOTO 190 

IF AS: > "IDOF" 
RımM)=R(M) +1 

IF R(M-I1) :R(M) 
M=M-\S 

GÜIO 100 
Lik)=R(M-2) 
GOTO 100 

REM 

IF Ası«.: "FL" 
N=N+1 
S(N)=2.14159 
GOIO 120 
IF Ai :'"Q" 
N=N+i 

S(N) =B 
GOTO 1808 
IF A$:;"SIOF' 
SIOF 

nti1=1 


THEN GOTO 140 


THEN GOTO 13308 


IHEN GOTO 1518 


IHEN GOTO 1520 


THEN GOTO 1692 


FÜR I=1 TO LEN(A$) 
IF MIDS(A&.T,1LI<"@" OR MID$(A$,I,D) 


THEN NUM=®O 


IF I=1 AND MIDE(AF,1L,1)="-" THEN NU 


NEXT I: 


N=N+1 
S{(N)=VAL (A$) 
H01INn 182 


IF NUM=D THEN PRINT A$:" N 
s0I0O 30 


Listing. Ein Forth-Interpreter zum Abtippen (Schluß) 
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Trace-Befehl für FIG-Forth 


Hier wird ein neues, nützliches Forth-Wort vorge- 
stellt, mit dem man den Ablauf anderer Wörter 
schrittweise untersuchen kann. 


ie einfachste Art, ein Forth-Wort zu testen, besteht 
darin, es mit den entsprechenden Eingangswerten 
auf dem Stack aufzurufen und dann zu hoffen, daß 
sich kein Fehler eingeschlichen hat. Wenn sich der Computer 
dann noch normal zurückmeldet, der richtige Wert ausgege- 
ben wird und der Stack sich in dem Zustand befindet, in dem 
er sich auch befinden sollte, so kann angenommen werden, 
daß das Wort richtig arbeitet. Manchmal aber — und das 
kommt öfter vor, alsman möchte — verliert sich der Computer 
in einem Irrgarten und nichts läuft mehr. In diesem Falle ist es 
sehr nützlich, ein Wort zur Verfügung zu haben, das etwa 
einem TRACE-Befehl in Basic entspricht. Solch ein TRACE 
ist aber nicht ganz einfach zu realisieren. Der Grund dafür ist 
unter anderem darin zu suchen, daß es in Forth nicht nur Wör- 
ter gibt, die nur 2 Byte Platz in dem Parameterfeld beanspru- 
chen, sondern auch ein paar andere, die neben ihrer CFA 
(Code-Feld-Adresse) auch noch Daten ablegen. Dazu gehö- 
ren alle strukturierenden Wörter (IF, ELSE, THEN / DO, LOOP, 
+LOOP / BEGIN, UNTIL, WHILE, REPEAT, AGAIN), die ent- 
weder BRANCH oder auch OBRANCH compilieren und daran 
noch ihre Sprungweite anhängen. Ebenso zählen LIT und 
CLIT dazu, die außer ihrer CFA noch den Wert der Konstan- 
ten eintragen. Nicht zu vergessen auch das Wort ».'«, das 
ganze Texte in das Parameterfeld speichert. 

Alle Wörter, die in irgendeiner Weise den Returnstack 
manipulieren, sind mit besonderer Vorsicht zu behandeln, da 
ein TRACE-Wort diesen Stack selber benötigt. Die Wörter R), 
R, DO, LOOP, +LOOP I, I, J, K, LEAVE gehören dazu und 
müssen deshalb von TRACE alle gesondert behandelt wer- 
den. Man muß für jedes dieser Wörter eine Routine schrei- 
ben, die an einem eigenen Stack diese Manipulationen ent- 
sprechend dem originalen Programm durchführt. Alle ange- 
gebenen Wörter müssen von »TRACE« gesondert behandelt 
werden. Der ganze Rest aber kann von dem internen Inter- 
preter ausgeführt werden. Für sämtliche Returnstack- 
Manipulationen benötigt man neben einem eigenen Return- 
stack auch noch den entsprechenden Pointer. 





ONE-STEP ist 
kein neuer Tanzschritt 


Am einfachsten erscheint es deshalb, TRACE als Rahmen- 
programm aufzufassen, das die Ein- und Ausgaben durch- 
führt und mit dem Anwender kommuniziert. Muß dann einmal 
ein Wort ausgeführt werden, wird ONE-STEP (Listing) aufge- 
rufen, das dann das Wort ausführt, auf das der selbst defi- 
nierte Instruction-Pointer zeigt. 

Indem Wort ONE-STEP sind dann sämtliche Fälle, die nicht 
von dem inneren Interpreter ausgeführt werden können, ein- 
zeln abzuarbeiten. 

Mit dem Wort ONE-STEP können fast alle Forth-Wörter 
getestet werden. Falls es sich bei dem Wort um ein Primitive, 
eine Konstante oder Variable handeln sollte, so wird Ihnen 
das sofort mitgeteilt. Nur Forth-Wörter, die in Highlevel verfaßt 
sind, werden von TRACE auch entsprechend behandelt. 
Wenden Sie TRACE auch mal auf Wörter des Kernals an. 
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Dadurch erhalten Sie einen guten Einblick in die Arbeitsweise 
von TRAGE, und Sie lernen so auch sehr gut die Programmie- 
rung in Forth selbst kennen. 

Hier ein paar Beispiele: 


4 TRACE 
: * S-)D D.4 ; 
4 .„ TRACE D. 


: D. O0 D.R SPACE 4 ; 

4 . 0 TRACE D.R 

: D.R )R SWAP OVER DABS (# #S SIGN #) R) OVER 
SPACES TYPE 4 ; 

Sie sehen daran, wie eng verknüpft Forth selbst in so einem 
grundlegenen Wort wie ».« ist. Auch die Decompilereigen- 
schaften von Forth sind hier ein wenig dargestellt. 

TRACE funktioniert so lange als Decompiler, bis ein Wort 
auszuführen ist, das in seinem Verlauf eine Ausgabe durch- 
führt. Diese Aufgabe, die normalerweise als einzige auf dem 
Bildschirm erscheinen würde, steckt jetzt mitten in dem ent- 
schlüsselten Wort und macht es so manchmal etwas proble- 
matisch, den genauen Sourcetext zu erkennen. Weiterhin 
werden alle strukturierenden Wörter nicht angezeigt, son- 
dern nur deren »Run Time Executive« (BRANCH oder 
OBRANCH) und eventuell auch ausgeführt. 

Es kann sein, daß die Version Ihres Forth nicht ganz genau 
mit der übereinstimmt, die wir eingesetzt haben. So ist zum 
Beispiel das Wort CLIT nicht in jeder Version implementiert. 
Es kann sein, daß Sie das Wort DLIT in Ihrem Programm ver- 
treten haben. 


Einfache Anpassung 


Für den Fall, daß Sie kein CLIT haben, lassen Sie die ganze 
Zeile einfach unter den Tisch fallen und tippen gleich ein 
THEN weniger ein. 

Ist das Wort DLIT aber in Ihrer Version enthalten, so müßten 
Sie einfach eine neue Zeile einfügen, ganz der Zeile von CLIT 
entsprechend. Der Unterschied zu CLIT besteht in der Ande- 
rung von: 1. Lesebefehl C@ nach D@ (Liest statt einem Byte 
ein Langwort, 32 Bit), 2. IPOI darf nicht nur um 1 erhöht, son- 
dern muß um 4 inkrementiert werden. 

In dem Falle, daß sonst noch irgendwelche Wörter in Ihrem 
Forth vorhanden sind, die Daten mit in das Parameterfeld mit 
ablegen (dies kommt oft bei Erweiterungen vor, Strings, spe- 
zielle Datenwörter), so müßten Sie diese Wörter selber 
behandeln. Entsprechendes gilt auch für die Returnstack- 
manipulierenden Wörter. 

Nicht anwenden sollten Sie TRACE bei Wörtern, die selbst 
nur zur Definition von anderen Datentypen entwickelt wur- 
den. Insbesondere die (BUILDS .... DOES)-Funktion funktio- 
niert nicht ganz vollständig mit unserem »Trace«. Auch mit 
anderen Wörtern mag es Schwierigkeiten geben, doch diese 
Wörter befinden sich in der Unterzahl. 

Noch ein letzter Hinweis. Der Stackpointer muß nach ord- 
nungsgemäßer Beendigung des Wortes auf O stehen. Jeder 
andere Wert in SPOI würde bei normalem Ablauf durch den 
inneren Interpreter zum Absturz des Systems führen. Den- 
ken Sie bitte auch daran: Wenn das Wort durch »;« beendet 
wird, muß in SPOI eine Null stehen. Deshalb lasse ich den 
Wert dieser Variablen beim Abbruch auch gleich mit 
ausdrucken. 

Für etwaige Anregungen oder Verbesserungsvorschläge 
sind wir dankbar. 

(Bernhard Leikauf/ev) 





O VARIABLE IPOI 

O VARIABLE SPOI 

O VARIABLE RSTA 38 ALLOT 

: ONE-STEP IPOI @ 

DUP @ ' OBRANCH CFA = 
IF SWAP IF DROP 2 ELSE 

2+ @ THEN IPOI +! ELSE 


DUP @ ' BRANCH CFA = 

IF 2+ @ IPOI +! ELSE 

DUP @ ' LITCRH = 

IF2+ @DUP . 2 IPOI +! ELSE 


DUP @ 'CLIT CFA = 
IF 2+C@ DUP . 1 IPOI +! ELSE 


DUP @ ' (.'"') CA = 

IF 2+ COUNT DUP 1+ IPOI +! TYPE 32 EMIT 
ELSE 
DVP @ ')R CFA= 

IF DROP RSTA SPOI @+ ! 
2 SPOI+! ELSE 
DUP@'R CFA=OVER@ "I CFA=OR 
IF DROP RSTA SPOI @+ 2- @ ELSE 
DUP@'R) CA = 

IF DROP RSTA SPOI @+ 2- @-2 SPOI +! 
ELSE 
DUP @ ' (DO) CFA = IF DROP SWAP RSTA 
SPOI @+ 21 4 SPOI +! ELSE 
DUP@ 'TI' CR = 

IF DROP RSTA SPOI @ + 4 - @ELSE 
DUP@ 'J CFA= 

IF DROP RSTA SPOI @ + 6 - @ELSE 
DUP@ 'K CFA = 

IF DROP RSTA SPOI @ + 10 - @ELSE 
DUP @ ' LEAVE CFA = 

IF DROP RSTA SPOI @ + 2 - DUP @ SWAP 2- 
I ELSE 
DUP @ ' (LOOP) CFA = 

IF RSTA SPOI @ + 2- DUP 1+! DUP 2- @ 
SWAP @) 

IF 2+ @ IPOI +! 
ELSE DROP —4 SPOI +! 2 IPOI +! 
THEN ELSE 
DUP @ ' (+LOOP) CFA = 

IF RSTA SPOI @ + 2- ROT OVER +!DUP 2- @ 
SWAP @) 

IF 2+ @ IPOI +! 
ELSE DROP —4 SPOI +! 2 IPOI +! 
THEN ELSE 
@ EXECUTE 


THEN THEN THEN THEN THEN THEN THEN THEN 
THEN THEN THEN THEN THEN THEN THEN 
2 IPOI +! 





(Def. Instruction Pointer) 

(Def. Returnstack Pointer) 

(Def. Returnstack für max. 20 Einträge) 

(Hole IP aus IPOI) 

(Wort = OBRANCH) 

(Nimm Flag vom Stack) 

(True Flag. Dann überspringe den Offset False Flag. Addiere den Offset zu IPOI;) 

(führe den Sprung aus) 

(Wort = BRANCH) 

(Addiere den Offset zu IPOI; führe den Sprung immer durch) 

(Wort = LIT+) 

(Hole den 16-Bit-Wert, zeige ihn an und lege ihn auch auf dem Stack ab. Setze IPOI auf das) 
(Wort nach dieser Zahl) 

(Wort = CLIT) 

(Hole den 8-Bit-Wert, zeige ihn an und lege ihn auch auf dem Stack ab. Setze IPOI auf das) 
(Wort nach dieser Zahl) 

(Wort = (.'')) 

(Versetze IPOI auf das Wort hinter dem Text und drucke diesen Text mit »Space« aus) 


(Wort = )R) 

(Speichere den Wert auf dem Stack an die) 

(Adresse, auf die der Stackpointer zeigt und erhöhe dann den Stackpointer um 2) 
(Wort = Roder = I ? dasselbe PRC) 

(Kopiere den Wert, auf den der Stackpointer zeigt, auf den Parameterstack) 

(Wort = R) ) 

(Hole den obersten Eintrag des Returnstacks auf den P.stack und dekrementiere den) 
(Stackpointer SPOI um 2) 

(Speichere den Schleifenindex und das) 

(Maximum auf dem eigenen R.stack ab) 

(Wort = I') 

(Hole den zweitobersten Eintrag.auf den P.stack) 

(Wort = J) 

(Hole den dritten Eintrag des R.stacks) 

(Wort = K) 

(Hole den fünften Eintrag des R.stacks) 

(Wort = LEAVE) 

(Ändere das Max. der Schleife auf den gegenwärtigen Wert des Schleifenindex (I) ab) 


(Wort) = (LOOP) 
(Inkrementlere den Schleifenindex. Hat er das Max. erreicht?) 


(Führe Sprung zum Schleifenstart aus, wenn I') I) 

(Schleifenende erreicht. Verringere Stackpointer) 

(um 4 (Index und Max.. Dann überspringe den Offset zum Schleifenanfang) 
(Wort = (+LOOP)) 

(Erhöhe den Schleifenparameter um den angegebenen Wert) 

(Ist Jetzt das Maximum erreicht oder schon überschritten?) 

(Selbe Operation wie bei (LOOP)) 


(Eventuelle weitere Abweichungen von der Norm wären dann hier fortlaufend einzutragen) 
(Andernfalls ist es ein vom inneren Interpreter) 
(ausführbares Wort und so auch von diesem zu erledigen) 


(Abschluß sämtlicher eröffneter Abfragen, stelle nach Erledigen des Wortes IPOI auf) 
(das nächste zu erledigende Wort). 


: TRACE -Find 
IF DROP CFA DUP @ ' ONE-STEP CFA @ = 
IFCR .'' : '" 2+ DUP NFA ID. IPOI I O SPOI I 


BEGIN IPOI @ @ DUP 2+ NFA ID. 


BEGIN (Warteschleife des Rechners) UNTIL 
' sSCFA = ?TERMINAL OR IFCR SPOI ? [COMPILE],S THEN 


ONE-STEP 
AGAIN 
ELSE .'' NO HIGH LEVEL '' DROP THEN 
ELSE .'' NOT FOUND '' THEN ; 








Listing. Das vollständige 
»Trace«-Programm. 

Die Kommentare sind 
nicht einzugeben. 
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Turtle-Grafik mit Forth 


Als Beispiel für ein komplexes Programm in Forth 
stellen wir hier ein Grafik-Paket vor. 


bwohl ursprünglich für den C64 mit HES-Forth 
geschrieben, lohnt es sich sicher auch für die Besit- 
zer anderer Computer oder anderer Forth-Versio- 


nen, sich mit diesem Grafikpaket etwas näher zu beschäfti- 
gen. HES-Forth ist im wesentlichen ein etwas erweitertes 
FIG-Forth. Zur Anpassung an andere Computer brauchen nur 
die systemspezifischen Teile dieses Programm-Pakets ge- 
ändert werden. 

Im folgenden Text geben wir eine ausführliche Programm- 
beschreibung, die die Arbeit mit diesem Programm erleich- 
tern soll. Das gesamte Paket besteht aus drei Teilen: 

- dem High-Resolution-Graphic-Package 
- der Multi-Color-Graphic 
- den Extras 

Das Programm wird durch die Lade-Screens 02, 03 und 04 
des Main-File geladen. 

Es steht eine hochauflösende Grafikseite mit einer Auflö- 
sung von 320 x 200 Pixel zu Verfügung. Der Punkt (0,0) liegt 
dabei in der linken oberen Ecke. Die Befehle HION und 
HIOFF schalten zwischen dem normalen Arbeitsbildschirm 
und der Grafikseite hin und her. Alle Eingaben können weiter- 
hin im direkten Modus erfolgen. Ein Beispiel sieht so aus: 





HION ( Einschalten der Grafik ) 
14 O CFILL ( Farben einstellen ) 
HCLEAR ( Bildschirm löschen ) 

0 0 319 199 LINK ( Diagonale ziehen ) 

HIOFF ( Ausschalten der Grafik ) 


Entsprechend der üblichen Umgekehrt Polnischen Nota- 
tion erwarten alle Worte ihre Parameter auf dem Stack. Wich- 
tig sind dabei immer die Leerzeichen (Spaces) zwischen den 
Wörtern. Solange die Grafikseite aktiv ist, sind die Eingaben 
ja nicht sichtbar. 

Bei einem Tippfehler drückt man entweder RUN/RESTORE 
- dabei wird der Stack und der Arbeitsbildschirm gelöscht, 
nicht aber die Grafikseite - und wiederholt die letzte Eingabe. 
Oder aber man gelangt durch HIOFF zurück auf den Arbeits- 
bildschirm, der die letzten Eingaben zeigt. Der Handler zur 
Adreßberechnung für X-Werte außerhalb (0/319) und Y- 
Werte außerhalb (0/199) steht in XFORM beziehungsweise 
YFORM und kann vom Benutzer abgeändert werden. 
XFORM und YFORM sind als »wrap-arounde« initialisiert, das 
heißt (-1,-1) ist gleich (319,319) etc. 

Die Grafik kann als sequentielle Datei auf Diskette gespei- 
chert werden, und zwar mittels der Befehle HIWRITE und 
HIREAD. Zuvor ist einmal mit »SEQ name« ein Filename fest- 
zulegen. Die beiden Befehle beziehen sich so lange auf 
name, bis dieser mit SEQ geändert wird. 


Der Aufbau der Datei sieht folgendermaßen aus: 
8 KByte Bit-Maß 


1 Byte Hintergrundfarbe 
1000 Byte Farb-RAM (low) 
1000 Byte Farb-RAM (high) 


PLOT und LINK stehen sowohl als High-Level-Wort wie 
auch als Primitive zur Verfügung. Welche Version geladen 
werden soll, wird mit Scr #02 eingestellt. 

Nun zum Laden: 
FILE MAIN 
2 LOAD 
FCLOSE 
Der Ladevorgang nimmt etwa vier Minuten in Anspruch. 


126 





Zusätzlich zur normalen hochauflösenden Grafik bietet das 
Paket eine Multi-Color-Grafik mit 160 x 200 doppelt-breiten 
Punkten, wobei jedes Pixel eine von vier möglichen Farben 
haben kann. Das Ein-/Ausschaltennehmen MON (Multi-Color 
ein) und MÖFF (aus) vor. CFILL erwartet jetzt vier Parameter 
(Farben) auf dem Stack. HCOL wählt die Zeichenfrabe 1,2 
oder 3 aus dem mit MCOL definierten Farb-Set. 

Da alle Tastatur-Eingaben das Farb-RAM (high) beeinflus- 
sen, sollte man im direkten Modus nicht mit mehr als vier Far- 
ben (ändern mit MCOL) arbeiten. ?LOAD veranlaßt beim 
Laden der »Extras« das zusätzliche Einlesen von MPUT und 
MSHAPER. 

Die übrigen Befehle entsprechen den normalen Hires- 
Befehlen. Das Laden der Multi-Color-Grafik erfolgt mit 
FILE MAIN 
3 LOAD 
FCLOSE 
und beansprucht etwa vier Minuten. 

Neben diesen beiden grundsätzlichen Einstellungen findet 
man zusätzlich noch folgende Extras. 


— PAINTER (Zeichenprogramm) 

— SHAPES (der SHAPER erfordert den PAINTER) 
— STRINGS (benötigen die SHAPES) 

— TURTLE (Turtle Grafik 

Painter 


Per Tastatur-Steuerung kann ein einzelner Punkt auf dem 
Bildschirm bewegt werden und Linien zeichnen oder 
löschen. Der Aufruf erfolgt mit »x y PAINT«, worauf der »Zei- 
chenstift« bei (x,y) erscheint. RETURN beendet den Zeichen- 
vorgang, aber die letzten Zeichenkoordinaten verbleiben auf 
dem Stack. So kann man entweder mit UNPLOT den letzten 
Zeichenpunkt löschen oder irgendwelche Zwischenrech- 
nungen, Farbänderungen etc. vornehmen und den PAINTER 
erneut mit PAINT aufrufen. Es wird immer an der letzen Stelle 
weitergezeichnet. 

Zur Steuerung folgende Details: 

- Farbeinstellung: Funktionstasten fl, f3, f5, f7 

- Pen-Up/Pen-Down: G 

- Bewegen des Zeichenpunktes in acht Himmelsrichtungen: 
RTYFHVB,N 


Shapes 

Ein Shape ist eine x mal y Punktmatrix, wobei x ein Vielfa- 
ches von 8 ausmacht. Ein 3 x 21-Shape besteht demnach 
aus 24 x 21 Punkten, hat also die Größe eines Sprites. 
SHAPE ist eine Compiler-Erweiterung, die beliebig dimensio- 
nierte Shapes erzeugt. Der Aufruf »x y SHAPE name« defi- 
niert ein x mal y„-SHAPE genannt »name«. Die Eingabe dieses 
Namens bewirkt dann stets den Aufruf. 
3 21 SHAPE PETRA (definiert PETRA) 


PETRA ?S (zeigt PETRAs Datas an) 
PETRA CLEAR (1öscht PETRA) 

PETRA ?S 

HION 


PETRA SHAPER (zeichnet Rahmen um PETRA und 
aktiviert den Painter) 
PETRA 100 100 PUT (zeichnet PETRA) 
PETRA 110 110 PUT 
HIOFF 

Anstelle von »name« kann auch »n SPRITE« stehen, wobei 
n(Osn<=7) sich auf das Sprite mit der Nummer n bezieht. 
Zuvor aber sollten alle Sprite-Pointer mit !POINTER einmal 
gesetzt worden sein. 


Die Shapes (beziehungsweise Sprites) lassen sich mit 








»name SHAPEWRITE« unter dem mit SEQ definierten Namen 
als sequentielles File ablegen. Ein Beispiel: 

SEQ GIRL 

PETRA SHAPEWRITE (legt ein sequentielles File 
namens GIRL an, dessen 
Punktemuster PETRA entspricht) 

Wird im Multi-Color-Modus gearbeitet, sollten Sie mög- 
lichst MPUT anstatt PUT und MSHAPER statt SHAPER ver- 
wenden. 

Strings 

Diese Anweisung stellt ein kleines String-Paket dar und 
zählt ebenfalls zu den Compiler-Erweiterungen. Strings sind 
wie Variable vor Benutzung zu definieren, also »name«. Ihnen 
stehen dann zwei Eingabevarianten frei: »name INPUT« ent- 
spricht in Basic »GETA« oder »name =%$ text« das 
»A$= "text”« gleichkommt. Die Ausgabe erfolgt mit »name« 
(Arbeitsbildschirm) oder »name x y PUT$« (Grafikseite). 

»n CHR« verhält sich wie ein 1 x 8-Shape, dessen Punkte- 
muster dem Zeichen mit dem Bildschirm-Code n entspricht. 
Turtle 

Die Turtle-Grafik baut auf dem Hires- und Multi-Color-Paket 
auf und umfaßt alle Grafikbefehle des Commodore-Logo. Es 
beansprucht lediglich 456 Byte (!), was die Leistungsfähig- 
keit von Forth gut illustriert. Die Koordinaten der Turtle stehen 
immer als oberste Zahlen auf dem Stack (Achtung!) , also die 
Richtung der Schildkröte in der Variablen HEADING. Bei der 
Übertragung von Logo-Programmen muß die UPN von Forth 
beachtet werden. Statt »FORWARD 10« erwartet Forth die 10 
auf dem Stack, also »10 FORWARD«. 

Der Punkt (0,0) liegt wie gewohntin derlinken oberen Ecke 
und nicht, wie bei den meisten Logo-Versionen, in der 
Bildschirmmitte. Dies kann der Benutzer durch ». MOVE 
LFORN. ...;« und entsprechende Definition von LFORN nach 
Bedarf ändern. 

Alle Turtle-Befehle können natürlich wie bei Logo abge- 
kürzt werden. Sie schreiben dann statt »10 FORWARD: ein- 
fach »10 FD« und so fort. Die Turtle sollte sich nicht mehr als 
30000 Punkte in jeder Richtung vorwärts bewegen (2-Byte- 
Arithmetik). Der Befehl TURTLE initialisiert die Schildkröte 
und das Farb-RAM, löscht die Grafikseite und sollte nur dann 
aufgerufen werden, wenn man sich das HION ersparen will - 
also nicht von der Grafikseite aus. Ein Beispielprogramm: 
> LINIE 50° ED’-90-RT ; 

: QUADRAT LINIE LINIE LINIE LINIE 
: ROSETTE 36 O0 DO QUADRAT 10 RT 12 FD LOOP ; 


TURTLE ROSETTE . 
Soweit der allgemeine Überblick über die einzelnen, im 
Turtle-Forth enthaltenen Programm-Pakete. 


Die Sereens von Turtle-Forth 


SCR # 1: nicht verwendet. 

SCR#2 bis 4: Lade-Screens. SCR #2 lädt die normale 
Hires-Grafik, wobei die Befehle PLOT und LINK wahlweise als 
Primitive (SCR #70 bis 77) oder als High-Level (SCR # 12 
bis 13 und 20) definiert werden - je nachdem wie die Klam- 
mern in SCR#2 stehen. 

SCR #3 lädt die Multi-Color-Grafik, bei der sowohl der nor- 
male als auch der Multi-Color-Modus zur Auswahl stehen 
kann. Die Umschaltung zwischen den beiden Modi erfolgt Mit 
den Wörtern MON beziehungsweise MOFF. Zu beachten ist, 
daß der Dictionary-Pointer zwischendurch auf 16384 hoch- 
gesetzt wird, um 8 KByte Platz für die Bitmap zu schaffen 
(siehe rechts). SCR # 4 lädt die Extras, die natürlich auch ein- 
zeln zu verwenden sind. 

SCR #5 bis 9: nicht verwendet. 

SCR #10 bis 11: Diese beiden Screens enthalten die 
Installation der hochauflösenden Grafik und müssen dem 
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Computertyp angepaßt werden. Die hier vorgestellten Wörter 
gelten für den Commodore 64. 

Zunächst werden 1000 Byte Platz geschaffen, um den 
Bildschirm zwischenzuspeichern. Das bezweckt, daß Sie 
auch bei eingeschalteter Hires-Grafik weiterhin alle Befehle 
im Direktmodus eingeben können. SCREENSWAP besorgt 
die Speicherverschiebung und benutzt das Wort NSWAP 
(adr 1 adr 2 n - ), welches n Byte zwischen den Adressen 
adr, und adr, austauscht. SCRON beziehungsweise 
SCROFF schalten den Videochip ein und aus, um einen Sau- 
beren Übergang beim Einschalten der Grafik zu erzielen. 

HION und HIOFF besorgen die Umschaltung auf hochauf- 
lösende Grafik. Falls Sie mit einem anderen Computer als 
dem C64 arbeiten, müssen hier natürlich andere »Pokes« 
stehen, die Sie dem Benutzerhandbuch entnehmen können. 

Falls die Hires eingeschaltet ist, legt HION? ein Flag 
(ungleich Null) auf den Stack, ansonsten eine Null. SCREEN 
teilt dem Bildschirmeditor des Betriebssystems mit, wo der 


colour 


FORTH 


Screen 


HION 1. Bildschirm aus 
2, Bitmapping ein 
3. SCREENSWAP 
4. Bild.-Editor Reg. 648 
5, Bildschirm ein 


SCRON (53285)or16 
SCROFF (53265)and239 
HION (53272)or8 
(53265)or32 
HIOFF (53272)and247 
(53265)and223 


Die Speicherplatzaufteilung des Grafik-Pakets beim C 64 
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Eingabe-Bildschirm liegt. Bei ausgeschalteter Hires befindet 
er sich ab Register 1024 (also Page 4), bei eingeschalteter 
Hires, also nach SCREENSWAP ab Register 4096 (also 
Page 16). 

Bei Forth-Programmen empfiehlt es sich, Wort für Wort ein- 
zugeben und auszutesten. Dann weiß man nämlich sicher, wo 
man steht und spart sich viel Ärger beim Fehlersuchen. Sie 
kennen nun alle Wörter, um mit der hochauflösenden Grafik 
auch umzugehen. 

SCR #12 bis 13: Mit PLOT und UNPLOT setzen oder 
löschen Sie die einzelnen Punkte. -PLOT bewirkt PLOT oder 
UNPLOT je nach Verhältnis der Variablen VPLOT und 
VBREAK. Es wird von LINK benutzt. Dadurch ist auch 
UNLINK einfach als Spezialfall von LINK zu definieren und 
zudem lassen sich alle Linien auch unterbrochen (BREAK) 
darstellen. - 

ADR bewirkt die Adreß-Umrechnung von X/Y-Koordinaten 
in die Registeradresse der Bitmap. 

SCR # 14 bis 15: Bevor wir mit der Hires (CIRCLE) fortfah- 
ren, wollen wir die Multi-Color-Grafik installieren. SCR # 14 
und 15 entsprechen bis auf kleine Details SCR # 10 und 11. 

SCR # 16 bis 19: Hier wirkt eine trickreiche Programmier- 
Technik. Damit sowohl die Arbeit mit normaler Hires als auch 
mit Multi-Color-Hires möglich ist, sind die meisten Wörter 
zweimal zu definieren. Um den gleichen Namen wieder zu 
verwenden, werden die Wörter vektoriell ausgeführt. 

Zum Beispiel PLOT. Es führt das Wort aus (EXECUTE), das 
in der Variablen 'PLOT steht. Dort befindet sich im normalen 
Hires-Modus die Code-Feld-Adresse (CFA) von PLOT,H im 
Multi-Color-Modus dagegen die CFA von PLOT,M. Das Ein- 
beziehungsweise Ausschalten mit MON und MOFF ändert 
also lediglich die Vektoren 'PLOT 'ADR etc. ab. MCON und 
MCOFF bewirken dabei die eigentlichen »Pokes«, um den 
entsprechende Grafik-Modus einzuschalten. 


2DROP (ny naks ) 
Drop Drop 
3DROP ( nı na 83, - ) 


Drop 


Drop 


Drop 


2DUP (nına -nınanı n9 ) 


SCR #20: Auf dem PLOT-Befehl aufbauend zeichnen wir 
jetzt eine Gerade, das heißt, alle Punkte zwischen zwei Koor- 
dinaten. LINK verwendet, je nachdem, ob die Steigung der 
Geraden mehr als 45 Grad beträgt, LINX oder LINY. Nun gibt 
auch BREAK einen einleuchtenden Sinn. 

SCR #21 bis 23: Um einen Kreis zu zeichnen, benötigen 
wir eine Sinus- oder Cosinus-Funktion. Das scheint schwie- 
rig, da Forth doch keine Fließkommazahlen kennt. 

Wir erzeugen uns jedoch einfach Grad für Grad eine Liste 
der Sinuswerte. (Wegen der Beziehung cos « = sin (90-«) 
kann man sich eine Cosinus-Liste sparen.) Das entschei- 
dende Wort istnun CIRC. Es berechnet aus dem Winkel a die 
Koordinaten x und y unter Benutzung des Radius, der in der 
Variablen RAD stehen soll. ARC zeichnet dann einen Kreis- 
bogen, wobei die mit CIRC gewonnenen Koordinaten mit 
dem Quotienten EPS/100 multipliziert werden, so daß sich 
die Kreise stauchen und dehnen lassen. EPSistzu 100 initia- 
lisiert. Es entstehen also wirklich Kreise, solange man die 
Exzentrität nicht mit EXCENTER ändert. CIRCLE ist dann nur 
noch ein Spezialfall von ARC. 

SCR #24: SCR#24 demonstriert schön die Forth- 
Philosophie: NGON zeichnet offene, POLYGON geschlos- 
sene Kurvenzüge. Beide benutzen dazu ein Wort namens 
GON. TRIC und REG, also Drei- und Vierecke - Spezialfälle 
geschlossener Kurven - arbeiten also mit POLYGON. QUA- 
DRAT wiederum ist ein Sonderfall von REC. 

SCR # 25 bis 27: Hier wird das Wort SYS (ax yadr-axy) 
benötigt, das nicht dem FIG-Wortschatz entstammt. Die FIG- 
Definition eines solchen Wortes findet sich im Texteinschub 
Einbinden von Betriebssystem-Routinen«. SF ist eine 
Stringvariable, die mit SEQ eingelesen und mit .SEQ ausge- 
geben wird. 

SWARITE ruft einige Betriebssystem-Routinen zur sequen- 
tiellen Datenspeicherung auf: 


Er 1] 137 
Definition und Wirkung der verwendeten Nicht-FIG-Wörter 


over over 


2SWAP ( nı nanany - na n, Dina ) 


13 

Ta 

WE 
>R ROT ROT R> ROT ROT 


: SYSTEM ; 
: 2DROP DROP DROP ; 
: 3DROP DROP DROP DROP ; 
: 2DUP OVER OVER ; 
: 2SWAP >R ROT ROT R> ROT ROT ; 
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SYSTEM aktiviert bei HES-FORTH ein Vokabular, 
welches das Wort SYS enthält. Wie SYS 
definiert werden kann, zeigt der 
Texteinschub über Betriebasystem-Routinen. 




















$ FFBD Setnam 
$ FFBA Setlfs 
$ FFCO Open 

$ FFC9 _CHKOUT 
SREAD ruft auf: 

$ FFBD Setnam 
$ FFBA Setlfs 
$ FFCO Open 

$ FFC6  CHKIN 

SCLOSE ruft auf: 
$ FFC3 Close 

$ FFCC Circhn 


So lassen sich einzelne Bytes (TO FROM) und ganze Spei- 
cherbereiche (TOS FROMS) auf Diskette sequentiell spei- 
chern. Diese Routinen sind Commodore-spezifisch und sind 
auf anderen Computern unbrauchbar. Die Befehle sind aber 
sicherlich für viele C64-Forth-Programme äußerst nützlich. 

SCR # 28: HIWRITE und HIREAD benutzen nun die Fähig- 
keit zu sequentieller Datenspeicherung, um Grafiken zu spei- 
chern und wiederzulesen. Folgende Adreßbereiche können 
bearbeitet werden.: 

1. 8 KByte Bitmap (8192 bis 16383) 

2. Hintergrund (53281) 

3. Bildschirm (1024 bis 2023 beziehungsweise 4096 bis 
5095) 

4. Farbspeicher (55296 bis 56295) 


SCR # 29: nicht verwendet. 

SCR #30 bis 32: Painter-Package (tastaturgesteuertes 
Zeichenprogramm). 

SCR #33 bis 39: nicht verwendet. 

SCR #40 bis 42: Shape-Package (Teil 1). 

SCR #43 bis 44: nicht verwendet. 

SCR #45 bis 46: Shape-Package (Teil 2). 

SCR # 47 bis 49: nicht verwendet. 

SCR # 50: String-Package, grundsätzliche Definitionen. 

SCR # 51 bis 54: nicht verwendet. 

SCR # 55 bis 57: String-Package, zusätzliche Funktionen. 

SCR #58 bis 59: nicht verwendet. 

SCR # 60 bis 61: Turtle-Package, stellt in nur zwei Screens 
alle für die Turtle-Grafik notwendigen Befehle zusammen. 

SCR #62 bis 69: nicht verwendet. 

SCR # 70 bis 77: Nun lernen Sie die Wörter PLOT und LINK 
auch als Primitive (für C 64) kennen. Dazu benötigen Sie das 
Assembler-Vokabular Ihres FIG-Forth und ein ganzes Stück 
Arbeit, um die Screens einzugeben. Dafür haben Sie dann 
aber auch einen sehr schnellen LINK-Algorithmus. 

XFORM und YFORM passen die Koordinaten an, die 
‚außerhalb« liegen, das heißt, die Werte O > x > 319 oder 
0O>y2 199, so daß Linien, die auf einer Seite herauslaufen, 
auf der anderen wieder auftauchen. (»Wrap-Around«.) Der 
fortgeschrittene Programmierer kann sich diese Wörter auch 
so abändern, daß die Linie am Rand einfach abbricht, also 
einen maximalen Wert nicht überschreitet (»Clippinge). 
Bemerkenswert ist vielleicht, daß UNLINK den Code von 
LINK abändert, indem es die Adresse von UNPLOTCODE in 
den Code-Body von PLOTIT schreibt und dann einfach LINK 
aufruft. Dies ist eine Programmiertechnik, die sehr mit Vor- 
sicht zu genießen ist! 

Eine Liste aller Befehle mit ihren Wirkungen ist in der 
Tabelle (rechts) enthalten. 

Aufbauend auf dem Grundprogramm können Sie eine Viel- 
zahl eigener Programme verwirklichen. Als Anregung einige 
Beispiele, wie das tastaturgesteuerte Zeichenprogramm 
(PAINTER), das Speichern und Kopieren von beliebigen Bild- 
schirmausschnitten (SHAPES), der Sprite-Generator 


(SHAPER) oder die Logo entlehnte Schildkröte (TURTLE). 

Schließlich können Sie auch Texte (STRINGs) aus dem 

Character-ROM auslesen und in die HiRes einbringen. 
(Andreas Carl/ev) 
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(1) HiRes 

HIBASE (- 819) 

SCROFF (-) 

SCRON (-) 

HION =} 

HIOFF (-) 

HION? (-f) 

HFILL (n-) 

HCLEAR (-) 

HCOL (n-) 

CFILL (be -) 

ADR (xy-a) 

PLOT (=) 

UNPLOT (xy-) 

?PLOT (xy-f£) 

XFORM . 

LINK (xoYo Xıyı -) 

UNLINK (xoyo Xıyı -) 

BREAK (n -) 

NGON (XoyO« -Xn-1+ -Yn-1 
n-) 

POLYGON 

TRIC (xoyo Xıyı X2y2 -) 

REC (xoyo ab—) 

QUADRAT  (xoyo a -) 

CIRCLE (xoyorda-) 

ARC (xoyo Tao aı da-) 

ANGL Xoyora-) 

EXCENTER (n-) 

SEQname (-) 

.SEQ (-) 

SWRITE (-) 

SREAD 2) 

SCLOSE (-) 

10 (=) 

T0S (an-) 

FROM (=>b) 

FROMS (an-) 

HIWRITE (-) 

HIRED  (-) 


SHAPEWRITE (-) 
SHAPEREAD (-) 


(2) Multi-Color-Grafik 


Adresse des ersten Bytes 

ausschalten des Video-Chip 

einschalten des Video-Chip 

umschalten auf Grafikbildschirm 

umschalten auf Arbeitsbildschirm 
Grafikbildschirm eingeschaltet? 

füllt die Grafikseite mit dem Byte n 

löscht den Grafikbildschirm 

wählt Zeichenfarbe O sn < 15 

füllt den Farbspeicher mit der Hintergrundfarbe 
b und der Zeichenfarbe c 

Wandelt die Koordinaten x, y in die Bitmap- 
Adresse a um 

setzt Zeichenpunkt 

löscht Zeichenpunkt 

Zeichenpunkt gesetzt? 

Handler für Koordinaten, die »außerhalb« 
liegen; 

verbindet zwei Punkte Po und Pı 

löscht die Verbindungslinie zweier Punkte Po 
und Pı 

definiert die Länge der Teile von gebrochenen 
Linien. Ist zun = 30000 initialisiert 


verbindet n Punkte Po bis Pn—ı 


(xoY0» »Xn-ıYn-ı n-)verbindet n Punkte Po bis P„n—ı zu einem 


geschlossenen Kurvenzug 

zeichnet ein Dreieck PoPı P2 

zeichnet ein Rechteck mit der Länge und der 
Höhe b 

zeichnet ein Quadrat mit der Kantenlänge a 
zeichnet einen Kreis um den Mittelpunkt Po mit 
dem Radius r in Schritten von je da Grad 
zeichnet einen Teilkreis von ao Gradbis a 
Grad 

zeichnet Radius eines Kreises zum Winkel a 
bestimmt die Exzentrizität für CIRCLE, ARC 
und ANGL; n= 100 bedeutet r. : r, = 1 

legt Filenamen für folgende Diskettenoperatio- 
nen fest 

zeigt Filenamen an 

öffnet sequentielles Schreibfile 

öffnet sequentielles Lesefile 

schließt sequentielles File 

schreibt Byte b in offenes File 

schreibt n Bytes ab der Adresse a in offenes 
File 

liest Byte bein 

liest n Bytes ein und speichert sie ab der 
Adresse a 

schreibt B KByte HiRes plus 3 KByte Farbinfor- 
mation in sequentiielles File 

liest HiResgrafik aus sequentiellem File ein 
speichert Shapes oder Sprites in sequentielles 
File 

liest Shape oder Sprite 


alle Befehle wie (1) und zusätzlich: 


MON (-) 

MOFF (-) 

MFLAG (- f) 

CFILL (b CıC2C3 -) 
MCOL (cıc2c3 -) 
HCOL (n -) 


schaltet auf Multi-Color-Mode um 

schaltet auf Normal-Mode um 
Multi-Color-Mode eingeschaltet? 

füllt die Farbspeicher 

wählt die drei Zeichenfarben (0 < c < 15) 
wählt aktuelle Farbe für PLOT etc. (n = 1,2,3) 


Die Befehle des Grafik-Pakets 
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Listing »Turtle-Graflk« In Forth (Fortsetzung) 


SCR @ 18 

Q t CONT. D 

| * ADR,H CFA VARIABLE ’ADR 

2 ‘ APLOT.H CFA VARIABLE °'?PLOT 

3 ° PLOT,H CFA VARIABLE 'PLOT 

4 * UNPLOT,H CFA VARIABLE 'UNPLOT 

5 ‘ MCOL,H CFA VARIABLE °’HCOL 

6 ° CFILL,H CFA VARIABLE °’CFILL 

7 

8 ı ADR '’ADR A EXECUTE ; 

9 :ı ?PLOT ’?PLOT @ EXECUTE ; 

10 ı PLOT ’PLOT @ EXECUTE ı 

11 ı UNPLOT ’UNPLOT @ EXECUTE ; 

12 ı -PLOT VPLOT @ VBREAK @ / 2 MOD 

13 0= IF PLOT ELSE UMPLOT ENDIF VPLOT DUP @ I» SWAP I ; 
14 ı HCOL ’HCOL @ EXECUTE ı 

15 ı CFILL '’CFILL @ EXECUTE ; . 
SCR 0 19 

0 t CONT. ) 

ı 

2 

3 ı MCON 533270 Ca 16 OR 33270 CI ı 

4 ı NCOFF 33270 Ca 239 AND 33270 Ci ; 

Ss 

6 ı MON MCON ' PLOT,M CFA ‘PLOT | ° UNPLOT,N CFA 'UNPLOT I 
7 ' HCOL,M CFA ’HCOL ı ° CFILL,M CFA 'CFILL | 
8 " ADR,N CFA ‘ADR I ' ?PLOT,M CFA '?PLOT | 
9 ı ' NFLAG I 7; 


10 ı MOFF NCOFF ' PLOT,H CFA "PLOT ı °' UNPLOT,H CFA 'UNPLOT | 


11 ’ KCOl.,.H CFA °HCOL ı ° CFILL.H CFA ’CFILL | 
12 ' ADR,H CFA ’ADR I ° ?PLOT,H CFA '?PLOT | 
13 0 ' MFLAG | 3; 

14 

15 
SCR ®# 20 


t LINK ) 


O VARIABLE DX O VARIABLE DY O VARIABLE NSTEP 


LINX DO DUP I DY 4 DX & ®/ » 
ROT DuUP I + ROT -PLOT SWAP NSTEP @ +LOOP 2DROP ; 


LINY DO DUP I DX @ DY @ «/ © 


c 
0 
1 
2 
3 
4 ı TO DUP O< IF 1 - -1 NRSTEP t ELSE I + 1 NSTEP I ENDIF ; 
3 
5) 
7 
8 
9 ROT DUP I + ROT SWAP -PLOT SWAP NSTEP @ +LOOP 2DROP 


10 
11 : LINK INIPLOT ROT >R I - DY ı SWAP >R I - DX I 
12 R> R> DX @ ABS DY @ ABS > IF DX @ TO O LINX 
13 ELSE SWAP DY @ TO O LINY ENDIF ; 
14 ı UNLINK VBREAK @ >R O VBREAK I LINK R> VBREAK | ı 
15 
SCR # 21 
0 ( SINUS ) 
1 O VARIABLE SINA 173 ,„ 349 ,„ 523, 698, 872, 1043, 1219, 1392 
2 ,„ 1564 , 1763 ,„ 1908 „ 2079 , 2250 ,„ 2419 , 2588 „ 2736 „ 2924 
3 ,„ 3090 „ 3256 „ 3420 „ 3384 „ 3746 „ 3907 , 4067 „ 4226 ,„ 4384 
4 „ 4340 ,„ 4695 ,„ 4848 „ 3000 , 3150 ,„ 53299 „ 5446 „ 35392 „ 373 
5 , 5878 „ 6018 , 6137 , 6293, 6428 „ 6361 „ 6691 „ 6820 „ 6947 
6 ,„ 7071 , 7193, 7314 , 7431 ,„ 7347 , 7660 „ 7771 , 7880 „ 7986 
7 , 8090 „ 8192 ,„ 82% „ 8387 , 8480 „ 85372 ,„ 8660 „ 8746 „ 8829 
8 „ 8910 ,„ 8988 „ WEI „ 9135 , 9203 ,„ 9272 „ 9336 „ 9397 „ 9435 
9 „95ıl , 9563 , 9613 ,„ 9639 „ 9703 „ 9744 „ 9781 „ 9816 „ 9848 
10 „ 3877, 93%03 „ 9923 ,„ 9943 , 9%2 „ 9976 ,„ 9986 „ 9994 „ 3998 
11 , 10000 , 
12 


13 ı SING 2 «© SINA + @ 10000 SWAP ; 
14 ı COS@ 90 SWAP - SING 5; 


15 
SCR # 22 

0 t CIRCLE 

1 

2 O VARIABLE DA O VARIABLE RAD 100 VARIABLE EXC 

3 

4 ı CNORN BEGIN DuP O < WHILE 360 + REPEAT 

3 BEGIN DUP 360 > WHILE 360 - REPEAT ; 

6 

7 ı SIN CNORM DUP DuP ABS / SWAP ABS DUP 90 < IF SIN@ ELSE 
a DUP 180 < IF 180 SWAP - SIN@ ELSE 

9 DUP 270 « IF 180 - SIN@ -1 « ELSE 

10 360 SWAP - SIN@ -i «® ENDIF ENDIF ENDIF ROT ® ; 

11 : COS 90 SWAP - SIN | 

12 

13 ı EPS EXC @ 100 ®/ ; 

14 ı EXCENTER EXC I ; a 
15 

SCR #6 23 

0 t CONT. 


O VARIABLE CX O VARIABLE CY 


1 
2 
3 
4 ı CIRC RAD @ OVER SIN SWAP ©/ RAD @ ROT COS SWAP ®/ ı 
a 
6 


ı ARC DA I 2DUP > IF DA DUP @ -1 © SWAP I ENDIF 
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7 >R >R RAD I CY I CX I R> R> SWAP 
8 DO I CIRC CX @a « SWAP EPS CY @ + R> DA @ + >R 
9 1 CIRC CX @ » SWAP EPS CY @ «+ R> DA Q@ - >R 
10 LINK DA @ +LOOP ; 
11 ı CIRCLE O 360 ROT ARC ı 
12 ı ANGL >R RAD ! 2DUP R> CIRC >R » SWAP R> + SWAP LINK | 
13 
14 
13 
SCR # 24 
0 t POLYGONX ) 
ı 
2 O VARIABLE B O VARIABLE L 
3 
4 ı GON ı DO >R >R 2DUP R> R> 2SWAP LINK LOOP ; 
53 ı NGON GON 2DROP ; 
6 ı POLYGON ROT ROT >R DUP I SWAP >R ROT GON R> R> LINK ; 
7 ı TRIC 3 POLYGON ı 
An aREC- IT I I = 
9 2DUP L @ ROT + Swap 
10 2DUP BG «+ 
11 2DUP L @ ROT SWAP - SWAP 
12 2DuP B@ - 
13 5 NGON ı 
14 :ı QUADRAT DUP REC ; 
15 
SCR «4 25 
0 t SEQUENTIELLE FILES ) 
ı 
2 O VARIABLE SF 20 ALLOT 
3 
4 ı SEQ 34 WORD HERE SF 20 CHOVE | 
53 ı .SEQ SF COUNT TYPE ; 
6 
7 ı NAN,S,X SF COUNT + DUP ASCII „ SWAP Ci 
8 1+. DUP ASCII S SWAP CI 
9 le DUP A&GCII „ SWAP CI 
10 le C1 
11 SF DuP Ca 4 +» SWAP Ci 7 
12 : NAM,S,W ASCII W NAN,S,X 3 
13 » NAN,S,R ASCII R NAN,S,X ı 
14 => 
15 
SCR 6 26 
0 t CONT. ) 
ı 
2 HEX O0 VARIABLE SPSAVE 
3 
4 ı OFFSPRITE DO1S Ca SPSAVE Ci O0 DOIS CI ; 
5 ı OLDSPRITE SPSAVE C@ DO1S CI ; 
6 
7 ı SWRITE OFFSPRITE CR .* WRITING * .SEO 
8 SYSTEM NAN,S,W SF COUNT SWAP 100 /MOD FFBD SYS 
9 3DROP SF DUP Ca 4 - SWAP CI 
10 2 8 2 FFBA SYS FFCO SYS 3DROP 
11 0 2 Q FFC9 SYS 3DROP | 
12 
13 ı TO SYSTEM O O FFD2 SYS 3DROP ı 
14 ı TOS O DO DUP I +» Ca TO LOOP DROP ; --> 
15 
SCR # 27 
0 t CONT. ) 
1 
2 
3 ı SREAD OFFSPRITE CR .* READING ® .SEOQ 
4 SYSTEM NAN,S,R SF COUNT SWAP 100 /MOD FFBD SYS 
5 3DROP SF DUP Ca 4 - SwaP Ci 
6 2 8 2 FFBA SYS FFCO SYS 3DROP 
7 0 2 O FFC& SYS 3DROP ; 
8 
9 ı SCLOSE QOLDSPRITE SYSTEN 2 Q O FFC3 SYS FFCC SYS 3DROP ; 
10 
11 ı FROM SYSTEN O O Q FFCF SYS 2DROP ; 
12 ı FRONS O DO FRON OVER I + Ci LOOP DROP ; 
13 
14 DECIMAL 
15 
SCR # 28 
0 ( WRITE/READ 
1 
2 
3 ı HIWRITE SWRITE 8192 DuP TOS 33281 Ca ro 
4 HION? IF 1024 ELSE 4096 ENDIF 1000 TOS 
5 53296 1000 TOS SCLOSE ; 
& ı HIREAD SREAD 8192 DUP FRONS FRON 533281 Ci 
7 HION? IF 1024 ELSE 4096 ENDIF 1000 FRONS 
8 53296 1000 FRONS SCLOSE ; 
9 
10 ı SHAPEWRITE SWRITE «+ TOS SCLOSE ; 
11 ı SHAPEREAD SREAD « FRONS SCLOSE ı 
12 
13 
14 
13 





.-> 


SCR # 30 
[0] t PAINTER ) 
l QO VARIABLE OLD 
2 ı REPON 128 650 Ci! ; 
3 ı REPOFF Q 650 CI ; 
4 ı KILL 2DUP UNPLOT ; 
5 ı PLOTOVER 2DUP ADR OLD @ SWAP Ci 
6 ı DRAW ; 
7 * DRAW CFA VARIABLE LASTVECTOR 
a ' PLOTOVER CFA VARIABLE PENMODE 
9 ı UP/DOWN PENMODE @ LASTVECTOR @ PENMODE I LASTVECTOR I ; 
10 ı ?DOWN ° PLOTOVER CFA PENMODE @ = ; 
1i « SETMODUS ?DOWN IF LASTVECTOR I ELSE PENMODE | ENDIF ı 
12 ı DODRAW ° DRAW CFA SETMODUS ; 
13 ı DOKILL ° KILL CFA SETMODUS ; 
14 ı LASTPLOT >R LASTVECTOR @ EXECUTE R> ; 
15 ı NEXTPLOT 2DUP ADR Ca OLD ! 2DUP PLOT ; 
SCR # 31 
0 ( CONT. D 
li ı SLOPE BEGIN KEY DUP 13 « O= WHILE LASTPLOT 
2 DUP 72 = IF >R SWAP 1+ SWAP R> ENDIF 
3 DUP 78 = IF >R 1» SWAP 1+ SWAP R> ENDIF 
4 DUP && = IF >R 1» R> ENDIF 
5 DUP 86 = IF >R 1» SWAP 1 - SWAP R> ENDIF 
& DUP 70 = IF >R SWAP 1 - SWAP R> ENDIF 
7 DUP 82 = IF >R 1 - SWAP 1 - SWAP R> ENDIF 
8 DUP 84 = IF >R 1 - R> ENDIF 
9 DUP 89 = IF >R 1 - SWAP 1» SWAP R> ENDIF 
10 DUP 71 =» IF UP/DOWN ENDIF 
11 DuUP 133 = IF 3 HCOL DODRAW ENDIF 
12 DUP 134 = IF 2 HCOL DODRAW ENDIF 
13 DUP 135 = IF O HCOL DODRAW ENDIF 
14 136 = IF DOKILL ENDIF 
15 NEXTPLOT REPEAT DROP ; --> 
SCR # 32 
0 t CONT. ) 
l 
2 ı PAINT 2DUP PLOT 
3 ' DRAW CFA LASTVECTOR | 
& ° PLOTOVER CFA PENMNODE | 
g REPON SLOPE REPOFF ; 
& 
7 
& ( RTY Fi 
9 F3 
10 FGH F3 
ıl F7 
12 ven RETURN ) 
13 
14 
15 
SCR # 40 
0 t SHAPES ) 
1 
2 O VARIABLE PARITY 
3 
4 ı SHAPE <BUILDS OVER , DUP ,„ © ALLOT 
5 DOES> >R R 4 » R @ R> 2» Q@ l 
& ı CLEAR « O0 DO O QOVER I + Cı LOOP DROP ; 
7 ı ?S OVER HERE I « O0 DO I HERE w MOD O= 
a IF CR ENDIF DUP I +» C@ 4 .R LOOP DROP ; 
9 ı DIN ROT DROP ; 
10 ı ZAHL? O IN I TIB @ 10 EXPECT 
11 32 WORD HERE NUMBER DROP ; 
12 ı INPUT OVER PARITY I « O DO I PARITY @ MOD O= IF CR ENDIF 
13 ZAHL? OVER I «+ Ci LOOP DROP , 
14 
15 --> 
SCR 6 41 
0 ( CONT. ) 
l O VARIABLE SX Q VARIABLE SY 
2 
3ı >BIT 8 O0 DO 2 «e >R I 256 / R> 235 AND LOOP DROP ; 
4 ı aSwaP A Q DO HERE I + Ci LOOP 
5 a O0 DO HERE I + Ca LOOP ; 
& ı PuT SY I SX ı DY ı! DX ı 0 SWAP 
7 DX @ DY @ » 0 DO DUP I +» C@ >BIT aSWaP 
8 a oO DO SX a SY @ ROT 
g IF PLOT ELSE UNPLOT ENDIF 
10 1 SX +ı LOOP 
11 >R i+ DUP DX @ MOD Q= IF 1 SY +1 
12 -B DX @ © SX +1 
13 ENDIF R> LOOP 2DROP ı 
14 
13 45 ?LOAD 
SCR # 42 
OÖ € SHAPER ) 
l 16 VARIABLE PX 16 VARIABLE PY 
2 
3 ı 3DUP >R OVER OVER R ROT ROT R> ; 
4 ı FRAME ROT DROP 2+ SWAP A « 2» SWAP 15 15 2SWAP REC ; 
S ı DEFSHAPE OVER HERE I » 16 PX I 15 PY 1 











6 0 DO I HERE a MOD O=- IF 1 PY +1 16 PX I 
7 ELSE 8 PX +1 ENDIF 
8 Px @ PY @ ADR Ca OVER Ci 1: LOOP DROP ı 
9 : SHAPER HCLEAR 3DUP FRAME 17 17 PAINT 
10 2DROP DEFSHAPE ; 
11 
12 ı SPRITE 2040 + Ca 64 » 3 21; 
13 ı IPOINTER a O DO 48 I + 2040 I + Cı LOOP ; 
14 
15 46 ?LOAD 
SCR # 45 
O t MPUT ) 
1 
2 ı MPUT SY ı SX ı DY I DX ı 0 SWAP 
9 DX @ DY @ « O0 DO DUP I +» C@ >BIT ASWaP 
4 4 0 DO 2 * + DUP 
5 IF HCOL SX @ SY @ PLOT 
& ELSE DROP SX a SY @ UNPLOT ENDIF 
7 1 SX +Ii LOOP 
1) >R 1» DUP DX @ MOD O= IF 1 SY el 
9 -4 DXQ@ ©. SX e1 
10 ENDIF R> LOOP 2DROP ; 
11 
12 
13 
14 
13 
SCR # 46 
0 t MSHAPER ) 
I 
2 
3 ı MFRANE ROT DROP 2° SWAP 4 «e 2° SWAP 7 15 2SWAP REC ; 
4 ı DEFNMSHAPE OVER HZRE I « 16 PX I 13 PY ı 
a 0 DO I HERE A MOD O= IF 1 PY »I 16 PX I 
6 ELSE a PX +1 ENDIF 
7 PX w PY @ ADR,H C@ OVER CI 1+ LOOP DROP ; 
8 
9 ı NSHAPER HCLEAR 3DUP NFRANE 9 17 PAINT 
10 2DROP DEFNSHAPE ; 
ıı 
12 
13 
14 
15 
SCR # 50 
0 t STRING-PACKAGE ) 
1 
2 ® «BUILDS 78 ALLOT DOES> ; 
9 
4 : INPUTeE Q IN ! TIB @ 80 EXPECT 34 WORD 
5 HERE SWAP 80 CHOVE ; 
& =6 34 WORD HERE SWAP 80 CHOVE ; IMMEDIATE 
7 
8: «© COUNT TYPE ; 
9: LEN COUNT SWAP DROP ; 
10 
11 
12 
13 
14 
15 
SCR # 55 
0 U aCHAR > 
ı 
2 CODE @CHAR 254 0 LDA, 536334 AND, 56334 STA, 
3 251 ® LDA, 1 AND, 1 STA, 
4 
5 BOT LDA, N 1 - STA, 
6 BOT le LDA, N STA, 
7 0 ® LDA, BOT 1» STA, TAY, 
8 N 1 - )Y LDA, BOT STA, 
9 
10 4 0 LDA, 1 ORA, 1 STA, 
11 1 @ LDA, 36334 ORA, 36334 STA, 
12 
13 NEXT JMP, END-CODE 
14 
15 
SCR # 56 
o ( ASCII-WANDLER | 
1 
2 
3 ı A>S DUP 128 AND IF 127 AND 64 OR ELSE 
4 DUP 64 AND O=- IF ELSE 
3 DUP 32 AND IF 95 AND ELSE 
6 63 AND ENDIF ENDIF ENDIF ; 
7 
8 
9 
10 
11 
12 
13 
14 
15 
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SCR # 537 


[e] t PUTse ) 
ı 
2 53244 CONSTANT CHARBASE 
3 O VARIABLE CHARACTER 6 ALLOT 
4 
53 ı CHR & » CHARBASE + 
6 8 O0 DO DUP I + G@CHAR CHARACTER I + Ci 
7 LOOQOP DROP CHARACTER 1 & ; 
a 
9 O VARIABLE CHX O VARIABLE CHY 
10 
11 : PuTs CHY ı CHX ı COUNT O DO DUP I + C@ A>S CHR 
12 CHX @ I 8 © + CHY ®@ PUT 
13 LOOP DROP ; 
14 
15 
SCR # 60 
0 ( TURTLE ) 
il 
2 0 VARIABLE HEADING 1 VARIABLE PENSTATE 
3 
4 
5 ı RIGHT HEADING +1 ; 
6 ı LEFT -i « RIGHT ; 
7 ı MOVE 2DUP >R >R 2SWAP R> R> 
8 PENSTATE @ IF LINK ELSE 2DROP 2DROP ENDIF ; 
9 ı FORWARD RAD ! 2DUP HEADING @ 90 - CIRC >R » SWAP R> * 
10 SWAP MOVE ; 
11 ı BACK 180 RIGHT FORWARD 180 LEFT ; 
12 
13 
14 > 
15 
SCR # 61 
0 t CONT. ) 
l 
2 ı PENDOWN 1 PENSTATE I ; 
3 ı PENUP Q PENSTATE I ; 
4 ı SETHEADING HEADING I ; 
53 ı SETX OVER MOVE ; 
& ı SETY >R OVER R> MOVE ; 
7 ı SETXY MOVE ; 
8 ı HOME O SETHEADING 160 100 MOVE „, 
9 ı TURTLE HCLEAR HION QO SETHEADING MFLAG IF 11 1 Q 6 CFILL 
10 80 100 ELSE 11 1 CFILL 160 100 ENDIF ; 
ıı 
12 ı FD FORWARD ; ı BK BACK ; 
13 : RT RIGHT ; ı LT LEFT ; 
14 ı PD PENDOWN ; ı PU PENUP ; 
15 ı SETH SETHEADING ; 
SCR # 70 
0 ‘ FORM ) 
} 
2 CODE XFORM BEGIN, SEC, BOT LDA, 64 9 SBC, BOT STA, 
3 BOT 1+ LDA, 1 0 SBC, BOT 1+ STA, 
4 0O< UNTIL, 
a BEGIN, CLC, BOT LDA, 64 # ADC, BOT STA, 
6 BOT 1+ LDA, 1 @ ADC, BOT 1» STA, 
7 O< NOT UNTIL, RTS, END-CODE 
8 
9 CODE YFORM BEGIN, SEC, BOT LDA, 200 ® SBC, BOT STA, 
10 BOT 1» LDA, O0 4 SBC, BOT 1+ STA, 
11 0O< UNTIL, 
12 BEGIN, CLC, BOT LDA, 200 ® ADC, BOT STA, 
13 BOT 1» LDA, O @ ADC, BOT 1+ STA, 
14 QO< NOT UNTIL, RTS, END-CODE 
15 u 
SCR # 71 
0 t QUICK-PLOT ) 
1 ASSENMBLER HEX 
2 0 VARIABLE X Q VARIABLE Y MN CONSTANT XL 
3 N 1 ° CONSTANT XH N 2 + CONSTANT SUHML N 3 + CONSTANT SUMH 
4 N 1 - CONSTANT FE 
5 CODE PLOTBODY ° YFORM JSR, INX, INX, °‘ XFORM JISR, DEX, DEX, 
& XSAVE STX, BOT LDY, 
7 BOT 2+ LDA, PHA, BOT 3 + LDA, TAX, PLA, 
8 XL STA, XH STX, TYA, FA 0 AND, FE STA, SUHL STA, 
9 0 ® LDA, SUNMH STA, SUML ASL, SUMH ROL, SUNL ASL, 
10 SUMH ROL, CLC, SUML LDA, FE ADC, SUNL STA, SUMH LDA, 
11 0 @ ADC, SUMH STA, SUHL ASL, SUMH RüL, SUMNL ASL, 
12 SUMH ROL, SUML ASL, SUMH ROL, TYA, 7 @ AND, CLC, 
13 SUNL ADC, SUML STA, SUMH LDA, Q 9 ADC, SUMH STA, 
14 CLC, XL LDA, F& @ AND, SUML ADC, SUML STA, XH LDA, 
13 SUNMH ADC, SUNH STA, CLC, O ® LDA, SUNL ADC, --> 
SCR # 72 
0 t CONT. ) 
1 SUHL STA, 20 ® LDA, SUMNH ADC, SUNMH STA, XL LDA, 7 @ AND, 
2 70 EOR, TAX, 1 ® LDA, 
3 BEGIN, .A ASL, DEX, O« UNTIL, .A ROR, 
4 0 # LDY, RTS, END-CODE 
5 
& CODE PLOTCODE ‘ PLOTBODY JSR, SUML )Y ORA, 
7 SUHL IY STA, XSAVE LDX, 
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8 INX, INX, INX, INX, RTS, END-CODE 

3 CODE UNPLOTCODE ' PLOTBODY JISR, FF @ EOR, SUML IY AND, 

10 SUNL )Y STA, XSAVE LDX, INX, INX, INX, INX, RTS, END-CODE 
ı1 CODE ?PLOT ° PLOTBODY JSR, SUML )Y AND, XSAVE LDX, 

12 INX, INX, BOT STA, O ® LDA, BOT 1+ STA, NEXT JNMP, END-CODE 
13 CODE ADR ‘ PLOTBODY JSR, XSAVE LDX, INX, INX, 


14 SUML LDA, BOT STA, SUMH LDA, BOT 1+ STA, NEXT JNP, 
15 END-CODE .-.> 
SCR # 73 

0 ( CONT. ) 

i 

2 CODE (PLOT) ° PLOTCODE JSR, SEC, SUNMH LDA, 20 @ SBC, SUMH STA, 
3 SUML LDA, F& 9 AND, SUNML STA, CLC, 

4 SUMH ROR, SUML ROR, SUMH ROR, SUNML ROR, SUMH ROR, 

5 SUML ROR, 4 @ LDA, SUMH ADC, SUMH STA, SUML )Y LDA, OF 6 AND, 
6 SUML IY STA, COL LDA, .A ASL, .A ASL, .A ASL, .A ASL, SUNL )Y 
7 ORA, SUML )Y STA, RTS, END-CODE 

8 

9 CODE QPLOT ° PLOTCODE JSR, NEXT JMP, END-CODE 


10 CODE UNPLOT ’° UNPLOTCODE JSR, NEXT JMP, END-CODE 


11 CODE PLOT ° (PLOT! JSR, NEXT JMP, END-CODE 

12 

13 ı INIPLOT 5; : -PLOT PLOT ; : VBREAK ; : BREAK DROP ; 

14 

15 _DECINAL 
SCR # 74 

0 t QUICK-LINK ) HEX 

1 

2 O VARIABLE XO O VARIABLE YO O VARIABLE Xi OL VARIABLE Yl 
3 O0 VARIABLE OF 0 VARIABLE CT O VARIABLE DX O VARIABLE DY 
4 O0 VARIABLE IX O VARIABLE IY_ O VARIABLE AX CO VARIABLE AY 
5 

6 

7 CODE PLOTIT XSAVE LDX, 

8 YO LDA, BOT STAa, YO 1» LDA, BOT 1» STA, 

9 XO LDA, BOT 2+ STA, XO 1» LDA, BOT 3 + STA, 
10 ’ PLOT) JSR, RTS, END-CODE 

11 

12 

13 

14 = 

15 
SCR 6 75 

0 t coNT. 

1 CODE +STEP SEC, OF LDA, DX Sec, Of STA, 

2 OF 1* LDA, DX 1» SBC, OF 1» STA, 

3 AY LDA, O< IF, SEC, XO LDA, 1 9 SBC, XO STA, 

4 xO 1+ LDA, O 0 SBC, XO 1» STA, ELSE, 
5 CLC, XOo LDA, AY ADC, XO STA, 

6 XO 1» LDA, O 8 ADC, XQ 1+ STA, ENDIF, 
7 IY LDA, O< IF, SEC, YO LDA, 1 @ SBC, YO STA, 

8 YO i+ LDA, O0 0 SBC, YO 1» STA, ELSE, 
9 CLC, Yo LDA, IY ADC, YO STA, 

10 YO 1» LDA, Q ® ADC, YO 1» STA, ENDIF, 
11 RTS, END-CODE 

12 

13 ı X<->Y DX a DY a DX I DY ı 

14 IX aıaY ı IYaaXı 

15 oDUP IX ı IYıı z --> 

SCR # 76 

0 ( coNT. ı 

ı CODE LOP 

2 IX LDA, Q< IF, SEC, XO LDA, I 8 SBC, XO STA, XO i+ LDA, 

3 0 8 SBC. XO 1+ STA, ELSE, CLC, X0O ADC, XO STA, XQ 1+ LDA, 

4 0 ® aDC, XQ 1» STA, ENDIF, 

S AX LDA, O< IF, SEC, YO LDA, 1 0 SBC, Ya STA, YO i+ LDA, 

6 0 @ SEC, YO 1» STA, ELSE, CLC, YO ADC, YO STA, YO 1° LDA, 
7068 ADC, YO 1» STA, ENDIF, 

8 CLC, OF LDA, DY ADC, OF STA, OF le LDA, DY 1» ADC, OF 1» STA, 
9 CT INC, O= IF, CT 1° INC, ENDIF, 


10 

11 OF 1» LDA, DX 1» CHP, CS IF, O= NOT If, ° +STEP JSR, ELSE, 
12 DX LDA, OF CHP, CS NOT IF, ' +STEP JISR, ENDIF, ENDIF, ENDIF, 
13 * PLOTIT JSR, RTS, END-CODE 

14 --> 
15 


SCR #4 77 

0 t CONT. I 

1 CODE LINKCODE DEX, DEX, DEX, DEX, XSAVE STX, ' PLOTIT JSR, 

2 BEGIN, ' LOP JSR, 

3 O 8 LDX, CT 1» LDA, DX 1° CHP, CS NOT IF, INX, 
4 ELSE, DX LDA, CT CHP, CS IF, INX, ENDIF, ENDIF, 
5 TXA, O= UNTIL, XSAVE LDX, INX, INX INX, INX, 
6 NEXT JMP, END-CODE 

7 

8 


ı LINK Yıi ı Xı ı YO 1 XO 1 O DUP AY I AX I 


9 Xl a xXO @ 2DUP > IF 1 IX | ELSE -1 IX | SWAP ENDIF - DX I 

10 Yı @ vo @ 2DUP > IF 1 IY 1 ELSE -ı IY 1 SWAP ENDIF - DY I 

11 DX a DY @ > O= IF X<->Y ENDIF DX @ 2 / OF ! I CT! 

12 LINKCODE ı 

13 ı UNLINK * UNPLOTCODE ' PLOTIT 17 «+ 1 LINK 

14 " (PLOT " PLOTIT 17 + I; DECINAL 

15 

Listing »Turtle-Grafik« In Forih (Schluß) 
< aydlarn . 
\* “ur 




















x-pert, ein Mini- 


Experten-System in Forth 


x-pert ist ein Mini-Experten-System, das bis zu 
2512 Menü- oder Antwort-Blöcke mit 31 Byte Text 
und bis zu je zehn Menü-Verzweigungen zuläßt. Es 
bestehen Möglichkeiten zur Erweiterung, Ande- 
rung, zum Löschen und zur Mehrfachnutzung von 
Menüs und Antworten. Der Editor ist auch direkt 


einsetzbar. 
I computer zurealisieren, scheitert meistan der gerin- 
gen Speicherkapazität oder an den extrem langen 
Reaktionszeiten des Diskettenlaufwerks beim Suchen von 
Datensätzen. Einen vertretbaren Kompromiß gestattet die 
Programmiersprache Porth, die durch ihr virtuelles Speicher- 
konzept fast die gesamte Diskette als RAM nutzt. Ein reines 
Assembler-Programm erlaubt zwar kürzere Verarbeitungs- 
zeiten, hält das System aber nicht für Modifikationen und 
Erweiterungen offen. 

In der hier vorgeschlagenen Lösung für den Commodore 
64, enthält jeder Datenblock 31 Zeichen Text undbis zuzehn 
Verzweigungen. Eine Modifikation des Forth-Wortes »r/w« 
(scr# 8,line# 1) erlaubt es, maximal 162 screens auf eine 
Diskette zu schreiben. So stehen insgesamt 2512 Daten- 
blöcke zur Verfügung. Um einen direkten Einblick und somit 
auch direkte Änderungsmöglichkeiten zu schaffen, werden 
alle Daten im ASCII-Code gespeichert, wobei die Nummern 
der Folgeblöcke als hexadezimale Zahlen erscheinen. So 
müssen auch alle Eingaben im hexadezimalen Modus erfol- 
gen. 

Neben den üblichen Variationen einen Entscheidungs- 
baum aufzubauen und zu verändern, erlaubt das vorgestellte 
System bestehende Menüs oder Antworten in neue Menüs 
einzufügen. Das führt zwar zu einer Platzersparnis, doch 
wächst damit die Gefahr der Verfilzung der Aste oder es führt 
zu Endlosschleifen bei der Darstellung der Baumstruktur. 

Im folgenden sollen die neuen, von unserem Mini-System 
angebotenen Wörter erklärt werden (vergleiche Listing 1). 
System-Start 

System mit »7 load« von der Programm-Diskette laden. 
Danach wird eine Daten-Diskette angefordert. 

Oder »x-pert« (==> ) eingeben (nach erstmaliger Compi- 
lation). Das System wird neu gestartet, ohne eventuell neue 
oder veränderte Daten aus dem Disk-Buffer zu übernehmen. 
Beenden der Arbeit 

Nach jeder Sicherung der Daten mit »save« oder »start« 
kann die Bearbeitung einer Diskette beziehungsweise einer 
Datei abgeschlossen werden. Das Leuchten der LED am 
Laufwerk ist ohne Bedeutung. Ein Abschluß mit »done« ist 
ebenfalls möglich. 

Zwischensicherung ohne Protokollveränderung 
save ( ==>) 

Die Datenblöcke im Disketten-Puffer werden auf die Dis- 
kette geschrieben und die Bearbeitung vor dem aktuellen 
Menü fortgesetzt. 
done ( ==>) 

Hat die gleiche Wirkung wie »save«, ruft jedoch kein neues 
Menü auf. 

Zwischensicherung mit Protokollneustart 
start ( ==>) 
Die Datenblöcke werden im Disketten-Puffer auf die Dis- 


er Versuch, ein Experten-System auf einem Heim- 
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kette geschrieben und die Bearbeitung mit neuer Protokollie- 
rung startet beim aktuellen Menü. 

Neue Datendiskette einrichten 

new-disk ( ==>) 

Dieser Vorgang dauert etwa 25 Minuten. Beim Aufruf muß 
eine eingerichtete Datendiskette oder die Programmdiskette 
im Laufwerk sein. Bei Aufforderung legt man die neue Dis- 
kette ein. Es wirdeeine Titelzeile angefordert und dann mit die- 
ser Datei gestartet. 

Diskette aufräumen 
verify ( ==>) 

Ungenutzte Blöcke werden freigegeben. Dieser Vorgang 
wird mit zunehmender Anzahl von Daten immer zeitrauben- 
der. Man kann ihn auf dem Bildschirm beobachten. Ein fehler- 
haftes Ändern mit dem Editor kann »verify« nicht immer korri- 
gieren. 

Menü anwählen 
!(Blocknumner ==>) 

Das Menü beziehungsweise die Antwort mit der eingege- 
benen Blocknummer erscheint. Die Eingabe kann durch die 
Positionierung des Cursors unter die entsprechende Menü- 
zeile erfolgen. 

Rückwärtsschritt 
-( ==>) 

Es erfolgt die Rückkehr zum vorher aufgerufenen Menü. 
Die Ebene wird vermindert, im Protokoll sind jedoch alle 
Schritte festgehalten. »—« dient unter anderem dazu, zum 
Editor zurückzukehren. 

Block zum Menü hinzufügen 
Neueintrag 
KH. 8285:) 

Sofern im Menü und auf der Diskette Platz ist, wird der 
durch Unterstrich angeforderte Text als neue Menüzeile an 
der ersten freien Stelle ins Menü eingefügt. 

Bestehenden Block einfügen 
x+! (Blocknumner == 

Der mit Blocknummer angesprochene Block wird in das 
aktuelle Menü eingefügt, sofern noch Platz vorhanden ist. 
Menü zwischenschieben 
x- ( Blocknumnmer ==>) 

Zwischen das aktuelle Menü und die angewählte Menü- 
zeile fügt sich ein Menü ein. Der Text wird durch Unterstrei- 
chen angefordert. 

Antwort löschen 
x- ( Blocknummer ==>) 

Der Block wird freigegeben, sofern es sich um einen 
Antwortblock handelt. 

Menü löschen 

Ein Menü muß, bevor es gelöscht werden kann, mit 
x= ( Blocknummer ===>) 
zum Antwortblock umgewandelt werden. Wenn keine Folge- 
blöcke vorliegen, wird das Menü laut Blocknummer zur 
Antwort. 

Menü in Antwort wandeln 
x=  ( Blocknumnmer ==>) 

Wenn keine Folgeblöcke vorliegen, wandelt sich das Menü 
zur Antwort. 

Text ändern 
corr ( Blocknummer ==>) 

Der im angewählten Block gespeicherte Text kann erneut 

eingegeben werden. 
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Direktes Andern mit dem Editor 

Diereine ASCII-Darstellung ermöglicht alle Blöcke direkt zu 
ändern. Natürlich ist hierbei besondere Vorsicht geboten, da 
man leicht Schleifen oder falsche Verknüpfungen schaffen 
kann, die später kaum zu entwirren sind. 

Hilte zum Finden eines Blocks 
scr? ( Blocknummer ==>) 

Es werden die Screen- und Zeilennummer zur hexadezimal 
eingegebenen Blocknummer dezimal angezeigt und in den 
Dezimal-Modus umgeschaltet. 

Bildschirmprotokoll 
Brot 

Das Protokoll der bisherigen Abfragen wird nach Ebenen 

gestaffelt auf dem Bildschirm ausgegeben. 


sr # 
3 # MIHNI-EHFERTEH-STSTEN —fert % 
| vYerwaltaın3sblock 2, eat hr 
2 Wersion: Z.06 
2 6% Peter EKElimöhardt Februar 13265 
ee ee - 1. 
a a a ee -11 
Kr ee . oo. 0 8 8 aa 8, ss na 2a s a 8 8 80 0 a ss 20 5 u - lu 
r Daten-ÜDiskette einlesen |! 
2 Leer-ODiskette einlegen | 
2 Belieshiae Taste dJruecklen | 
19 muoch Fol9e-Eloecke Wsorharder: 
li ist Kein Menue-E lic: 
l& ı3t Kein Antwaort-Elsck 
i= Dizkette „coll 
14 alle Merwe-Zeiler belest 
I, er ee re a a ee ee een el 
scr # 7 
Mn“ varlab]le und Konstante > 
l rarth Jerimikinns Mex 
= 92 emit „" 1ovadına: x-Pert" com com 
s Ho zarlable men ce Hummer (Je: 
1 KM uarmlable (nor 
=) 3 sanrlable nach 
2 a soarlisble »Jdr C Zulscher 
P A warlable txt Zu allot C© Text 
= Ei o zonzstant art an? © erster Oat 
A 0 azr zorietkarnt ende c ]Jetzter Dat 
ia ed zanztarnt bis © letzter benut. 
11 KH uvarlsble en © Mernue-Ebere N) 
12 aka constant wu c Menue-Eirtra=3 
13 HB variable vn © Frotaokoll- -Eber, 
14 bis corstant vu c Elch: Hunmerr = 
15 mid mern 5 minen I, & 
sc #5 
Mn « “arabeinstellunger > 
1 BaZr 1Ir2ıa IC 1852 Scoreenz in ti N 
2, ge schwarze Schritt } 
BI = ig + IF + ı Hair 21 +5; 
4 code Frtor ( ==) 2 
= € Mus9arbe auf Eildschirm . 
£ xzave stx. ttcC Jan, 
nr szauve 1dJx, next JImP, 
= end-cade 
A: frtoft cr Frtöof 
1a : araphic Sclesar 
11 „Mi 0 cn ==> 2 
12 CC Eloxck rn loescher } 
12 1 ?eriugah block Jupp 4 209 fill 
14 if+ Zeid swar |! urdate 
+2, % =, 
sm # @ 
u -1l me=z=239e ı<r 
1 zuade Frtaon cC ==) „ 
= cc Au=aabe auf Drucker y 
Do wsam 56x, 4 # 1J3, 4 # 1Jx« 
4 ” # ldv, Frba ıar, € SETLFS ı 
= a # 1J3a, trbd jisr. SE THAN 4 
Ei frcda jJzsr. cc OFEH 
er +4 # ]ldJx, Fra jsr, € EHRT 7 
2 wzarue ]Jdx., Mmext ImP. 
3 end-cade 
la: en xx ==> 6 > 
il < AR5SCSII-HER in hex-Wert uandelmn ), 
iz 1 ?enauah dJup 28 = it Jdröp KM else 
1: 393 — Jar 3 > if 7 - endif endif 
14 
159 Mi do un 
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Ausdruck des Protokolls 
lprot (==>) 
Geschachtelter Ausdruck der bisher aufgerufenen Menüs 
und Antworten. 
Ausdruck der Gesamtdatel 


print ( ==>) 

Alle belegten Datenblöcke werden in numerischer Reihen- 
folge mit Blocknummer, Text, Blockkennung und den Num- 
mern der Folgeblöcke ausgedruckt. 

Ausdruck der Baumstruktur 
baum ( == 

Beginnend ab dem aktuellen Menü als Stamm, wird die 
Baumstruktur in Form einer Gliederung ausgedruckt. Durch 
manuelle Menü-Verknüpfungen entstandene Schleifen füh- 
ren zum Stack-Überlauf und Systemabsturz. 
Beschreibung der einzelnen Datenblöcke 


Bytes Inhalt 

O00-1e 31 Byte Text 

1f Blocktyp-Kennung 
-: freier Block 
=: Antwort-Block 
>: Menü-Block 
v: Verwaltungs-Block 

20-3e zehn Folgeblock-Nummern jeweils drei 
ASCII-Zeichen als Hexadezimal-Zahl. Dieses 
Verfahren ist platzsparend und gestattet 
eine direkte Editierung. 

Sf unbenutzt: blank 

20 unbenutzt: Punkt 


Aktuellen Menye-Elocks > 


zt=er ODaten-Elack } 


Graphik-Eereich ?} 
y Listing 1. »x-pert«, 
] 


Je Grarhik-Eereich? eln Minl-Expertensystem 


Verwaltungsblock-Beschreibung 
Blocknummer 31 <hex> 


Bytes Inhalt 

00-1e 'Verwaltungsblock' 

1f v 

20 ns: 

21-23 erster Datenblock 
24-26 letzter Datenblock 
27-29 letzter belegter Block 
2a... Rest ungenutzt 


x-pert ist in Forth 64 für den Commodore 64 geschrieben, 
sollte aber mit nur geringfügigen Modifikationen auf jedem 
anderen Computer unter FIG-Forth laufen. 

Speziell für die Besitzer von Forth 64 sind in Listing 2 die 
Screens 40 bis 43 gedacht. Sie enthalten eine verbesserte 
Version der in Forth 64 fehlerhaften Wörter »triad« und eine 
verbesserte Version des Worts »dump«. 

Diese Abänderung belegt keinen weiteren Speicherplatz, 
da sie in das bestehende System hineingeschrieben wird. 

Allerdings ist sie daher auch wirklich nur mit Forth 64 zu 
verwenden, was jedoch nicht weiter schlimm ist, da diese 
Fehler ja ebenfalls spezifisch sind. 

(Peter Klinghardt/ev) 
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Listing 2. Zwei Verbesserungen zu Forth 64 (Schluß) 


Am Anfang war das Wort.. 


Programmieren in Forth bedeutet, neue Wörter zu 
schaffen, indem bereits definierte Befehle zu 
immer komplexeren Gruppen zusammengefaßt 
werden. 


programmiert, der programmiert nicht; der schafft sich 
neue Wörter, wobei am Ende oft ein einziges Wort 
steht, das dann das fertige Programm repräsentiert. 

Diese Art des Programmierens bietet gegenüber der her- 
kömmlichen Unterprogramm-Technik erhebliche Vorteile: 

- Jedes Wort ist quasi eine Spracherweiterung, das heißt das 
Computersystem wächst mit dem Programmierer. Je mehr 
man in Forth programmiert hat, desto häufiger kann man auf 
Befehle zurückgreifen, die man Monate zuvor geschaffen 
hat. Dadurch nimmt die Produktivität des Programmierers 
enorm Zu. 

- Es ist einfacher, einzelne Wörter auf ihre Richtigkeit zu 
überprüfen, als ein ganzes Programm. Forth-Programme sind 
also zuverlässiger und man verliert weniger Zeit bei der Feh- 
lersuche (Debugging). 

- Die Programmpflege gestaltet sich erheblich einfacher als 
in allen anderen Sprachen, da, um ein Programm neu anzu- 
passen, meist nur ganz wenige grundlegende Wörter abzu- 
ändern sind. Das ist für all diejenigen wichtig, die zum Beispiel 
vorhaben, irgendwann auf einen anderen Computer umzu- 
steigen, und Ihre Programmsammlung dann weiter verwen- 
den wollen. Wer einmal versucht hat, Basic-Programme vom 
C 64 auf einen anderen Computer umzuschreiben, der weiß 
das zu würdigen. 

Daß Forth schwer zu erlernen sei, ist nur ein Gerücht. Forth 
ist sehr ungewöhnlich, aber auch nicht schwieriger als Basic 
oder Pascal. Nur wer sich nicht von gewohnten Konzepten 
trennen kann, mag anfangs Schwierigkeiten haben. 

Wie schafft sich der Forth-Programmierer nun seine neuen 
Wörter? Es gibt prinzipiell drei Möglichkeiten, die die Stich- 
wörter Colon-Definition, Primitive und Compiler umreißen. 
Die Colon-Definition 

Die Colon-Definition ist die übliche Methode, Wörter zu 
bauen. Die meisten Programme bestehen aus kaum mehr als 
einer Reihe von solchen Definitionen. 


, if) in m 
» 


= orth ist eine sehr leistungsfähige Sprache. Wer in Forth 





Eine Colon-Definition besteht aus: 
Anfang, Name, Definition, Ende. 

Den Anfang kennzeichnet in Forth ein Doppelpunkt (engl. 
Colon, daher der Name dieser Definitionsart), darauf folgt der 
Name des zu definierenden Wortes. Die dann folgende Defi- 
nition ist nichts weiter als eine Liste bereits bekannter Forth- 
Wörter, die vom System immer dann ausgeführt werden sol- 
len, wenn der neue Name als Anweisung auftaucht. Das Ende 
der Colon-Definition aktiviert ein Semikolon. 

Ein Beispiel: 

: PETIRA 974..275 

VLIST zeigt, daß PETRA nun ganz oben im Dictionary steht! 
PETRA addiert eine 5 und zeigt das Ergebnis an. Zum Bei- 
spiel ergibt 

10 PETRA 

nach Drücken der Return-Taste die Meldung 

15 OK 

Die eben durchgeführte Colon-Definition von PETRA 
repräsentiert natürlich kein besonders gutes Beispiel für 
sinnvolle Programmierung in Forth, denn normalerweise wird 
man als Namen für ein Wort immer eine aussagekünftige 
Bezeichnung wählen (in diesem Falle vielleicht »PLUS- 
FUENF.«). Die Bezeichnung PETRA sollte nur zeigen, daß 
man in Forth bei der Namensgebung völlig freie Hand hat. 
Forth und Maschinensprache 

Wer etwas Ahnung von Maschinensprache hat, der sollte 
nicht denken, »da brauche ich Forth ja nicht mehr«, sondern 
kann seine Kenntnisse sehr sinnvoll einbringen. Es besteht 
die Möglichkeit, Wörter statt wie eben in »High-Level«, also 
als Colon-Definition, auch als sogenannte »Primitive«, das 
heißt in Maschinensprache, zu schreiben. Dazu benötigt man 
einen Forth-Assembler, den die meisten Forth-Versionen 
gleich mitanbieten. 

Ein Maschinen-Befehl besteht in der Regel aus Befehls- 
wort und Operanden. 

Im 6502-Assembler lautet beispielsweise der Befehl zum 
Laden des Akkumulativs mit der Konstanten 1 
LDA #1 

Der Forth-Assembler benötigt hier die umgekehrte Nota- 
tion, also erst den Operanden: 

01 # LDA, 
(man beachte das Komma hinter LDA!). 
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Als Beispiel ein kleiner Vergleich: 


6502-Assembler 

$C000 CLC $C009 RTS 
$C001 LDA $DO20 $CO0OA NOP 
$C00 ADC #$%01 $C00B NOP 
$C006 STA $DO20 

Forth 

SCR # 1 

0) (PRIMITIVES) 

1 

2 CODE DANI GL, 

3 53280 LDA, 

4 1 # ADC, 

5 53280 STA, 

6 NEXT JMP, END-CODE 


NEXT ist die Einsprungstelle für den »Inneren Interpreter« 
von Forth. Der Innere Interpreter kümmert sich darum, wel- 
ches Wort als nächstes an die Reihe kommt, dem »Außeren 
Interpreter« fällt die Aufgabe Benutzer und Eingaben zu. 

Es ist empfehlenswert, Programme zunächst in High-Level 
zu erzeugen; falls die Geschwindigkeit dann nicht ausreicht, 
genügt es meistens, ein oder zwei Worte als Primitive umzu- 
schreiben. Das ist erheblich effektiver, als würde man das 
ganze Programm in Assembler schreiben. Oft erübrigt sich 
auch das, da Forth sowieso 100- bis 400-mal schneller als 
Basic läuft. 

Und nun für ganz Raffinierte: Wir können Wörter erfinden, 
die uns die »Arbeit« des Wörterbauens abnehmen. Dieser 
Punkt macht Forth so leistungsfähig. Als typischer Vertreter 
dieser Wörter steht CONSTANT. »n CONSTANT name« 
schafft ein neues Wort namens »name«, das bei Aufruf n auf 
den Stack legt. Beispiel: 

1024 CONSTANT SCREEN 
definiert zunächst das Wort SCREEN. Der Leser kann sich 
davon mit Hilfe von VLIST überzeugen. 

SCREEN legt dann den Wert 1024 auf den Stapel. Beispiel: 
SCREEN 500 + . 


1524 OK R 
Anstelle von 1024 (Adresse des ersten Byte des Bild- 


schirmspeichers) kann also überall im Programm SCREEN 
einspringen. 

Will man später das Programm auf einem Computer laufen 
lassen, bei dem der Bildschirmspeicher vielleicht bei 4096 
beginnt, so braucht man nur ein einziges Wort abändern: 

: SCREEN 4096 ; 
Praktisch, nicht wahr? 

Das Wort CONSTANT schafft also eine ganz neue Klasse 
von Wörtern, eben mit der Eigenschaft, Konstanten zu sein. 

Ein Wort wie CONSTANT muß also zweierlei tun: Erstens 
das Wort »name« ins Dictionary eintragen, und zweitens 
»name« sagen, was es tun soll, wenn der Benutzer »name« 
aufruft. 

Zunächst erfinden wir also mit Hilfe einer Colon-Definition 
ein Wort wie CONSTANT. Nennen wir es ANGEBER. ANGE- 
BER schafft nun eine neue Klasse von Wörtern, nämlich 
Angeber-Wörter. Das sieht so aus: 

: ANGEBER (BUILDS DOES) ; 

Zwischen <BUILDS und DOES> steht die Angabe, wie 
der Wortkörper auszusehen hat, hier steht also gar nichts; 
zwischen DOES> und »;« steht, was die Angeber-Wörter 
dann ausführen sollen, hier also ebenfalls nichts. DOES > 
bewirkt, daß die PFA (Parameterfeldadresse) des Wortes 
»name« auf den Stack gelegt wird. Die PFA ist die Adresse 
des ersten Bytes des Parameterfeldes. Das Parameterfeld 
beinhaltet eine Liste im Wortkörper, die das Wort zur Ausfüh- 
rung benötigt. Bei Primitives steht da der ganze Maschinen- 
code, bei High-Level-Wörtern besteht das Parameterfeld aus 
einer Liste der Adressen der Wörter, die abgearbeitet werden 
sollen, die also in der Colon-Definition standen. 
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Probieren wir ANGEBER einmal aus: 
ANGEBER MICHAEL 

Wir überzeugen uns mit VLIST, daß Michael als neues Wort 
im Dictionary steht! Nun rufen wir MICHAEL auf. Was passiert ? 
Nichts, außer daß die PFA von MICHAEL auf dem Stack liegt. 
Deshalb ist MICHAEL ein Angeber: er gibt seine PFA an, aber 
nichts dahinter! 

Probieren wir etwas anderes: 
: NICHTSNUTZ (BUILDS DOES) DROP ; 

Wir vermuten, die Nichtsnutz-Wörter entfernen sogar noch 
ihre PFA. Wir geben zunächst ein: 

NICHTSNUTZ WALTER 

und dann 

WALTER 

und tatsächlich, nichts passiert. 

Versuchen wir einmal, Konstanten bauen zu lassen: 
: CONSTANTINOPEL (BUILDS , DOES) @ ; 

Das »,« bewirkt, daß die oberste Zahl vom Stack genommen 
und ins Dictionary, also in das Parameterfeld, gepackt wird. 
Die durch CONSTANTINOPEL definierten Wörter holen diese 
Zahl wegen @dann wieder auf den Stack. Der Vorgang wie- 
derholt sich dauernd. Beispiel: 

1024 CONSTANTINOPEL SCREEN 
SCREEN 500 + . 
1524 OK 

Aha! Prima, aber wir hätten es natürlich auch einfacher 
haben können: 

: CONSTANTINOPEL CONSTANT ; 

Zum Abschluß wollen wir noch ein »richtiges« Programm 
schreiben, nämlich einen Maskengenerator, der die Bild- 
schirmseite irgendwo speichert und bei Bedarf immer wieder 
holen kann. Am besten bringen wir den ganzen Bildschirm in 
einer einzigen Variablen unter. Der Leser wird schon erraten 
haben: Wir benötigen einen neuen Variablentyp. Nennen wir 
ihn MASKE. Die Masken sollen in ihrem Parameterfeld 
zunächst 1000 Leerzeichen, also 1000mal den Bildschirm- 
code 32 haben. Das erledigt eine Schleife, also in Basic: 


FOR I=0 TO 999 
Das sieht in Forth etwas anders aus: 
1000 0 DO 

Die Punkte stehen für eine Anweisung. Nun brauchen wir 
noch ein Wort, um die 1000 Byte zu transportieren. Dazu bie- 
tet uns Forth 
CMOVE(a a n-) 
an. CMOVE verlagert n-Byte von der Adresse a nach a. 

PFA 1024 1000 CMOVE bringt uns also die Bytes aus der 
Maske (ab a PFA) in den Bildschirmspeicher. 

Den Ausdruck 

1024 1000 CMOVE 

kürzen wir durch »M@« ab. 

MASKE ANDREA 

kreiert uns eine Leermaske namens ANDREA. 

ANDREA M@ 

holt uns ANDREA in den Bildschirmspeicher. Zum Speichern 
mit »M!« werden nur die Adressen a und a vertauscht (siehe 
Listing). Damit besitzen wir bereits einen primitiven Masken- 
generator! Wir können ihn als »Notizzettelspeicher« verwen- 
den, oder als »virtual Screen buffer«, oder um mit mehreren 
Bildschirmen zu arbeiten, und so weiter. 

MASKMAKER ist eine etwas komtfortablere Version: PAGE 
löscht den Bildschirm (ASCII-Code 147 beim C 64), KEY 
erwartet solange eine Tastatureingabe, die mit EMIT auf den 
Bildschirm gebracht, bis RETURN gedrückt wird. Dann wird 
die fertige Maske mit »M!« gespeichert. 

Wer will jetzt noch behaupten, Forth sei unübersichtlich? 
Man beachte, daß der ganze Maskengenerator lediglich 127 
Byte lang ist, also gerade zwei oder drei Basic-Zeilen ent- 
spricht. 

(Andreas Carl/ev) 
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Ein anschauliches Reisemagazin in 
der Happy-Computer-Ausgabe 
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Brandaktuell und bisher nur in 

Happy-Computer: 

Die deutsche Version des spannen- ROSSE 

den Abenteuerspiels »Im Herzen 
Afrikas« wird vorgestellt. — Gleich 
mit dabei: 

Ein Wettbewerb, in dem Sie als | Urlaub und 
ersten Preis eine Reise nach Kenia KL, 
gewinnen können. | 
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Brandneu: Das Grafik-Programm 
»Draughtsman« für alle CPCs wird 
vorgestellt. 

Diesmal im Commodore-Sonderteil: 
Ein Kurs zur Spieleprogrammie- 
rung in Maschinensprache. 

Und »Tron-Construction-Set«, das 
Spiel des Monats. 

Eine Top-Ten-Liste von 
Matrix-Druckern hilft richtig 
auszuwählen. 

Hardware-Bastelei: Ausführliche 
Anleitung zu einem $Sensor- 
Joystick. 

Im Test: Die neuen MSX-Modelle 
von Sony. 








ag 


Gutschein 


FÜR EIN KOSTENLOSES PROBEEXEMPLAR VON HAPPY-COMPUTER 


JA, ich möchte »Happy-Computere kennenlemen. 
Senden Sie mir bitte die aktuellste Ausgabe kostenlos als Probeexemplar. Wenn mir »Happy-Computer« 
It und ich es regelmäßig weiterbeziehen möchte, brauche ich nichts zu tun: Ich erhalte »Happy- 
omputer« dann nagelmäßig frei Haus per Post und bezahle pro Jahr nur DM 66,— statt DM 72,— Einzel- 
verkaufspreis (Ausland auf Anfrage). 





Vomame, Name 
Straße PLZ, On 


Datum l. Unterschnift 


Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerrsten kann 
Ei tgenet durch meine zweite Unterschrift. Zur Wahrung der Frist genügt die rechtzeitige Absendung 
es Widemuk. 


erhalten Sie Mitte jedes Monats 
bei Ihrem Zeitschriftenhändler. 
Die Juni-Ausgabe erscheint 

am 12. Mai 1986. 


Datum 2. Unterschrift 





Gutschein ausfüllen, ausschneiden, in ein Kuvert stecken und absenden an: 
Markt& Technik Verlag Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haar 





HCS586 

















ilot hat nichts mit dem gleichlau- 
tenden Wort »Pilot« zu tun, son- 
dern ist die Abkürzung für »Pro- 
grammed Inquiry, Learning Or Teach- 
inge, auf deutsch etwa »Programmier- 
tes Abfragen für Lernen und Lehren«. 
Der Zweck ist also klar: Pilot wurde ent- 
wickelt, um schnell und einfach Lern- 
programme zu schreiben. Lernpro- 
gramme, die mit Computern nichts zu 
tun haben müssen! Nein, alles ist denk- 
bar, von Vokabelabfragen über Recht- 
schreibübungen bis hin zu Geschichts-, 
Biologe- oder Physik-Lernprogram- 
men. Eine solche Vielfalt muß nicht 
unbedingt erstaunen, denn alle derarti- 
gen Programme benutzen ja ein 
bestimmtes Konzept immer wieder, 
nämlich das der Stringverarbeitung. 
Und gerade auf diesem Gebiet liegt die 
Stärke von Pilot. Die Sprache hat einige 
Befehle zu bieten, die nicht alltäglich 
sind. 

Doch gehen wir der Reihe nach vor 
und beginnen wir mit den eher gewöhn- 
lichen Befehlen. 





Hallo Pilot, 
wie geht’s? 


Jede Anweisung in Pilot hat die fol- 
gende Form: 

Befehl: Operandenliste 

In jeder Zeile steht genau eine Anwei- 
sung, Zeilennummern gibt es nicht. Ein 
Beispiel: Das Ausgeben von Text auf 
dem Bildschirm geschieht durch den 
Befehl »T« (für »Type«). Also schreibt: 
T:Hallo Pilot 
die Worte »Hallo Pilot« auf den Bild- 
schirm. 

Willman den Type-Befehl iin mehreren 
Anweisungen hintereinander benut- 
zen, muß man den Befehl nicht mehr- 
fach angeben. Dann genügen die Dop- 
pelpunkte. 

T:Hallo Pilot 

:Wie gehts 

schreibt erst »Hallo Pilot« und dann 
»Wie gehts« eine Zeile darunter. 

Der Type-Befehl existiert in zwei 
Varianten. 

»TSe löscht zuerst den Bildschirm und 
gibt dann den Text aus und »TH« (»Type 
and Hang«) läßt den Cursor für den 
nächsten Type-Befehl in derselben 
Zeile stehen. 

Ahnlich wird der A-Befehl (für 
»Accept«) verwendet. »A:#X« ent- 
spricht der Basic-Anweisung INPUT X. 
Das Zeichen »#« gibt an, daß X eine 
numerische Variable ist. 
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Hier finden Sie eine Einführung 
in die Programmiersprache Pilot. 
Anhand einiger Beispiele wer- 
den die Fähigkeiten dieser in- 
teressanten Sprache vorgestellt. 


Als Variante ist »AS« (»Accept Single 
Character«) zu erwähnen. Dabei wartet 
der Computer nur auf die Eingabe eines 
einzelnen Zeichens und fährt dann 
sofort mit dem Programmlauf fort. 

Die Befehle Type und Accept dienen 
also zur Kommunikation zwischen Pro- 
gramm und Benutzer. Aber auch 
Berechnungen fallen an. Dazu dient der 
Befehl »C« (für »Computee«). 

»C:x=3*"2« berechnet beispiels- 
weise das Produkt aus 3 und 2 und 
weist es der Variablen x zu. Bei dem 
Compute-Befehl benötigt man das » #« 
nicht. 

Zu diesem Thema wäre noch zu Sa- 
gen, daß es in Pilot nur ganze Zahlen 
gibt. Wer das als Nachteil empfindet, 
sollte sich noch einmal klarmachen, für 
welchen Zweck diese Sprache über- 
haupt konzipiert wurde, denn ein 
Rechtschreib- oder Geschichtspro- 
gramm benötigt nun wirklich keine 
Kommazahlen. 

Immerhin sind aber für ganze Zahlen 
die Operatoren »+«, »-«, »"« und »/« 
vorhanden. 

Schließlich benötigen wir einen 
Sprung-Befehl. Dieser lautet J (für 
»ump«). Dazu muß natürlich ein 
Sprungziel angegeben werden. Basic 
erledigt diese Aufgabe durch eine Zei- 
lennummer, in Pilot hingegen geschieht 
es anschaulicher durch Angabe eines 
»Labels«e, das heißt eines symbolischen 
Namens. 

»J:end«e springt also zum Label mit 
dem Namen »ende«. Dieses Label muß in 
dem Programm vorhanden sein, und 
zwar in der Form »*ende«. 


Labels statt 
Zeilcnnummern 


Einen bedingten Sprung bewirkt die 
Angabe einer Bedingung: »J(x=0): 
ende löst einen Sprung nach »end« nur 
unter der Voraussetzung aus, daß X den 
Wert Null hat. Ansonsten hat diese 
Anweisung keine Wirkung. In der Klam- 
mer zwischen »J« und »:« kann ein belie- 
biger logischer Ausdruck stehen. An 
Vergleichsoperatoren fehlt keiner der 
von Basic her gewohnten. 














Übrigens kann man jeden Befehl von 
solch einer Bedingung abhängig 
machen: »T(x=O):gleich O« gibt den 
Text nur aus, wenn x den Wert O hat, 
»C(a=b):y=x+3« berechnet y=x+3, 
falls a=b gilt. 

Damit besitzen wir genügend Wis- 
sen, um ein erstes Programm zu verste- 
hen (Listing 1). Es handelt sich dabei 
um ein Programm, das entscheidet, ob 
eine eingegebene Zahl eine Primzahl ist 
oder nicht. Zum direkten Vergleich 
steht hinter jeder Zeile des Programms 
die entsprechende Basic-Zeile. 


Als Primzahl wird eine Zahl bezeich- 
net, die nur durch 1 und sich selbst 
ohne Rest teilbar ist. Wollen wir also 
prüfen, ob eine Zahl diese Eigenschaft 
besitzt, untersuchen wir alle in Frage 
kommenden Zahlen auf die Teilereigen- 
schaft hin. Das sind natürlich nur die 
Zahlen, die kleiner sind als die zu unter- 
suchende. Nennen wir unsere Zahl ein- 
mal x. Dann beginnen wir bei i=2 zu 
testen, ob i Teiler von x ist. Die Bedin- 
gung hierfür lautet: X/i*i=x. Man 
beachte, daß x/i eine ganzzahlige Divi- 
sion ist, das heißt Kommastellen entfal- 
len. Machen Sie sich anhand von Bei- 
spielen klar, daß diese Bedingung 
gleichwertig zur Teilerbedingung ist. 
Sie ist bis i=x-1 zu überprüfen, dann 
nicht mehr. 

Sobald sich die Bedingung erfüllt, ist 
i ein Teiler von x und daher x keine Prim- 
zahl. Dann erfolgt ein Sprung nach 
»"notprime.. Ansonsten läuft die 
Schleife unterhalb von »*test« bis zum 
Ende und gelangt dann nach »*prime«. 
Was in den einzelnen Fällen passiert, 
sollte jedem klar sein. 

Als Sonderfall gitt x=2, da die 
Schleife unterhalb von »*test« bei i=2 
zu laufen beginnt und daher sofort 2 als 
Teiler von 2 finden würde. 

Vergleichen Sie bitte Pilot- und Basic- 
Programm Zeile für Zeile, um sich die 
Unterschiede deutlich zu machen. 

Eine Anmerkung zum Schluß: Die 
Anweisung »W:20« stellt lediglich eine 
Warteschleife dar (W entspricht »Wait«) 
und hat sonst keinerlei Funktion. Sie ist 
aber nötig, da der Pilot-Interpreter nach 
Beendigung eines Programms sofort 
wieder ins Hauptprogramm zurück- 
springt. Die Wait-Anweisung gibt dem 
Anwender des Programms etwas Zeit, 








das Resultat zu lesen. 
‚alte AFTER 





















































Nun kommen wir endlich zu den an- 
gekündigten Besonderheiten von Pilot. 
Diese betreffen zunächst den Accept- 
Befehl, da er auch ohne ÖOperand auf- 
gerufen werden kann, einfach in der 
Form »A:«. Die Eingabe geht damit 
natürlich nicht verloren, sonst hätte das 
alles wenig Sinn. Vielmehr befindet sie 
sich in einem speziellen Eingabe- 
Buffer. Mit »%b« (für Buffer) können sie 
nun darauf zurückgreifen. Wertzuwei- 
sungen oder Berechnungen sind zum 
Beispiel durch »C:x=%b« möglich oder 
die Eingabe wird wieder durch :T: # %b« 
ausgegeben (man beachte das #- 
Zeichen). 

Das scheint natürlich nicht sensatio- 
nell und ist daher auch nicht der eigent- 
liche Zweck der Angelegenheit. Der 
folgt jetzt in Form des Befehls M (für 
»Match«). Die Erfinder von Pilot mach- 
ten sich nämlich Gedanken, wie sich 
solche Frage- und Antwortspiele, wie 
sie Vokabel-Lern-Programme nun ein- 
mal darstellen, mit dem geringsten Auf- 
wand programmieren lassen. Es ist ja 
überhaupt nicht nötig, dem Eingabe- 
string einer Vokabel einen Variablenna- 
men zu geben. Man muß eben nur fest- 
stellen können, ob die Eingabe mit der 
korrekten Lösung übereinstimmt. Die- 
ses Testen übernimmt der Match- 
Befehl (match heißt jaübereinstimmen). 


start 
ts:Geben Sie eine Zahl ein 
art 
jt«=2):prim 
c:i=2 
itest 
Slx/iki=x)ınotprim 
cıi=sıi#+l 
Jliixnd)etest 
Xprim 
t:#x 
j:ıend 
Xnotprim 
t:#x 
send 
wi 20 


ist prim 


ist nicht prim 























Die Anweisung »M:super« prüft also, ob 
die letzte Eingabe (durch eine unspezi- 
fizierte Accept-Anweisung) mit dem 
Wort »super« übereinstimmt. Aber wie- 
der ist nicht klar, was mit dem Ergebnis 
geschieht, da ja zwei Fälle auftreten 
können. 

Y (für »yes«) heißt: Die Eingabe 
stimmt überein. 

N (für »noe) heißt: Die Eingabe stimmt 
nicht überein. 

Wann immer nun bei einer der folgen- 
den Anweisungen ein Y (beziehungs- 
weise N) hintenansteht, wird diese nur 
ausgeführt, wenn eine Übereinstim- 
mung festgestellt wurde (beziehungs- 
weise nicht festgestellt wurde). 


ts:Welches Gebaeude ist auf dem 
: 1000-Mark-Schein zı sehen ”? 


a: 
m:Limburg 
thy:Richtig, 
jy:end 
t:ıFalsch. 
Ein Tip : 


Es handelt sich um den 
Dom eıner hessischen Stadt. 

a: 

msıLimburg 

thy:Richtig, 

jJyıend 

th:Leider falsch, 

xend 

te es ist der Limburger Dom 

wı2O 





Listing 2. Demonstrationsprogramm für 
den Accept- und Match-Befehl 


rem start 
rem 


input 

if x=2 then 190 
i=2 

rem test 

if int (x/i)Xı1=x 
i=si+l 

if i<x then 150 
rem prim 
BEINE = 
goto 240 
rem notprim 

print x;" ist nicht prim" 
rem end 

rem pause 


120 
110 
120 
130 
140 
150 
160 
170 
180 
1970 
ZOO 
210 
220 
230 
240 
250 


then 220 


ist prim" 


Listing 1. Vergleich: Primzahlenberechnung In Pilot und Basic 


Übersicht über die Pilot-Befehle 


T:Text 

TS Text 

THText 

A: #num Var. 
AS: #num.VAR. 
A: 

AS: 

C:Var = Ausdr. 


J:Label 

"Label 

Milext 
Befehl(Bedingung):Operanden 
BefehlY:Operanden 


BefehlN:Operanden 


Ausgabe eines Textes auf dem Bildschirm 

Löschen des Bildschirms, dann Ausgabe 

Ausgabe eines Textes ohne Carriage Return 

Eingabe einer numerischen Variablen 

Eingabe einer einstelligen Zahl 

Eingabe in den Eingabe-Buffer 

Eingabe eines Zeichens in den Buffer 

Auswerten des numerischen Ausdrucks und Zuweisung des 
Wertes an die Variable 

Sprung zu einem Label 

Kennzeichnung eines Labels 

Vergleich der letzen Eingabe mit dem Text 

Bedingte Anweisung. Die Bedingung muß ein logischer Aus- 
druck sein 

Befehl wird ausgeführt, wenn die letzte M-Anweisung positiv 
ausfiel. 
Befehl wird 
ausfiel. 


ausgeführt, wenn die letze M-Anweisung negativ 








Zum Beispiel: »TY: Richtig« gibt »Rich- 
tig« auf den Bildschirm, wenn die letzte 
Match-Anweisung ein positives Ergeb- 
nis brachte. 

Jeder mit Y oder N versehene Befehl, 
seiesnun TN, JY oder CN, bezieht sich 
also immer auf das Ergebnis der letzten 
Match-Anweisung. 

Unser neues Wissen wollen wir uns 
an einem weiteren Pilot-Programm 
ansehen (Listing 2). Da dieses die spe- 
ziellen Accept- und Match-Anweisun- 
gen benutzt, kann esnicht einfach Zeile 
für Zeile in ein Basic-Programm übertra- 
gen werden. Aber es ist trotzdem nicht 
schwierig zu verstehen. 

Der Benutzer wird gefragt, welches 
Gebäude ein 1000-Mark-Schein zeigt. 
Es handelt sich hierbei um den Limbur- 
ger Dom. 

Betrachtet man die Match-Anwei- 
sung, die hier Übereinstimmung fest- 
stellen soll, so sieht man, daß nur ein 
Vergleich mit »Limburg« stattfindet. Das 
hat durchaus seine Vorteile. Denn der 
Benutzer, der die Antwort kennt, kann 
nun »Limburger Dom«, »Der Limburger 
Dom« oder auch nur »Limburg« ein- 
geben. 

Alles wird hier als richtig erkannt, da 
jede Antwort das Vergleichswort »Lim- 
burg« enthält. Derartige Flexibilität 
kostet in anderen Programmierspra- 
chen wesentlich mehr Mühe als hier. 

War die Antwort korrekt, wird »Rich- 
tige ausgegeben und zum Ende 
gesprungen. 


Aus Limburg kommt 
nicht nur Käse 


Bei falscher Antwort bekommt der 
Benutzer einen Tip und darf ein zweites 
Mal antworten. Danach erscheint es 
nicht mehr so unnatürlich, nur mit »Lim- 
burg« zu antworten, und so ist die 
Anweisung »M:Limburg« hier durchaus 
gerechtfertigt. 

Gehen Sie das Programm nun noch 
einmal durch und achten Sie besonders 
auf die Anwendung von A,M, Y,N. 

Kenner von Pilot meinen nun wohl zu 
dem Programm, daß man es noch kür- 
zer und einfacher hätte schreiben kön- 
nen. Das stimmt natürlich. Pilot kennt 
noch mehr ungewöhnliche Anweisun- 
gen, die zur Vereinfachung beitragen 
können. Aber die in diesem einführen- 
den Artikel vorgestellten Mittel erlau- 
ben esnicht. Es sollte Ihnen hier jaauch 
nur ein Überblick vermittelt werden, 
was Pilot leistet und wie es arbeitet. 
Einen Vergleich von Pilot gegenüber 
anderen Programmiersprachen sollten 
Sie jetzt aber zumindest ziehen können 
und sich dann entscheiden. 

(Eckart Winkler/ev) 
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Tiny Pilot zum Abtippen 


Die Programmiersprache Pilot 
eignet sich besonders für Lehr- 
programme. Hier Ist ein Pro 
gramm, das einen ersten Ein- 
druck dieser Sprache vermittelt. 


lot wurde erfunden, um auf 
besonders einfache Art und 
Weise Lehrprogramme zu ent- 
wickeln. Auf dieses Ziel abgestimmt ist 
daher auch die gesamte Struktur der 
Sprache. Pilot bietet einfache Befehle 
zur Ausgabe von Fragen, zur Eingabe 
von Antworten und zum Vergleich der 
Antworten mit vorgegebenen Texten. 
Zwei Flags, nämlich »Y« (für Yes) und 
»N« (für No) speichern den Wahrheits- 
wert der Antworten und beeinflussen in 
sehr einfacher Weise den Programma- 
blauf. 

Der hier vorgestellte Tiny-Pilot- 
Interpreter lehnt sich an die Struktur der 
Sprache Pilot an, verfügt jedoch nur 
über einen eingeschränkten Befehls- 
satz. Die Befehle sind auch von der 
Komplexität und Leistungsfähigkeit her 
zum Teil wesentlich einfacher aufge- 
baut, als das in größeren Pilot-Ver- 
sionen der Fall ist. So sind Rechen- 
operationen nur sehr eingeschränkt 
möglich, Variable und Unterprogramm- 
Namen fehlen. 

Dieser Pilot-Interpreter soll denn 
auch kein professionelles Program- 
mierssystem für Pilot darstellen, son- 
dern lediglich einen ersten Eindruck 
dieser Sprache vermitteln. Vermißt 
jemand wesentliche Funktionen von 
Pilot, dann kann er diese ohne große 
Probleme selbst einbauen - der Inter- 
preter ist schließlich in Basic geschrie- 
ben und extra auf Erweiterungsfähig- 
keit angelegt. Das Programm (Listing 1) 
besteht intern eigentlich aus zwei Tei- 
len, nämlich dem Editor, mit dem Pilot- 
Programme geschrieben, gespeichert 
und verändert werden, und dem eigent- 
lichen Pilot-Interpreter, der Tiny-Pilot- 
Programme ausführt. Obwohl das Pro- 
gramm für den Schneider CPC 464 
geschrieben ist, läßt es sich ohne 
Schwierigkeiten auch an andere Com- 
putersysteme anpassen. 





Der hier realisierte Editor orientiert 
sich am normalen Basic-Editor, das 
heißt, Programmzeilen werden, begin- 
nend mit einer Zeilennummer, eingege- 
ben. Durch Eingabe nur einer Zeilen- 
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nummer (ohne weiteren Text) wird die 
entsprechende Zeile gelöscht. Weitere 
Kommandos werden im folgenden vor- 
gestellt. Dabei ist zu beachten, daß ein 
Befehl und ein eventuell angegebener 
Parameter (Zeilennummer oder Pro- 
grammname) immer durch genau ein 
Leerzeichen (Space) getrennt sein 
müssen. Programmnamen stehen im 
Gegensatz zu Basic nicht in Anfüh- 
rungszeichen. 

LIST nr: Listet Pilot-Programm. Die 
Angabe einer Zeilennummer (nr) 
bewirkt die Ausgabe des Listings ab 
dieser Zeile. Bei fehlender Zeilenan- 
gabe beginnt das Listing mit der ersten 
vorhandenen Zeile Drücken der 
Space-Taste hält die Auflistung an, 
durch Betätigen irgendeiner anderen 
Taste wird das Listing fortgesetzt. Eine 
beliebige Taste (außer Space) während 
des Auflistens unterbricht das Listing 
total. 

LOAD name: Lädt ein Pilot- 
Programm von Kassette oder Diskette. 
Der Programmname wird mit der Erwei- 
terung »PLTe« für Pilot versehen, falls er 
nicht schon eine Erweiterung enthält. 
Beispiel: Der Befehl »LOAD TEST« 
sucht und lädt eine Datei mit Namen 
SIEST.PLT«e. Pilot-Programme werden 
als sequentielle Dateien abgelegt. Das 
Öffnen einer sequentiellen Datei zum 
Lesen geschieht im Schneider-Basic 
mit dem Kommando »OPENIN 
"Name”«, geschlossen wird die Datei 
mit »CLOSEIN«. Das eigentliche Lesen 
aus der Datei geht mit »INPUT #9« 
beziehungsweise »LINE INPUT # 9« vor 
sich. Diese Befehle unterscheiden sich 
von Computer zu Computer. Wenn Sie 
dieses Programm auf einem anderen 
Computer als einen Schneider CPC lau- 
fen lassen wollen, dann schlagen Sie 
bitte die entsprechenden Kommandos 
für Ihren Computer nach. 

SAVE name: Dieser Befehl speichert 
ein Pilot-Programm unter dem angege- 
benen Namen auf Kassette oder Dis- 
kette. Hinsichtlich Programmnamen 
und Anpassung an andere Computer 
gilt auch hier sinngemäß das bei LOAD 
Gesagte. Eine sequentielle Datei wird 
beim Schneider CPC mit »OPENOUT 
"Name ”« zum Schreiben geöffnet und 
mit »CLOSEOUT« wieder geschlossen. 
Das eigentliche Schreiben in die Datei 
geschieht mit »PRINT # 9«. 

EXIT. Dieses Kommando beendet 
das Arbeiten mit dem Pilot-Interpreter, 
indem es einfach ins Basic zurückkehrt. 
Vergessen Sie nicht, Ihr Pilot- 


Programm vor EXIT zu speichern. 
CAT: Dieses Kommando listet das 





Inhaltsverzeichnis einer Diskette auf 
dem Bildschirm. Beim Schneider CPC 
geschieht dies ganz einfach durch das 
gleichlautende Basic-Kommando CAT, 
bei anderen Systemen kann das ent- 
sprechende Kommando anders lauten 
(DIR, DIRECTORY, CATALOG oder ähn- 
lich). Einige ältere Computermodelle 
benötigen an dieser Stelle ein ganzes 
Unterprogramm. 

NEW: Wie in Basic, so löscht dieser 
Befehl auch hier ganz einfach das im 
Speicher befindliche Pilot-Programm. 
Und wie in Basic sollte man diesen 
Befehl daher nur mit Überlegung 
anwenden. 

RUN: Ebenfalls ganz analog zu Basic 
veranlaßt RUN den Pilot-Interpreter, 
das im Speicher stehende Pilot- 
Programm auszuführen. 

Wer möchte, dem steht nichts im 
Wege, den Editor-Teil selbst um weitere 
Kommandos zu erweitern, etwa um 
einen RENUMBER-Befehl oder um ein 
Kommando für das Listen des Pilot- 
Programms auf einem Drucker. 


Die Tiny- 
SHotRefahle 


Nach RUN beginnt der Pilot- 
Interpreter, der im Listing die Zeilen ab 
1000 belegt, mit der Abarbeitung des 
Programms. Die Variable PC spielt 
dabei die Rolle eines Programmzählers. 
Sie enthält nämlich immer die Nummer 
der gerade aktuellen Befehlszeile. Nach 
der Ausführung eines Befehls wird PC 
um eins erhöht und zeigt auf die näch- 
ste Programmzeile. Ist diese Zeile leer, 
dann wird PC solange weiter erhöht, bis 
eine Befehlszeile gefunden wurde. 

Die Ausführung eines Befehls 
geschieht in drei Schritten. Als erstes 
wird getestet, ob die Befehlszeile mit 
den Buchstaben »Y« oder »N« anfängt. 
Ist dies der Fall, dann wird der Befehl in 
der Zeile nur dann ausgeführt, wenn 
das entsprechende Flag (Y oder N) 
gesetzt ist. Y und N beeinflußt in erster 
Linie der Vergleichsbefehl. War eine 
Antwort richtig, dann wird das Y-Flag 
gesetzt, war die Antwort falsch, das N- 
Flag. 

Nach dem Test, ob der Befehl über- 
haupt ausgeführt werden soll, erfolgt 
nun als zweites die Befehls-Analyse. 
Für jeden Pilot-Befehl steht ein einzel- 
ner Buchstabe oder ein Sonderzei- 
chen. Die Befehlszeile wird also zerlegt 
in ein Befehlszeichen (Variable A$) und 
einen Operandenstring (Variable B$). 








Hinwelse zum Anpassen des Programms an andere Computer 


DEFINT A-Z 


CLS 
MID$(A$,n) 


PRINT USING 


INSTR(A$,B$) 


INKEYS 


LINE INPUT 


CAT 


OPENOUT "Name” 
PRINT #9 
CLOSEOUT 
OPENIN "Name 
INPUT #8 

LINE INPUT #9 
CLOSEIN 


Definiert alle numerischen Variablen als Integer. Kann fortgelassen 
werden. 


Löscht den Bildschirm und bringt den Cursor in die linke obere Ecke. 


Eine besondere Form der MID$-Funktion, die ja normalerweise mit drei 
Parametern aufgerufen wird. Ergibt alle Zeichen von A$ an der n-ten 
Position. Obwohl wenig bekannt, funktioniert diese Form bei praktisch 
allen Computern, die die MID$-Funktion überhaupt kennen. 


Eine formatierte PRINT-Anweisung. Hinter USING folgt ein Format- 
String, der die Feldbreite für das Ausdrucken einer folgenden numeri- 
schen Variablen enthält. USING und Formatstring können fortgelassen 
werden, allerdings ergibt sich dann natürlich ein unformatierter Aus- 
druck. 


Eine spezielle String-Funktion. Der String B$ wird innerhalb des 
Strings A$ gesucht. Die Funktion liefert als Ergebnis die Stelle, an der 
B$ in A$ auftaucht. Ist B$ in A$ nicht enthalten, dann ist das Ergebnis 
Null. Beispiel: »INSTR( " ABCD”, ”C ” )« liefert als Ergebnis den Zahlen- 
wert 3, denn »C« taucht in »ABCD« an der dritten Stelle auf. Falls 
INSTR in einer Basic-Version nicht vorhanden ist, muß die Funktion 
durch ein Unterprogramm ersetzt werden. 


Gegenstück zu THEN. Wenn die Bedingung in einer IF-Anweisung 
nicht erfüllt ist, werden die Anweisungen hinter ELSE ausgeführt. Bei 
Computern, die ELSE nicht kennen, muß man eine solche IF 
Anweisung entsprechend aufteilen. 

Beispiel: 

IF A=B THEN C=D ELSE E=F 

hat die gleiche Wirkung wie die beiden Zeilen 

IF A=B THEN C=D 

IF A()B THEN E=F 

Die Funktion wird in der Form »A$=INKEY$« angewendet und ergibt die 
gerade gedrückte Taste. Es wird nicht auf das Drücken einer Taste gewar- 
tet, sondern ein Leerstring zurückgeliefert, wenn gerade keine Taste betä- 
tigt ist. Entspricht »GET A$« bel einigen Computern. 


Wie INPUT, es können aber auch Kommata und so weiter eingegeben 
werden. Muß für einige Computer durch Unterprogramm realisiert wer- 
den. 


Zeigt Disketten-Directory am Bildschirm an. Entspricht DIR, DIRECTORY, 
FILES, CATALOG und so weiter bei anderen Computern. 


Öffnet sequentielle Datei zum Schreiben. 

Schreibt in sequentielle Datei. 

Schließt Schreib-Datei. 

Öffnet sequentielle Datei zum Lesen. 

Liest aus sequentieller Datei. 

Liest einen ganzen Datensatz komplett mit Kommata und so weiter. 
Schließt Lese-Datei. 





Übersicht der Schneider-spezifischen Befehle und ihrer Wirkung 
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Es erfolgt eine Verzweigung in ver- 
schiedene Routinen je nach Befehl, 
und endlich als dritte Phase die eigentli- 
che Befehlsausführung. Um dem Inter- 
preter die Arbeit zu erleichtern (und 
damit die Abarbeitungsgeschwindig- 
keit zu erhöhen) fordern die Pilot- 
Befehle ein bestimmtes Eingabeformat. 
Falls eines der Flags Y oder N angege- 
ben ist, dann muß das Befehlszeichen 
direkt ohne Zwischenraum auf den 
Flag-Namen folgen. Hinter dem Be- 
fehlszeichen ist genau ein Leerzeichen 
vorgesehen, es wird aber nicht gete- 
stet, um was für ein Zeichen es sich 
dabei handelt. In der Regel drückt man 
die Leertaste (Space) nach dem Befehl, 
es ist aber auch ein beliebiges anderes 
Zeichen möglich. Insbesondere kann 
(muß aber nicht) beim T-Befehl zur Tex- 
tausgabe ein Anführungszeichen ver- 
wendet werden. Falls ein Befehl einen 
Parameter (Zeilennummer, Text oder 
Zahlenwert) benötigt, muß dieser an 
der übernächsten Position hinter dem 
Befehlssysmbol beginnen. 

Nach dieser Vorrede nun endlich die 
Pilot-Befehle im einzelnen: 

text Kommentar - der folgende Text 
wird vom Interpreter ignoriert. 

T text Textausgabe - der nachfol- 
gende Text wird am Bildschirm ange- 
zeigt. Wenn das letzte Textzeichen ein 
Semikolon ist, wird nach der Textaus- 
gabe keine neue Zeile begonnen (das 
Semikolon wird nicht mit ausgedruckt). 
Eine weitere Textausgabe schließt dann 
unmittelbar an diesen Text an. Ist das 
letzte Zeichen kein Semikolon, beginnt 
nach der Textausgabe eine neue Zeile. 
Ein »T« allein erzeugt eine Leerzeile. 

A Antwort - Pilot wartet auf eine Text- 
eingabe vom Benutzer. Diese Eingabe 
wird in einem speziellen Antwort- 
Speicher (im Programm durch die Varia- 
ble C$ realisiert) zur weiteren Verwen- 
dung bereitgehalten. Der Antwortspei- 
cher enthält immer den mit dem letzten 
A-Kommando eingegebenen Text, alle 
früheren Antworten gehen durch ein 
A-Kommando verloren. 

V text Vergleich - prüft, ob die zuletzt 
eingelesene Antwort mit dem angege- 
benen Text übereinstimmt. Falls ja, dann 
wird das Y-Flag gesetzt und der »Match- 
Zähler«e (er dient zum Zählen der richti- 
gen Antworten) um eins erhöht. Ist die 
letzte Antwort nicht mit dem Vergleichs- 
text identisch, dann wird das N-Flag 
gesetzt und der Match-Zähler bleibt 
unverändert. 

W Wiederhole letzte Antwort - druckt 
die zuletzt mit A eingelesene Antwort 
wieder aus. 

G Glocke - erzeugt ein kurzes akusti- 
sches Signal (entspricht der Basic- 
Anweisung »PRINT CHR$(7)«), das 
beispielsweise für Fehlermeldungen 
genutzt werden kann. 
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1 REM TINY PILOT INTERPRETER 
SaBENE genen een 
3 REM 

4 REM (c) Volker Everts, 1986 
5 REM 


10 DEFINT A-Z 

20 NN=199:REM max. Anzahl Programmzeilen 

SO DIM P$(NN+1) :P$(NN+1)="E":REM Pilot-P 

rogr amm 

40 CLS:PRINT TAB(5);"x## TINY PILOT x" 
:PRINT 

45 PRINT'"OK" 

50 PRINT'">"3;:LINE INPUT A$:A$=As+" " 

&0 IF LEFT$tA$,1)=" " THEN A$=MID$(A$,2) 
:GOTD 40 

70 IF A$="" THEN SO 

80 I=INSTR(A$," ") 

90 B$=MID$(A$,I+1):A$=LEFTFAF,I-1) 

100 IF VAL(A$)>O DR A$="0" THEN GOSUB 20 

0:G0OTO S50:REM Zeilennummer 

110 IF A$="LIST" THEN GOSUB 300:G60T0 45 
120 IF A$="LOAD" THEN GOSUB 400:GOTO 45 
130 IF A$="SAVE" THEN GOSUB 500:G6G0T0O 45 
140 IF A$="EXIT" THEN GOSUB 600:G0T0 45 
150 IF A$="CAT'" THEN GOSUB 700:G6G0T0O 45 
160 IF A$="NEW" THEN GOSUB 800:G0T0 45 
170 IF A$="RUN" THEN GOSUB 1000: IF E THE 
N 1BO ELSE 45 

175 PRINT" +++ UNBEKANNTES KOMMANDO" :GOTO 
45 

180 PRINT"+++ FEHLER IN PILOT-PROGRAMM: " 
PRINT PC; P$(PC) sE=0:G6G0T0 45 

185 PRINT"+++ FALSCHE ZEILENNUMMER" :GOTO 
45 

197 REM 

19B REM Zeile einfuegen/loeschen 

199 REM 

200 N=VAL(A$): IF N>NN THEN 185 

210 P$(N)=B$ 


220 RETURN 

297 REM 

298 REM Pilot-Programm listen 
299 REM 

300 IF B$="'" THEN B$="0" 


s10 FOR I=VAL(B$) TOD NN 
s20 IF P$(I)<>"" THEN PRINT USING" ###%"; 
I; :PRINT" ";P$(I) 


330 K$=INKEY$:IF K$="" THEN 3650 
340 IF K$<>" " THEN I=NN:GOTO 3640 
350 K$=INKEY$: IF K$="'" THEN 350 
S60 NEXT 

370 RETURN 

397 REM 

S9B REM Pilot-Programm laden 

3997 REM 


400 I=INSTR(B$,".")zIF I=O THEN B$=B$+". 
PLT" 

A410 GOSUB BOO:REM altes Programm loesche 
n 

420 DPENIN B$:REM sequentielle Datei oef 
fnen 

ASO INPUT#9,N: IF N=-i THEN CLOSEIN:RETUR 
N 

A440 LINE INPUT#9,P$(N):GOTO 430 

497 REM 

498 REM Pilot-Programm speichern 

499 REM 

500 I=1INSTR(B$,".")sIF I=O THEN B$=B$+". 
PET” 

S10 DPENOUT B$:REM sequentielles File oe 
tfnen 

520 FOR 1=0 TO NN 

350 IF P$&(I)<>"" THEN PRINT#9,1I:PRINT#9, 
P$(I) 
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540 NEXT 

550 PRINT#9,-1:CLOSEOUT 
560 RETURN 

597 REM 

598 REM Programm beenden 
599 REM 

&00 PRINT: PRINT" 
="s2PRINT 

&10 END 

697 REM 

698 REM Catalog 
699 REM 

700 CAT: RETURN 
797 REM 

798 REM Pilot-Programm loeschen 
797 REM 

800 FOR 1=0 TOD NN:P$CI)=""3NEXT 
810 RETURN 


===2= ENDE PILOT ==== 


Listing 1. »TinyPliot«-Interpreter 
als Basic-Programm 


997 REM 

998 REM Pılot-Programm starten 

999 REM 

1000 MZ=0:C$="":Y=0:ıN=0 

1010 PC=-1 

1020 PC=PC+1:1IF P$&(PC)="" THEN 1020 


1030 Z$=P$ (PC) sA$=LEFTSE(ZS,1) 

1040 IF A$="Y" THEN Z$=MID$(Z$%,2) :A$=LEF 

T$(Z$,1): IF Y=O THEN 1020 

1050 IF A$="N" THEN Z$=MID$(Z$,2) : A$=LEF 

T$(Z$,1)=: IF N=O THEN 1020 

1060 B$=MID$(Z$,3): IF A$=":" THEN 1020 

Kommentar 

1065 IF LEN(B$) THEN B$=LEFT$(B$,LEN(B$) 

-1) 'Diese Zeile kann auf einigen Comput 

ern entfallen ! 

1070 IF A$="T" THEN 1300 'Text ausgeben 

1080 IF A$="A" THEN LINE INPUT C$:GOTO 1 

020 "Antwort einlesen 

1090 IF A$="5" THEN PC=VAL (B$)-1:G0OT0O 10 

20 'Sprung nach Zeile B$ 

1100 IF A$="U" THEN S(SP) =PC:SP=SP+1:PC= 

VAL (B$)-1:G6G0TO 1020 "Unterprogramm 

1110 IF A$="R" THEN SP=SP-1:PC=S(SP) sGOT 

B 1020 ’Rueckkehr von Unterprogramm 

1120 IF A$="M" THEN PRINT MZ3:GOTO 1020 

"Matchzaehler ausgeben 

1130 IF A$="K" THEN MZ=VAL (B$) :GOTO 1020 
"Konstante in Matchzaehler laden 

1140 IF A$="W" THEN PRINT C$;:6G0OTO 1020 

"Wiederhole letzte Antwort 

1150 IF A$="V" THEN 1410 "Vergleiche B$ 

mit Antwort 

11680 IF A$="G" THEN PRINT CHR$(7)3:GOTO 

1020 "Glocke, akustisches Signal 

1170 IF A$="-" THEN MZ=MZ-VAL (B$) ıGOTO 1 


020 "Konstante 
1180 IF A$s="+" 
020 'Konstante 
1190 IF AS="7?" 


von MZ subtrahieren 

THEN MZ=MZ+VAL (B$) :sGOTO 1 
zu MZ addieren 

THEN B=VAL (B$) sY=(MZ>B) ıN 





=(MZ<B) :GOTO 1020 ’Vorzeichen von MZ bes 
timmen 

1200 IF A$="E" THEN RETURN ’Ende des Pro 
grammlaufs 

1210 IF A$="L" THEN GOSUB 400:60T0O 1010 
‘Laden und starten eines Pilot-Prg. 

1220 E=-1:RETURN "Fehler, unbekannter Be 
fehl in Pilot-Programm 

1230 REM 

1300 IF B$="" THEN PRINT:GOTO 1020 

1510 IF RIGHT$(B$,1)="3" THEN PRINT LEFT 
$(B$,LEN(B$)-1)3;3:G60TO 1020 

1320 PRINT B$:GOTO 1020 

1400 REM 

1410 IF B$=C$ THEN Y=-1:MZ=MZ+1 ELSE \Y=O 
1420 N=(Y=0):6G0TO 1020 




















OÖ t ---------------------------- sr T 

i » Mini-Vokabeltrainer mit Pilot 456 

2 k ------- ------- --------------- 47 T"Nochmal 7? 3; 

is a3 A 

5 K oO 49 U JA 

10 U 100 50 YS iA 

11 T AUTO ? 51 V NEIN 

12 A 52 YE 
13 V CAR 53 T"Biıtte JA oder NEIN antworten ! 
12 U 110 54 5 45 
15 : DEM 
20 U 100 97 1. 
21 T TASCHENRECHNER 98 + Unterprogr amm Frage eınleiten 
22 A 997: 
23 V TALCULATOR 100 T 
24 U 110 102 T"Was bedeutet... ; 
Zeiss 104 R 
30 U 100 107 : 
31 T ARENTEUER 10B : Unterprogramm Antwort auswerten 
32 A 109 : 
353 v ADVENTURE 110 YS 120 
34 U 110 112 T"Nein, 3 
33 4 113 W 
4n T 114 T" ist leider falsch ! 
416 11S R 
42 T"Ok., das waren 5 Fragen. 120 T"Bravo, das ist richtig ! 
43 T'Richtige Antwvworten:; 122 G 
44m 12A R 


Listing 2. Ein Demo-Programm In Pilot. Bitte nur mit »Tiny-Pllot« eingeben, da es nicht auf Jedem Interpreter läuft 


K zahl Konstante - lädt den Match- 
Zähler mit der angegebenen Zahl. Wird 
häufig mit der Zahl Null verwendet, um 
den Match-Zähler wieder auf den Aus- 
gangszustand zurückzusetzen. 

M Match-Zähler anzeigen - druckt 
den Inhalt des Match-Zählers als Zah- 
lenwert. Es wird dabei kein Zeilenvor- 
schub ausgeführt. 

+ zahl Addition - der angegebene 
Zahlenwert wird zum Match-Zähler hin- 
zuaddiert. Dient zum Addieren zusätzli- 
cher Bonus-Punkte und so weiter. 

- zahl Subtraktion - der angegebene 
Zahlenwert wird vom Match-Zähler 
abgezogen. Dient zum Vergeben von 
Malus-Punkten und so weiter. 

? zahl Test auf Zahlenwert - der 
Match-Zähler wird mit dem angegebe- 
nen Zahlenwert verglichen. Ist der 
Match-Zähler größer, dann wird das Y- 
Flag gesetzt, ist er kleiner, das N-Flag. 
Sind Match-Zähler und Zahlenwert 
genau gleich, gelten beide Flags als 
gelöscht. Dieser Befehl dient zur 
Abfrage bestimmter erreichter Punkt- 
zahlen. 

S zelle Sprungbefehl - das Pro- 
gramm verzweigt zur angegebenen 
Zeile (wie GOTO in Basic). 

U zelle Unterprogramm-Aufruf - der 
augenblickliche Wert des Programm- 
zählers wird auf einen Stack gerettet 
und die Programmausführung mit der 
angegebenen Zeile fortgesetzt. Ent- 
spricht etwa dem GOSUB in Basic. 


R Rückkehr vom Unterprogramm - 
der beim U-Befehl gerettete Inhalt des 
Programmzählers wird wiederherge- 
stellt, das Programm kehrt also in die 
dem zugehörigen U-Befehl folgende 
Zeile zurück. Entspricht RETURN in 
Basic. 

L name Laden und Starten - ein wei- 
teres Pilot-Programm wird geladen und 
automatisch gestartet. Dabei bleiben 
der Inhalt des Match-Zählers, die Flags 
Y und N sowie die letzte eingelesene 
Antwort unverändert erhalten. Durch 
diesen Befehl ist es möglich, nahezu 
beliebig lange Pilot-Programme laufen 
zu lassen, indem man kürzere Teilpro- 
gramme mittels L-Kommando verkettet. 
Bezüglich der Namensgebung gelten 
die gleichen Bemerkungen wie beim 
Editor-Befehl LOAD. 

E Ende - dieser Befehl beendet ein 
Pilot-Programm. Anschließend meldet 
sich wieder der Editor. 

Vor jedem dieser Befehle kann 
(braucht aber nicht) ein Y oder ein N 
stehen. Die Befehle werden dann nur 
ausgeführt, wenn das jeweilige Flag 
gesetzt ist. Gerade diese Fähigkeit 
gestaltet Pilot-Programme sehr flexibel. 


Empfehlenswert ist, sich strikt an die 
vorgegebenene Syntax der Befehle zu 
halten und speziell bei den Sprungbe- 
fehlen (S und U) große Sorgfalt hinsicht- 
lich der Richtigkeit der Parameter wal- 
ten zulassen. Um die Arbeitsgeschwin- 








digkeit des Interpreters möglichst maxi- 
mal zu halten, finden während eines 
Programmlaufes kaum Überprüfungen 
auf einwandfreie Daten statt. Ein fehler- 
haftes Programm kann dadurch in eini- 
gen, glücklicherweise sehr seltenen, 
Fällen »abstürzen«, das heißt, es kommt 
zu einem Abbruch des Basic- 
Programms mit entsprechender Fehler- 
meldung. In einem solchen Falle ver- 
mag der Tiny-Pilot-Interpreter mit 
»GOTO 40« ohne Verlust des Pilot- 
Programms wieder gestartet zu wer- 
den. 

Listing 2 zeigt ein Beispielprogramm 
in Pilot. Um dieses Programm auszu- 
probieren, müssen Sie zunächst den 
Tiny-Pilot-Interpreter (Listing 1) abtip- 
pen undmit RUN starten. Tiny Pilot mel- 
det sich mit »OK« und ist dann bereit, 
Programmzeilen anzunehmen. Das Bei- 
spielprogramm stellt einen Mini- 
Vokabeltrainer dar. Es werden drei 
Vokabeln abgefragt und zum Schluß die 
Anzahl der richtigen Antworten ausge- 
geben. Natürlich ist dieses Beispiel 
noch beliebig ausbaufähig. Vielleicht 
fallen Ihnen ja auch noch ganz andere 
Sachen ein, die Sie mit Tiny Pilot ver- 
wirklichen können. Auf jeden Fall erhal- 
ten Sie einen kleinen Eindruck von die- 
ser interessanten und etwas eigenwilli- 
gen Sprache, auch wenn nochmals 
betont werden muß, daß die Leistungs- 
fähigkeit des »echten« Pilot doch um 
einiges höher ist. (ev) 
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Der Nachfolger: Modula 2 





odula 2 wurde, ganz ähnlich 
wie etliche Jahre zuvor Pas- 
cal, von Professor N. Wirth 


an der ETH Zürich entwickelt. Die Ziffer 
2 hinter dem Namen besagt nichts wei- 
ter, als daß es sich um die zweite Ver- 
sion dieser Sprache handelt. Modula 
wurde als direkter Nachfolger von Pas- 
cal konzipiert und führt das Prinzip der 
»Strukturierten Programmierung« wei- 
ter fort. 

Da Modula von Anfang an aber auch 
für die Systemprogrammierung ge- 
dacht war, sind mit dieser Sprache auch 
alle jenseits eines guten Programmier- 
stils liegenden, aber sehr effizienten 
Manipulationen möglich, die die 
Assemblersprachen und © so berühmt- 
berüchtigt gemacht haben. Allerdings 
muß solch eine »spezielle« Absicht 
gewissermaßen vorher angemeldet 
werden. 

Bei einer Beschreibung der Sprache 
kann man ruhigen Gewissens von Pas- 
cal ausgehen, da Pascal fast schon als 
eine Teilmenge von Modula zu bezeich- 
nen ist. Bis auf unwesentliche syntakti- 
sche Details wurden alle Eigenschaften 
von Pascal praktisch unverändert über- 
nommen, wobei die wenigen geänder- 
ten Details der Sprache durchwegs gut 
bekommen sind. Der einzige wirklich 
deutlich gegenüber Pascal geänderte 
Teilbereich betrifft die Ein- und Ausgabe 
von Daten, die völlig anders organisiert 
ist. Neuheiten sind natürlich auch zu 
verzeichnen: 

Als wichtigstes neues Merkmal von 
Modula, das der Sprache auch zu ihrem 
Namen verholfen hat, gibt es die Mög- 
lichkeit, völlig unabhängige Module zu 
schreiben, deren interne Daten nicht 
von außen zugänglich sind. In Modula 2 
besteht ein Modul aus zwei getrennten 
Teilen, einem Definitions- und einem 
sogenannten Implementationsteil. 

Programmteile, die mit einem Modul 
arbeiten, dürfen sich ausschließlich auf 
den Definitionsteil des jeweiligen 
Moduls beziehen, der im wesentlichen 
die von außen benutzbaren »Objekte« 
(Variable, Datentypen etc.) mit ihren 
wichtigen Attributen aufzählt. 

Der Implementationsteil gibt dann die 
genaue Ausführung der Datentypen 
und Unterprogramme an, die im Defini- 
tionsteil deklariert wurden. 

Der Implementationsteil kann auch 
nach dem Definitionsteil übersetzt und 
sogar getrennt vom Definitionsteil neu 
übersetzt werden. Leider hat das zur 
Folge, daß jeder Modula-Compiler 
einen speziellen Linker nur für Modula- 
Programme braucht; herkömmliche Lin- 


Professor N. Wirth, der »Vater« 
von Pascal, hat sich mit Modula 
2 einen neuen Geniestreich 
geleistet. Diese Sprache ist 
dabei, ihrem Vorgänger Pascal 
den Rang abzulaufen. 


ker können nämlich die Überprüfungen, 
die beim Linkprozeß eines solchen 
Moduls notwendig werden, nicht vor- 
nehmen. 

Jedes Modul beinhaltet eine Liste, 
welche Objekte aus welchen anderen 
Modulen zur Anwendung »importiert« 
werden dürfen. Diese Liste bläht zwar 
das Programm ziemlich auf, da in der 
Regel dochrecht viele Objekte zu über- 
nehmen sind (vor allem eben die Ein- 
und Ausgabe); andererseits erhält 
damit der Compiler Gelegenheit, zu 
überprüfen, ob diese Objekte wirklich 
von den anderen Modulen exportiert 
werden. Diese Möglichkeit der Über- 
prüfung durch den Compiler sollte man 
nicht unterschätzen, vermeidet sie 
doch viele Fehler, die auf irrtümlicher 
Verwendung irgendwelcher globaler 
Parameter oder Daten in herkömmili- 
chen Programmiersprachen beruhen. 


Flexibilität durch 
Proz aur-variable 


Eine weitere wichtige Erweiterung 
gegenüber Pascal stellt die Einführung 
von sogenannten Prozedur-Variablen 
dar. Das hat zur Konsequenz, daß bei- 
spielsweise auch Arrays von Prozedu- 
ren oder vektorwertige Funktionen 
möglich sind, für den Systemprogram- 
mierer sicherlich nicht uninteressant. 

Bei den Unterprogrammen gibt es 
noch eine Neuerung, die bei einigen 
Pascal-Implementationen schon in 
unterschiedlichen Formen geprobt 
wurde: 

Wenn T ein Typname ist, kann man 
einen Parameter als »ARRAY OF T« 
deklarieren. Dann sind alle Arrays, die 
Elemente vom Typ T sind, als Argu- 
mente des Unterprogramms zu verwen- 
den. Das Unterprogramm kann die 
Grenzen des Indexbereichs durch eine 
Standardfunktion abfragen, so daß man 
weiß, welche Array-Elemente existieren 
und welche nicht. 

Außerdem gibt es für die am häufig- 
sten verwendeten Sprunganweisungen 
Ersatzanweisungen, die im Gegensatz 
zum altbekannten und verpönten 
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»GOTO«.nicht mit der strukturierten Pro- 
grammierung in Konflikt geraten kön- 
nen: Es handelt sich um Befehle, die die 
Abarbeitung einer Schleife bezie- 
hungsweise eines Unterprogramms 
vorzeitig beenden. 

Allerdings kann man nicht mehrere 
Schleifen auf einmal abbrechen, son- 
dern nur immer die innerste Schleife, in 
der sich das Programm zum Zeitpunkt 
des Abbruchs befindet. Das setzt der 
Brauchbarkeit der Abbruchsanweisung 
für Schleifen doch eine deutliche 
Grenze. 

Konsequenterweise gehört auch der 
unbedingte Sprung »GOTO« immer 
noch zu der Sprache. Erwähnenswert 
ist die Möglichkeit, in der Konstanten- 
vereinbarung statt Konstanten auch 
konstante Ausdrücke anzugeben. 
Damit ist es viel leichter als in Pascal, 
genaue Wertebereiche anzugeben, in 
denen sich Variable bewegen; es 
kommt ja häufig vor, daß eine Variable 
genau dieselben Werte wie eine andere 
Variable annimmt, bis auf genau einen 
Randwert. In solchen Fällen mußte man 
in Pascal bei Anpassungen des Werte- 
bereichs immer zwei Konstanten 
ändern, in Modula bei Deklarationen 
nach dem Muster 


CONST 
big=-99999; 
bigger-big+1 


lediglich eine. a 
Die letzte wichtige Anderung, die 
noch auffällt, ist bei einer Hochsprache 
schon recht ungewöhnlich: Modula 
akzeptiert Zahlen nicht nur in der übli- 
chen dezimalen Schreibweise, sondern 
auch in hexadezimaler (richtig eigent- 
lich: sedezimal) oder oktaler Darstel- 
lung. Für Systemprogrammiierer, die ja 
immer wieder einzelne Bits aus einer 
Zahl benötigen oder direkt auf Maschi- 
nenadressen zugreifen, ist dies sicher- 
lich eine wertvolle Unterstützung. 
Modula 2 ist bislang nur für IBM- 
kompatible Computer unter MS-DOS 
sowie für die Atari-ST-Reihe erhältlich. 
Die Atari-ST-Version stammt von TDI- 
Software; Vertrieb in Deutschland 
durch Focus Computer. Die leider nur in 
englisch erhältliche Dokumentation 
reicht aus, allerdings gerade bei der 
Beschreibung der für den Systempro- 
grammierer interessanten Konstruktio- 
nen geriet sie etwas knapp. Sehr positiv 
dagegen ist die vollständige Anbindung 
dieses Modula-Systems an die Benut- 
zeroberfläche GEM - ein echtes Pro- 
dukt für das 68000-Zeitalter also. 
(Joachim Durchholz/ev) 
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Lisp, Logo, Prolog, Exoten unter 
den Programmiersprachen. Spra- 
chen der »Künstlichen Intelli- 
genz«, Sprachen für Programme, 
die dazulernen. Sie könnten die 
Grundlage sein für Computer, die 
ohne Programmierer auskom- 
men! 


ir befinden uns im Jahre 
1991. Japan hat seine An- 
kündigung wahr gemacht: 


Die Prolog-Maschine ist da und Sie 
sticht alles aus, was die Welt bisher an 
Computern gesehen hat. Das Modell 
für den deutschen Markt steht bei mir 
zu Hause - als Redakteurin einer Com- 
puterzeitung habe ich eins der ersten 
Exemplare ergattert. 

An der INWB (die Internationale 
Netzwerk-Buchse) und am Stromnetz 
ist sie schon angeschlossen. Nun stellt 
sie sich kurz vor (sie heißt Com-Pu-Ta). 
Die neue Superrechenmaschine spricht 
mit mir - natürlich deutsch. Ihre Stimme 
gefällt mir. Wir plaudern ein bißchen 
über meine Wohnungseinrichtung und 
das Fernsehprogramm heute abend. 
Und dann fühle ich ihr ein wenig auf den 
Zahn, frage sie nach Geschichtsdaten, 
gebe ihr Mathematikaufgaben zu lösen, 
spiele ihr Musik vor und lasse mir erzäh- 
len, wie die Stücke entstanden sind, 
wer sie singt und wovon sie handeln. 
Auch meine Fragen nach dem ersten 
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Artikel auf Seite 3 in der Süddeutschen 
Zeitung vom letzten Freitag beantwor- 
tet sie prompt. Ich bitte sie, mir die wich- 
tigsten Bücher und Artikel zu dem 
Thema zusammenzustellen und die 
Liste auf meinen PC zu übertragen. 
Kein Problem. Etwas länger braucht sie 
allerdings schon, um sich in die japani- 
sche Zentral-Datenbank einzuloggen 
und mir das schönste Video über 
Kabuki-Theater rüberzuholen. Viel- 
leicht war aber nur das INW überlastet. 
Während ich mir das Video auf dem 
Monitor ansehe, erklärt sie mir auf 
meine Fragen, wie lange die Darsteller 
üben müssen, um diese exakten Bewe- 
gungen zu beherrschen. Als sie dann 
aber auf die Geschichte des japani- 
schen Theaters eingehen will und ins 
Philosophische abrutscht, lenke ich 
ein: das wird mir zu kompliziert. Sie 
merkt sofort, daß ich mich lieber unter- 
halten lasse und im Augenblick keine 
Lust habe, soviel zu denken. Freundli- 
cherweise macht sie keine Bemerkung 
dazu. Aber intern hat sie wohl den 
»Anspruchspointer« etwas runterge- 
setzt. Ich merke an der Wortwahl, daß 
sie weniger Fremdworte benutzt als 
vorher. Nach dem Theater-Video 
schlägt sie mir einige andere Filme vor, 
die mir gefallen würden - wie sie meint. 
Aber ich bin durch die Liebesge- 
schichte in dem Theaterstück nach- 
denklich geworden und erzähle ihr von 
meinen Gedanken: 





»Gefühle sind so unberechenbar. 
Warum liegen Liebe und Haß, Leiden- 
schaft und Wut so nah nebeneinan- 
der?« Und hier wird mein Supercompu- 
ter zum erstenmal ratlos. »Das mußt Du 
mir näher erklären«, sagt sie. »Ich ver- 
stehe nicht, was Du mit Deiner Frage 
meinst.« In diesem Augenblick war ich 
sicher: Es dauert nicht lange und sie 
wird auch das verstehen. 

Im menschlichen Verhalten verbindet 
man einige charakteristische Fähigkei- 
ten mit Intelligenz: sprechen und Spra- 
che verstehen können, lernen, Pro- 
bleme lösen, sich eine eigene Meinung 
bilden, mathematische Sätze beweisen 
und natürlich Computer zu programmie- 
ren. Die ProgrammiersprachenLisp und 
Prolog wurden entwickelt, um damit 
Programme zu entwerfen, die das alles 
können. Auf diesen Sprachen bauen 
die Programmbausteine auf, aus denen 
dann schließlich Expertensysteme 
oder Robotersteuerprogramme ent- 
wickelt werden. Programme, die Bilder 
erkennen und identifizieren, Pro- 
gramme, die Deutsch oder Japanisch 
verstehen. Programme, die erklären, 
was sie gerade getan haben und warum 
sie zu einem bestimmten Ergebnis 
gekommen sind. Intelligente Pro- 
gramme. 

In den Anfängen der Kl-Forschung 
waren es vor allem die Forscher an 
Universitäten, die Grundlagenarbeit zu 
den Themen Wissensverarbeitung be- 
trieben. Inzwischen ist KI-Programmie- 
rung auch in der Industrie angesiedelt. 
60 Prozent der Programmsysteme auf 
Lisp-Maschinen sind Expertensy- 
steme. Programme für Planung, Softwa- 
reentwicklung, Bild- und Sprachverar- 
beitung (Roboter) und natürlichsprach- 
liche Systeme stellen die restlichen 40 
Prozent. 

Expertensysteme sind »intelligente« 
Programme aus dem Bereich der 
Künstlichen Intelligenz mit ganz 
bestimmten Eigenschaften. Ihre Auf- 
gabe ist es, wie ein menschlicher 
Experte über ein bestimmtes Gebiet 
(möglichst) vollständig Bescheid zu 
wissen. Solche Anwendungsgebiete 
können in der Medizin (Diagnose, 
Behandlung von Tropenkrankheiten), 
der Technik (Konstruktion von Auto- 
motoren, im Aufbau von Rechnerkonfi- 
qgurationen), oder in der Geschichte lie- 
gen. Jedes Gebiet, in dem es menschli- 
che Spezialisten gibt, ist geeignet. 
Expertensysteme bestehen aus meh- 
reren Komponenten. Die Wissensbasis 
enthält das Expertenwissen, das auf 
geeignete Weise im Computer darge- 
stellt wird. Der Aufbau dieser Wissens- 
basis ist das Kernproblem, das sich bei 
der Entwicklung eines Expertensy- 
stems stellt. Nicht nur Buchwissen soll 
aufgenommen werden, sondern auch 
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Erfahrungswissen, das, was man erst 
durch langjährige Praxis an Tricks und 
Kniffen lernt. Ein Expertensystem 
arbeitet auf dieser Wissensbasis und 
zwar im Dialog mit seinem Benutzer. 
Diese Dialogkomponente ist ebenfalls 
typisch. Der Benutzer stellt dem Pro- 
grammsystem Fragen: (»Welche Krank- 
heit hat der Patient, wenn folgende 
Symptome auftreten: ...?«) oder »Ich will 
für meine Schreinerei einen Computer 
und Software anschaffen. Was braucht 
man und was gibt es?« Nachdem der 
Computerexperte aufgrund seines 
gespeicherten Wissens und im 
Gespräch mit dem Fragenden alle nöti- 
gen Informationen gesammelt und eine 
Lösung des Problems gefunden hat, 
kann der Benutzer von der Erklärungs- 
komponente Gebrauch machen. Das 
Expertensystem erklärt jeden einzel- 
nen Schritt seiner Schlußfolgerungen. 
Dies sind die wesentlichen Bestand- 
teile eines Expertensystems: Eine Wis- 
sensbasis, die auch vages Wissen ent- 
hält, die Dialog- und die Erklärungskom- 
Ponente. 

Wissensbasis (knowledge base) - 
ein weiterer Begriff, der sehr häufig im 
Zusammenhang mit KiI-Programmen 
gebraucht wird. In einer Wissensbasis 
werden Informationen gespeichert. 
Das größte Problem stellt dabei die Auf- 
bereitung des Wissens dar. Denn in der 
Künstlichen Intelligenz wird meist nicht 
mit mathematischem Wissen gearbei- 
tet, sondern mit der Manipulation von 
Symbolen. Eine häufig verwendete 
Form, in der dieses Wissen dargestellt 
wird, sind Regeln: 

WENN (IF) ... DANN (THEN) ... 

WENN bestimmte Bedingungen 
zutreffen, DANN kann man daraus (mit 
einer bestimmten Wahrscheinlichkeit) 
schlußfolgern, daß eine bestimmte 
Situation vorliegt. 

Beispiel (simpel und fingiert): 

WENN der Patient raucht, DANN ist die 
Wahrscheinlichkeit, daß er zu dick ist, 5 
Prozent höher als sonst. Andere Dar- 
stellungsformalismen für verschiedene 
Arten von Wissen werden im Kapitel 
»Wissensrepräsentation« vorgestellt. 

Lisp wurde etwa 1960 am MIT (Mas- 
sachusetts Institute of Technology) 
unter der Leitung von John McCarthy 
entwickelt. Die Hauptanwendung von 
Lisp (LISt Processing language) 
besteht, wie derName es schon sagt, in 
der Verarbeitung von Listen. Typische 
Lisp-Anwendungen sind Programme, 
die natürliche Sprache verstehen, 
Expertensysteme, automatisches 
Beweisen und andere Forschungsrich- 
tungen der Künstlichen Intelligenz. Lisp 
unterscheidet sich sehr von den her- 
kömmlichen Programmiersprachen. 
Der wesentliche Unterschied liegt 
darin, daß Programm- und Datenstruk- 
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turen übereinstimmen. Ein Lisp- 
Programmteil kann selbst wie die übli- 
chen Programmdaten behandelt wer- 
den. Man kann also zusätzliche Funk- 
tionen später einlesen, Funktionsdefi- 
nitionen im Programmablauf über- 
schreiben und damit das Programm 
selbst verändern. Damit war Lisp die 
erste Programmiersprache, in der man 
lernende Programme schreiben 
konnte, die sich selbst veränderten. 

Lisp besitzt - verglichen mit anderen 
Programmiersprachen - sehr wenig 
Datentypen: Atome (Bild 1) und Listen- 
strukturen (Bild 2). Ein Atom kann ent- 
weder eine Zeichenkette sein (A) oder 
eine Zahl (3). 

Die grundlegende Datenstruktur bil- 
det jedoch das CAR-CDR-Paar. CAR 
bezeichnet das erste Element einer 
Liste. CDR (gesprochen: Kader) ist ein 
Zeiger, der auf den Anfang der Restliste 
verweist. 

Bild 1 zeigt zwei solche CAR-CDR- 
Paare. Der CAR des ersten Atoms ist A, 
der des zweiten Atoms ist 3- NlL ist der 
Standardwert eines leeren Atoms, hier 
eines Zeigers, der auf kein weiteres Ele- 
ment verweist. 

Der gesamte (freie) Speicherbereich, 
der sogenannte »free space«, wird in 
solche Paare unterteilt. Dieser Spei- 
cher beinhaltet sowohl Programme als 
auch Daten, die beide durch CAR-CDR- 
Paare realisiert werden. Im allgemeinen 
sind die Datenelemente Listen. Eine 
Liste wird realisiert, indem man CAR- 
CDR-Paare aneinanderhängt (Bild 2). 
Die Liste lautet in Lisp-Darstellung (A B 
C) - sie besitzt also die drei Elemente A, 
B und C. Die einzelnen Atome werden 
miteinander durch Zeiger verkettet. Der 
Zeiger steht in unserem Beispiel jeweils 
inder CDR-Zelle und zeigt auf dasnäch- 
ste Listenelement. Auf diese Weise 
werden die einzelnen Paare durch die 
CDR-Zeiger miteinander verknüpft. Der 
CAR-Teil des ersten Listenelements A 
enthält nur den Wert - nämlich A. Im 
CDR-Teil steht der Zeiger, der auf das 
nächste Listenelement (B) verweist. 
Das letzte Element dieser kleinen Liste 
ist C. C hat keinen Nachfolger. Daher 
verweist sein CDR auf ein leeres Atom, 
das der Ausdruck »NiL« bezeichnet. 
Das CDR-Feld des letzten Elements C 
ist ein spezielles Atom, das für den 
Abschluß einer Liste dient. Neue Ele- 
mente können ganz einfach an das 
Ende einer schon bestehenden Liste 
angehängt werden. NIL wird dann 
durch den Verweis auf einneuestListen- 
element ersetzt. Bild 3 zeigt die alte 
Liste (A B C), nachdem ein neues Ele- 
ment D angehängt wurde. 

Welche Inhalte diese Liste hat, ist bis- 
her noch völlig offen. Die Listenele- 
mente A, Bund C können Informationen 
verschiedenster Art aufnehmen. Reali- 














Blid 1. Zwei Lisp-Atome 


siert wird dies so: Der CAR-Teil wird als 
Zeiger verstanden - wie schon der 
CDR. Er verweist wiederum auf eine 
Liste, die nun in unserem Beispiel die 
Informationen des ersten Kunden (Bild 
4) enthält. Wie wir schon gesehen 
haben, kann jedes CAR-Feld selbst wie- 
der Zeiger auf eine andere Liste sein. 
Diese Liste kann aber auch eine 
Funktion bezeichnen, die auf zwei Ele- 
mente angewendet werden soll (zum 
Beispiel: (CONSX Y)). Was diese Funk- 
tion macht, wirdnoch erklärt. Denn Lisp 
macht keinen Unterschied zwischen 
der Struktur von Daten und der Pro- 
grammstruktur. Lisp unterscheidet nur 
zwischen Atomen (Strings, Zahlen oder 
NIL) und Nicht-Atomen. Solche Listen- 
konstruktionen aus Informationsinhal- 
ten und Zeigern erzeugen beliebige 
Strukturen. Damit hat Lisp eine außer- 
gewöhnliche Flexibilität und Mächtig- 
keit - andererseits erhält man so verwir- 
rend abstrakte Datenkonstruktionen. 
Jedes Lisp-Programm besteht aus ei- 
ner Reihe von Funktionen, die vonein- 
ander unabhängig sind - einem Funk- 
tionsbündel. Eine Funktion, ob vom An- 
wender (BUILD in Listing 1, FACT in 
Listing 2) angegeben oder vom System 
vordefiniert (CONS), liefert einen Wert 
als Ergebnis. Solange die einzelnen 
Funktionen nicht ausgeführt werden, 
besteht zwischen ihnen keine Verbin- 
dung - man sagt, sie sind nur dyna- 
misch verbunden. Jede Lisp-Funktion 
hat während ihrer Ausführung Zugriff 
auf den gesamten »free space«. Funk- 
tionen bearbeiten während ihrer Lauf- 
zeit Datentypen: Sie können dynami- 
sche Listen erzeugen oder verändern. 
Nochmal zurück zu der frappieren- 
den Übereinstimmung von Programm 
und Daten: Um diese besser zu verste- 
hen, betrachten wir die Liste (ABC). 
Wir haben angenommen, daß A eine 
Funktion bezeichnet, Bund © ihre bei- 
den Argumente. Die Liste wird in die- 
sem Fall also als Funktionsaufruf 
betrachtet. Lisp-Funktionen werden 
folgendermaßen geschrieben: Ein 
Funktionsaufruf besteht aus einer (Öff- 
nenden) Klammer, gefolgt vom Funk- 
tionsnamen und den aktuellen Argu- 
menten der Funktion. Nach dem letzten 
Argument folgt als Abschluß eine 
schließende Klammer. CONS erzeugt 
ein neues CAR-CDR-Paar. Das erste 
Argument wird ins CAR-Feld, das 
zweite in das CDR-Feld geschrieben. 





Blid 2. Eine Liste mit drei Elementen A, B und C 





Bild 3. Die Liste mit einem neuen Element D 


Bild 4. Eine Liste mit Informationsgehalt 


vorname - nachname - geburtsort 4 urn. 


In komplexeren Programmen wird es 
nötig, die Funktionsaufrufe ineinander 
zu schachteln. Listing 1 zeigt eine sol- 
che Funktion mit drei geschachtelten 
CONS-Aufrufen. 


Listing 1: 
(BUILD (LAMBDA (X Y Z) 
(CONS X (CONS Y (CONS Z NIL))))) 


Die innerste der geschachtelten 
Funktionen wird immer zuerst ausge- 
führt (hier also »(CONS Z NIL)«). Der 
resultierende Wert dient der nächsten 
Funktion als Argument. Die Abarbei- 
tung erfolgt Schritt für Schritt von innen 
nach außen. X, Y und Z werden hier als 
Platzhalter aufgefaßt. Nehmen wir fol- 
gendes an: Der Platzhalter X steht für 
den Wert A, Y istan den Wert B gebun- 
den und Z an C. Nun wird gerechnet. In 
dem Ausdruck (CONS Z NIL) wird der 
Platzhalter Z »evaluiert« (ausgewertet). 
Wir erhalten dafür dem Wert A. Die 
Funktion CONS arbeitet nicht mit den 
Namen ihrer Argumente { also nicht mit 
X, Y und Z), sondern mit den Wert, der 
an sie gebunden ist. 

Durch »(CONS C NIL)« erhalten wir 
ein Atom, wie es in Bild 1 schon steht. 
Mit diesem Atom (nämlich A) wird auf 
der nächsten Ebene - »(CONS Y 
(CONS Z NIL))« - weitergearbeitet. Y 
wird wieder ausgewertet zu B. Wir er- 
halten als Ergebnis eine Liste (BC). Auf 
der obersten Ebene erhält die Funktion 
BUILD nun endlich ihren Wert. Das Er- 
gebnis ist (ABC). 

Dieselbe Liste kann man auch so 
errechnen: 

(CONS 'A (CONS 'B (CONS 'C NIL))) 

Ein »’« (Quote genannt) wird den Be- 
zeichnern A, BundC vorangestellt. Die- 
ses Quote-Zeichen teilt dem Lisp-Inter- 
preter mit: »Werte den folgenden Aus- 
druck nicht aus, sondern nimm ihn wört- 
lich.«e Wie man sieht, muß NIL nicht 
gequotet werden. Das Ergebnis ist wie- 
der die Liste (ABC). 


rer: 





Ebenso wie die Funktionenaufrufe in 
BUILD kann man auch Listen schach- 
teln. Zum Beispiel 
» (DAS (WAR (DER (DREIZEHNTE) AN- 
RUFER))«. Die Liste wird »wörtlich« 
genommen - dafür sorgt wieder das 
Quote-Zeichen. 

Drei grundlegende System-Funktio- 
nen kennen wir nun schon: CAR, CDR 
und CONS. CAR und CDR dienen als 
Zeiger, die bestimmte Werte aus einer 
Liste holen und die die CAR-CDR-Paare 
einander zuordnen. Die CONS-Funk- 
tion wird zur Erzeugung neuer Struktu- 
ren benötigt. Das Resultat ist ein neues 
CAR-CDR-Paar, in dem das erste Argu- 
ment im CAR-Feld steht, das zweite im 
CDR-Feld. 

Listing 2 zeigt die bekannte Fakultäts- 
funktion in Lisp. Durch COND wird eine 
IFTHEN-ELSE-Abfrage in Lisp reali- 
siert. 


Listing 2: 

(FACT (LAMBDA (N) 

(COND ((EQN N 1) 1) 

(T (TIMES N (FACT (SUB1 N))))))) 


Diese Funktion ist rekursiv definiert - 
das heißt, sie benutzt in ihrer Definition 
sich selbst als Funktion - wie ein Maler, 
der ein Bild malt, auf dem ein Maler ein 
Bild malt, auf dem ein Maler... Wie eine 
rekursive Berechnung abläuft, wird 
gleich klar. Vorher noch einiges zum 
Aufbau einer Funktionsdefinition: Dem 
Funktionsnamen FACT folgt der Aus- 
druck LAMBDA und das Argument N - 
die Funktionsargumente werden als 
Liste geschrieben, daher die Klam- 
mern. Mit LAMBDA wird die Funk- 
tionsdefinition eingeleitet. Nach der 
Liste der Argumente folgt der Funk- 
tionskörper. Das COND entspricht dem 
bekannten IF-THEN-ELSE. Wenn N den 
Wert 1 hat (EQONN 1), dann soll die 
Funktion FACT den Wert 1 haben. Der 
ELSE-Zweig wird in Lisp so realisiert: T 
bedeutet TRUE, diese Bedingung trifft 





immer zu. Also lautet die Anweisung: 
sonst multipliziere (TIMES) N mit (FACT 
(SUB1 N)). Hier haben wir einen rekur- 
siven Aufruf der Funktion. Die Fakultät 
von N-1 (SUB1 N) wird berechnet. 
Ermitteln wir doch einmal probeweise 
die Fakultät von 3. (FACT 3) ist der 
Funktionsaufruf. N ist nicht gleich 1, 
also multiplizieren wir N (=3) mit (FACT 
2). Wieder istN (=2)nicht gleich 1, also 
rechnen wir 3*2*(FACT 1). Nun end- 
lich ist die erste Bedingung im COND- 
Ausdruck erfüllt. (FACT 1) liefert den 
Wert 1. Wir berechnen also 3*2*1 und 
erhalten 6. 

Die einzelnen Bedingungen in einem 
COND-Ausdruck werden geprüft, in- 
dem die angegebenen Funktionen (hier 
(EQVN 1)) ausgeführt werden. Ist eine 
Bedingung nicht erfüllt, dann liefert die 
Funktion den Wert NIL. Dieser hat die 
Bedeutung eineslogischen »NICHT« als 
Resultat einer Bedingung. Jedes 
andere Ergebnis wird als TRUE inter- 
pretiert. 

Die bisher besprochenen Funktionen 
sind alle sehr einfach. Lisp liefert jedoch 
eine ganze Reihe von Funktionen, wel- 
che die unterschiedlichsten Abfragen 
ermöglichen. Zusätzlich kann der 
Anwender beliebige Funktionen selbst 
definieren. 

Logo wurde 1967 von Seymour 
Papert am Massachusetts Institute of 
Technology in Boston definiert, und 
erfuhr seitdem verschiedene Imple- 
mentationen vor allem auf größeren 
Computern durch die Forschungsfirma 
Bolt, Beranek und Newman Inc. und 
durch die Logo-Gruppe des MIT selbst. 
Dabei gab es immer wieder Verände- 
rungen im Sprachumfang und in den 
Systemeigenschaften, so daß man 
unter Logo inzwischen eine ganze 
Sprachfamilie verstehen muß. 

Seymour Papert stellt seine Arbeit auf 
dem Gebiet der Künstlichen Intelligenz 
unter folgende These: Der Computer 
sei vor allem ein Instrument, das Den- 
ken und Lernen verändert. Damit bietet 
der Computer dem Menschen die 
Chance, seine Denkweise und den 
Lernstil zu verbessern. Eine solche Ver- 
besserung der Denkweise würde 
erreicht, wenn der Lernende am Com- 
puter aktiv arbeiten und durch das 
Experimentieren mit Programmen 
seine Ideen mathematisch formuliert 
und ausprobiert. Man nennt diese Form 
zu Lernen »learning by doing« - Lernen, 
indem man es tut. Die Zielsetzung von 
Seymour Papert erforderte eine 
Mensch-Maschine-Schnittstelle (für 
komfortable Ein-/Ausgabe), die ganz 
auf Dialog von Mensch und Computer 
ausgerichtet ist. Denn zum Lernen ist 
es wichtig, daß die Formulierung der 
Probleme, daß das Programmieren 
leicht geht. Genauso wichtig ist eine 
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schnelle Reaktion des Computers, der 
anzeigt, ob man richtig oder falsch 
gedacht (getippt) hat. Paperts erste 
Unterrichtsversuche wurden mit klei- 
nen Gruppen von 8- bis 18-jährigen 
Schülern durchgeführt. Er wählte einen 
ganz einfachen Roboter-Grundtyp aus, 
der zeichnen kann: eine Schildkröte 
(engl. turtle). Die Schildkröte ermög- 
licht auf anschauliche Weise eine com- 
putergerechte Formulierung mathema- 
tischer Fragen. Wie das in Logo aus- 
sieht, zeigen wir gleich. 

Die Erfahrungen mit menschlichem 
Lernen gingen über viele Jahre und 
führten zu immer neuen Versionen von 
Logo, das damit zur universellen Spra- 
che wurde. Vorbild für diese Spracher- 
weiterungen war Lisp, da sie in der KI- 
Forschung das am häufigsten verwen- 
dete Handwerkszeug war. Logo ist - bis 
auf die Turtle-Gafik - eine einge- 
schränkte Lisp-Version. Die Schildkröte 
in der Sprache Logo ist jedoch ohne 
Vorbild. Sie wurde inzwischen auch von 
anderen Sprachen (in UCSD-Pascal 
oder im Smalltalk-System) übernom- 
men. 

Soweit zur Geschichte von Logo. 
Durch die Anwendung in Grundschulen 
bis hin zur Universitätsausbildung ist 
Logo zu einer vielfältig einsetzbaren 
Sprache geworden, die immer auf den 
Lernenden ausgerichtet ist. Für alle 
Altersstufen ist der Einstieg in das Pro- 
grammieren mit Logo ganz leicht. Trotz- 
dem ist Logo auch für sehr komplexe 
Probleme geeignet. Logo ist damit die 
ideale Sprache für Personal Computing. 
Der Anwender kann relativ problemlos 
selbst programmieren, mit sehr ver- 
schiedenartigen Anwendungen experi- 
mentieren und schließlich auch einmal 
seine Kinder an den Computer lassen. 

Die Schildkröte wird mit den Befehlen 
FORWARD ... gehe vorwärts um .. 
Schritte 
RIGHT... drehe Dich um ... Grad nach 
rechts 
bewegt. Dabei zeichnet der Mini- 
Roboter seinen Weg mit einem Stift auf. 
Für jüngere Kinder ist eine mechani- 
sche Schildkröte, die vom Computer 
angesteuert wird und sich auf dem Fuß- 
boden bewegt, besonders anschau- 
lich. Viel schneller erhält man jedoch 
die Resultate seiner Arbeit, wenn man 
die Befehle an eine »mockturtle« auf 
dem Bildschirm des Rechners gibt. 

So lautet der Befehl, wenn ein Strich 
der Länge 50 gezeichnet werden soll: 
FORWARD 50 

Mit der Eingabe 
REPEAT 4 (FORWARD 50 RIGHT 90) 
erzeugt man ein Quadrat der Seiten- 
länge 50. (Bild 5) 

Jede Eingabe wird von Logo sofort 
ausgeführt. Zeilen werden als Befehl 
gedeutet. Man kann jedoch auch 
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eigene, neue Kommandos definieren, 
um zum Beispiel Quadrate zu zeichnen. 
TO QUADRAT 

REPEAT 4 (FORWARD 50 RIGHT 90) 
END 

Nun wollen wir die Prozedur ausfüh- 
ren. Dazu geben wir einfach das Wort 
QUADRAT ein. 

Jede Zeichenkette wird vom Logo- 
System als Befehl oder als Prozedur 
interpretiet. Variablennamen (die 
Namen von Platzhaltern wie zum Bei- 
spiel »:L«, »:R«e) beginnen mit einem 
Doppelpunkt. Will man die Prozedur 
QUADRAT so verallgemeinern, daß die 
Seitenlänge beliebig ist, dann ersetzt 
man die Längenangabe »50« einfach 
durch die Variable »:L« und fügt die Ein- 
gabevariable L im Kopf der Prozedur 
ein: 

TO QUADRAT :L 
REPEAT 4 (FORWARD :L RIGHT 90) 
END 

Solch eine Prozedur kann wie ein 
Grundbefehl verwendet werden. Las- 
sen wir nun 18 (REPEAT 18) Quadrate 
zeichnen. Nach jedem fertig gezeich- 
neten Viereck dreht die Schildkröte 
sich um 20 Grad nach rechts (RIGHT 
20). 

REPEAT 18 (QUADRAT 50 RIGHT 20) 

So entsteht die Folge von Quadraten 
in Bild 6. 

Die Steuerstruktur, die in Logo zur 
Verfügung steht, ist die Rekursion. Sie 
kann in den einfachsten Fällen auch von 
Kindern in ganz natürlicher Weise ver- 
wendet werden. Wenn man beispiels- 
weise Bild 7 von der Schildkröte zeich- 
nen läßt, so muß man eine Prozedur 
definieren, in der die Seitenlänge bei 
jedem Viereck größer wird. 

TO QUADRATSPIRALE :L 

QUADRAT :L 

RIGHT 20 

QUADRATSPIRALE :L+5 

END 

Diese Prozedur wird durch den Aufruf 
QUADRATSPIRALE 5 

ausgeführt. Nachdem das Quadrat ein- 
mal gezeichnet ist, ändert sich die 
Länge L (L+5) und die Schildkröte 
dreht sich um 20 Grad. Dann wird die 
Prozedur erneut gestartet. Da wir nicht 
angegeben haben, wann die Prozedur 
abbrechen soll, geht dieser Vorgang 
immmer weiter - solange bis durch 
Tastendruck unterbrochen wird. 

Nun soll zum Abschluß ein Begriff aus 
der Informatik - ein binärer Baum - pro- 
grammiert werden. An diesem Beispiel 
zeigen sich die Möglichkeiten eines 
rekursivon Programmaufbaus. Der in 
Bild 8 gezeigte binäre Baum soll von der 
Schildkröte gezeichnet werden. 

Die Prozedur nutzt dabei das Aufbau- 
prinzip des Baumes aus: 

TO BAUM :L 
IF:L ( 4 THEN STOP 
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Bild 6. REPEAT-Quadrat 


FORWARD :L 
LEFT 45 
BAUM :L/2 
RIGHT 90 
BAUM :L/2 
LEFT 45 
BACK :L 
END 

Rufen wir die Prozedur auf: 
BAUM 64 

Die BAUM-Prozedur besitzt wieder 
ein Argument, nämlich :L. :L hat nach 
dem Aufruf den Wert 64. Mit der IF 
Abfrage wird festgelegt, daß die 
Berechnung abbricht, wenn :L kleiner 
wird als 4. Die Befehle LEFT (links) und 
BACK (zurück) tun das, was sie sagen. 
Die Prozedur haben wir mit dem Wert 
64 aufgerufen. Die IF-Abfrage wird 
übersprungen, weil :L zu groß ist. Die 
Turtle geht dann (wegen FORWARD :L) 
64 Schritte geradeaus und dreht sich 
um 45 Gradnach links (LEFT 45). Dann 
folgt ein rekursiver Aufruf. Die Prozedur 
BAUM wird mit einem neuen Wert (:U/2 
- hier sind das 32) aufgerufen (BAUM 
:U/2) - jetzt wird die Prozedur wieder 
von vorne bearbeitet. Die Schildkröte 
geht :L, also 32 Schritte geradeaus, 
dreht sich um 45 Grad nach links und 
schon folgt der nächste rekursive Auf- 
ruf von Baum. Diesmal hat :L den Wert 
16 (:U2) - diese verschachtelten 
Prozeduraufrufe werden solange 
erzeugt, bis :L kleiner ist als 4, dann ist 
Schluß (STOP) mit diesem Zweig und 
das allerlinkeste Astchen ist gemalt. Auf 
der nächsthöheren Ebene von Proze- 
duraufrufen geht es weiter. Wenn 
schließlich der gesamte linke Ast des 
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Bild 7. Eine Quadratspirale 


Bild 8. Ein binärer Baum 


Baums steht, dann dreht sich die 
Schildkröte um 90 Grad nach rechts 
(RIGHT 90) und beginnt mit dem rech- 
ten Teil. Und wieder wird BAUM rekursiv 
aufgerufen. 


Prolog ist die »Kl-Sprache der Japa- 
ner«e und dient zur Entwicklung von 
Expertensystemen. Die Probleme der 
Künstlichen Intelligenz können mit 
den bisherigen Programmiermethoden 
nicht mehr gelöst werden. Man braucht 
geeignete Methoden, um die Dinge der 
realen Welt (beispielsweise Personen, 
Gegenstände, Gesetzmäßigkeiten, Zu- 
sammenhänge) auf dem Computer 
darzustellen. Der Computer soll ja die 
Realität kennenlernen, denn nur wenn 
er über die Welt, in der die Menschen 
leben, Bescheid weiß, kann er »intelli- 
gent« agieren. Ein solcher Computer 
»weiß« zum Beispiel: 

»Bäume sind Pflanzen.« 
»Bäume sind grün.« 

Damit hat er Informationen über 

Dinge, nämlich Bäume. 
»Menschen brauchen Nahrung, weil sie 
sonst verhungern.« 
»Autos fahren nur, wenn sie genug Ben- 
zin im Tank haben.« 

Diese Gesetzmäßigkeiten muß man 
auch als Computer einfach kennen. 
»Boris Becker ist ein bekannter Tennis- 
spieler. Daher berichten die Zeitungen 
oft über ihn.« 

Diese Information sagt etwas über 
eine Person (Boris Becker) aus und 
klärt zusätzlich einen Zusammenhang 
(weil er berühmt ist, schreibt man über 
ihn). 


ANY 





So wie eben beschrieben, kann Wis- 
sen über die reale Welt aussehen. Nun 
braucht man geeignete Methoden, um 
dieses Wissen auf einem Computer 
darzustellen. Daher wurden Konzepte 
entwickelt, mit denen diese komplexen 
Aufgaben zu lösen sind. Der Aufbau von 
Programmen mußte neu durchdacht 
werden. Ein herkömmliches Programm 
besteht aus den Computeroperationen 
auf der einen Seite. Auf der anderen 
Seite stehen die Eingabedaten, mit 
denen das Programm arbeitet. KI- 
Programme arbeiten nicht mehr mit 
Zahlen, sondern mit Informationen in 
Form von Regeln. Diese Regeln werden 
wie die Eingabedaten in anderen Pro- 
grammen außerhalb des Programms in 
einer Datei zusammengefaßt. Eine 
Regel könnte so aussehen: IF das Auto 
hat genug Benzin im Tank THEN es fährt. 

Diese IF-THEN-Form gibt es in Basic 
auch. In unserer Regel haben wir aber 
keinen Befehl, der sagt, was der Com- 
puter tun soll! Die Regel sagt nur aus, 
wie ein Auto reagiert, wenn es genug 
Benzin im Tank hat. 

In einem Basic-Programm würde man 
im Programm den Befehl 
IF Benzin>0 THEN GOTO Autofährt 
schreiben. In einem KlI-Programm wer- 
den solche Informationen aus dem Pro- 
gramm herausgezogen und in einer 
eigenen Datei abgelegt. 

Prolog wurde etwa 1970 in Marseille 
entwickelt. Ahnlich wie Lisp, die wohl 
bekannteste Sprache der Künstlichen 
Intelligenz, unterscheidet sich Prolog 
grundlegend von herkömmlichen Pro- 
grammiersprachen wie Basic und Pas- 
cal. Prolog ist - ebenso wie Lisp - eine 
interaktive Sprache. Die Entwicklung 
und Ausführung von Prolog-Program- 
men erfolgt im Dialog mit dem Compu- 
ter. Das Konzept der Sprache ist radikal 
neu. Der Programmierer braucht sich 
nicht mehr um Algorithmen zur Lösung 
seines Problems zu kümmern, sondern 
muß genau angeben, worin sein Pro- 
blem besteht. 

In herkömmlichen Programmierspra- 
chen (Pascal, Basic, Fortran) bestimmt 
der Programmentwickler die Reihen- 
folge der Computeroperationen. Er legt 
sie nämlich mit den Programmbefehlen 
fest. In Prolog-Programmen wird nicht 
mehr das »wie« spezifiziert, sondern 
das »was«. Prolog besitzt keine Sprach- 
elemente, die festlegen, in welcher Rei- 
henfolge der Computer die Program- 
moperationen ausführen soll. Solche 
Anweisungen sind zum Beispiel 
IF/THEN, ELSE, FOR, WHILE und 
GOTO. Mit solchen Kontrollbefehlen 
sagen wir dem Computer »mache zu- 
erst das, dann mache das«. Ein Prolog- 
programm dagegen gleicht mehr einer 
ungeordneten Ansammlung von Wis- 
sen. Mit einfachen Wenn-Dann-Befeh- 





len und mit Fakten werden Sachver- 
halte beschrieben. Dem Computer wird 
so gesagt, was er über seine »Welt« 
wissen muß. Man nennt solche Pro- 
grammiersprachen, die dem Computer 
vorschreiben, in welcher Reihenfolge 
er eine Folge von Problemen bearbei- 
ten soll, »algorithmisch«. In nichtalgo- 
rithmischen Sprachen wie zum Beispiel 
Prolog beschreibt ein Programm nur 
das Problem selbst. Man teilt dem Com- 
puter wahre Fakten (Tatsachen) über 
ein Problem mit und sagt ihm, wie er sie 
zu interpretieren hat. Jeder, derlange in 
Basic (oder anderen algorithmischen 
Sprachen wie Pascal oder Fortran) pro- 
grammiert hat, wird anfangs große 
Schwierigkeiten haben, sich auf die 
neue Programmierweise in Prolog ein- 
zustellen, weil er noch »in Basic denkte«. 

Wer Prolog lernen und in dieser Spra- 
che Programme entwickeln will, sollte 
sich das Standardwerk von Clocksin 
und Mellish ansehen. In diesem Buch 
wurde 1981 das Kern-Prolog definiert 
und dieser sogenannte »Edinburgh«- 
Standard liegt allen heutigen Prolog- 
Implementationen zugrunde. 

Und nun soll endlich ein ganz einfa- 
ches Beispiel zeigen, wie solche Fak- 
ten (in Tabelle 1 wird der Begriff »Fak- 
ten« erklärt) in Prolog aussehen kön- 
nen. Wir geben ein: »Ein Hund ist ein 
Tier.« »Eine Katze istein Tier.« und »Eine 
Kuh ist ein Tier.« 
tier(hund). 
tier(katze). 
tier(kuh). 

Der Punkt hinter jeder Zeile ist wich- 
tig! Prolog erkennt daran das Ende 
einer Eingabe. 

Nehmen wir an, unser Prolog-Pro- 
gramm »wüßte« nur diese drei Fakten, 
die wir ihm eingegeben haben. Wir fra- 
gen nun das Programm nach dem, was 
es weiß: 

»Ist ein Hund ein Tier?«. 

?- tier(hund). 

Das Prologsystem antwortet mit: 
yes. 

»Ist ein Wolf ein Tier?« 

t- tier(wolf). 

no. 

Auf die letzte Anfrage kann Prolog nur 
mit »no« antworten, da dem System ja 
noch nicht bekannt ist, daß der Wolf 
auch ein Tier ist. Ein »no« ist in diesem 
Sinne immer als ein »ich weiß es (noch) 
nicht« zu verstehen. 

So läuft in etwa eine Prolog-Session 
ab. Eine Menge von Fakten und Regeln 
wird eingegeben, wie wir es in unserem 
Beispiel in ganz kleinem Rahmen getan 
haben. Die Regeln und Fakten können 
auch als Sätze (wie ein Basic-Pro- 
gramm) von einer Datei geladen wer- 
den. Danach kann der Benutzer Fragen 
an das System stellen, auf die Prolog im 
einfachsten Fall mit »yes« oder »no« 
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antwortet. Dies ist natürlich noch keine 
anspruchsvolle Anwendung von Pro- 
log. Die Fähigkeiten von Prolog sind 
sehr viel umfassender, als hier gezeigt 
werden kann. 

Prolog wird vor allem dort eingesetzt, 
wo Symbole verarbeitet werden. Für 


numerische Datenverarbeitung, also 

Berechnungen und die Verarbeitung 

von Zahlen, wurde diese Sprache nicht 

entworfen. Typische Anwendungen 
von Prolog sind: 

- der Aufbau von Wissensbasen für 
Expertensysteme oder intelligente 
Datenbanksysteme 

- Verarbeitung natürlicher Sprache; sie 
umfaßt das Erkennen natürlicher 
Sprache und die Gesprächsführung 
durch das Programm 

- Bilderkennung und 
(Szenenanalyse) 

- der Entwurf kompletter Experten- 
systeme 

- die schnelle Entwicklung von Proto- 
typen für Programme 
Bisher haben wir schon gesehen, 

welches Problem die KI-Methoden vor 

allem bestimmt: 

»Wie wird Wissen dargestellt und ver- 
arbeitet?« 

Verschiedene Darstellungsweisen 
wurden entwickelt, die je nach Art und 
Struktur des Wissens ihre besonderen 
Vorzüge haben. Die wichtigsten Metho- 
den der Kl zur Wissensrepräsentation 
werden später kurz vorgestellt. 

Das sogenannte vage Wissen ist 
besonders schwer darzustellen. 
»Vages« Wissen nennt man die Informa- 
tionen, von denen man nicht mit 
100prozentiger, sondern nur mit einer 
gewissen Sicherheit weiß, daß sie stim- 
men. Man wirft zum Beispiel eine 
Münze und weiß: 

Mit 5Oprozentiger Wahrscheinlich- 
keit werfe ich Kopf. Aber genauso wahr- 
scheinlich ist es, daß eine Zahl gewor- 
fen wird. Expertensysteme zeichnen 
sich unter anderem dadurch aus, daß 
sie auf solch »vagem« Wissen arbeiten. 
Daher ist es wichtig, eine Darstellungs- 
fom dafür zu finden. 

Die wichtigsten Formalismen, um 
Wissen darzustellen, sind Regeln (IF ... 
THEN ...), Frames (Rahmen), Logik (wie 
in Prolog realisiert) und Netze. 

Regeln 

Die regelbasierten Ansätze findet man 

häufig in Produktionssystemen. Sie 

sind stärker darauf ausgerichtet, das 

Wissen zu formalisieren, das zur 

Schlußfolgerung benötigt wird. 
Wissensauellen, die als Wenn-Dann- 

Regeln formuliert sind, gehen entweder 

davon aus, daß bestimmte Vorbedin- 

gungen erfüllt sein müssen, damit die 
entsprechenden Regeln »feuern« kön- 
nen. Oder sie beschreiben, welche 

Ziele erreicht werden sollen und legen 


-verarbeitung 
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fest, welche Teilziele als Vorbedingung 
erreicht sein müssen. 

Diese Art von Regelbasen kann auf 
zwei Arten durchsucht werden: rück- 
wärtsverkettend das heißt vom Ziel zu 
den Prämissen hin, oder vorwärtsver- 
kettend. 

Die datengesteuerte, vorwärtsverket- 
tende Schlußweise wird durch die 
Sprachfamilie OPSrealisiert. Diese wird 
speziell zur Erstellung von Experten- 
systemen seit etwa zehn Jahren an der 
Carnegie-Mellon-Universität in Zusam- 
menarbeit mit DEC entwickelt. 
Frames (Rahmen) 
sind sehr gut geeignet, um hierarchi- 
sche Strukturen darzustellen. Man 


Begriffe der Sprache Prolog 

Fakten sind Tatsachen über 
Objekte und ihre Beziehungen 
zueinander. Namen von Gegenstän- 
den, Personen und so weiter (Petra, 
Prolog) werden in Fakten kleinge- 
schrieben. Die Beziehung oder die 
Aussage über Objekte steht vor der 
Klammer (sind, kennt). Geben wir 
zum Beispiel folgende Fakten über 
Prolog und Computerfans ein: 
pr_sprache(prolog). 

‚Prolog ist eine Programmierspra- 
che.« 

kennt(petra,logo). 

»Potra kennt Logo.« 

kennt(petra arnd). 
sind(arnd,petra,c_fans). 

»Arnd und Petra sind Computer- 
fans.« 

Fragen sehen genauso aus wie 
Fakten, vor die »?-« gesetzt wurde. 
Wenn man eine Frage an Prolog 
stellt, durchsucht das System die 
Datenbank, die alle bekannten Fak- 
ten enthält. Prolog sucht ein Fakt, 
das der Frage entspricht. Existiert 
ein solches Fakt, dann antwortet 
Prolog auf die Frage des Benutzers 
mit »y8S«, sonst mit »no«. Beispiel: 
?-kennt(dr_bobo,indiana_joe). 
no 
»Kennt Dr. Bobo (den Hacker) In- 
diana Joe?« Prolog weiß nur das, was 
wir ihm oben eingegeben haben und 
sagt: Nein. 

?-kennt(petra,logo). 
yes 
»Kennt Petra Logo?« Prolog sagt: Ja. 

Variablen (Platzhalter) verwendet 
man in Fragen, um (alles) zu erfah- 
ren, was das Prologsystem über ein 
bestimmtes Objekt weiß. Variablen 
beginnen mit einem Großbuchsta- 
ben. Eine solche Variable heißt zum 
Beispiel »X« oder »Diesisteinbellebi- 
gervariablenname«. Nehmen wir die 
Variable X (X bezeichnet das, was 
Petra kennt). Nun fragen wir das Pro- 
logsystem, was Petra alles kennt : 











kann sich Frames wie Setzkästen vor- 
stellen. In den einzelnen Fächern ste- 
hen die Werte von Eigenschaften, Hin- 
weise auf Beziehungen und Hinweise 
auf übergeordnete und nachgeordnete 
Strukturen. Aber in den Fächern kön- 
nen außer Fakten auch Handlungsan- 
weisungen stehen, die beispielsweise 
angeben, wie bisher noch unbekannte 
Eigenschaftswerte zu beschaffen sind. 

In der Mathematik war die Logik 
schon bei den alten Griechen eine 
Methode zur Darstellung von Wissen. In 
der Philosophie wurde sie eingesetzt, 
um Sätze zu formulieren und aus 
bestimmten Prämissen streng logische 
Schlußfolgerungen zu ziehen. Wohl 


?-kennt(petra,X). 

X=1logo 

ist die Antwort. Gibt man nach dieser 
ersten Antwort ein »;« (das logische 
»oder«) ein, so Sucht das Prologsy- 
stem nach weiteren Objekten. Die 
nächste Antwort ist dann 

X=arnd 

Geben wir einfach »return« ein, 
wird die Suche beendet. 

Wenn Prolog aine Frage gestellt 
wird, die eine Variable enthält, 
durchsucht das Prologsystem alle 
seine Fakten nach einem Objekt, 
das die Variable ersetzen kann. 

Konjugationen sind Verknüpfun- 
gen durch ein logisches »unde«e. Sie 
werden verwendet, wenn Fragen 
über kompliziertere Beziehungen 
zwischen Objekten gestellt werden. 
Beispiel: 

»Wer kennt Logo und Prolog?« 
In Prolog heißt das: 
?-kennt(X,1logo) ,‚kennt(X,prolog). 

Die Variable X steht für die Person, 
die wir suchen. Das »,« (=und) ver- 
knüpft die beiden Teile (Wer kennt 
Prolog? Wer kennt Logo?) der Frage. 
In unserer kleinen Beispieldaten- 
bank finden wir leider niemanden, 
der beide Sprachen kennt. Aber auf 
die Frage 
»Wer kennt Arnd und (die Program- 
miersprache) Logo?«: 
?-kennt(X,arnd) ‚kennt(X,logo). 
findet Prolog in unserem kleinen Bei- 
spiel die Antwort: 

X=petra 

Regeln braucht man, wenn eine 
Tatsache für mehr als einen Fall gel- 
ten soll. Beispiel: 

Wir wissen, daß Dr. Bobo das C 64- 
Spiel Summer Games kennt. Aber er 
kennt auch alle anderen Computer- 
spiele, die auf dem C 64 laufen. Das 
heißt in Prolog: 

»Wenn ein Spiel auf dem C 64 läuft, 
dann kennt Dr. Bobo es ganz Sicher.« 
läuft(Spiel,c-64) :-kennt 
(dr_bobo,Spiel). 


jedem ist aus der Schule der folgende 
Schluß aus zwei Prämissen bekannt: 
Prämisse 1: Sokrates ist ein Mensch. 
Prämisse 2: Menschen sind sterblich. 
Schluß: Sokrates ist sterblich. 
Die Wissensdarstellung durch Logik 
war eine der ersten Repräsentations- 
formen in der Kl. In diesem Formalismus 
werden Aussagen so dargestellt, daß 
ihre Gültigkeit formal überprüft werden 
kann. Behauptungen (»Sokrates ist ein 
Mensch«) und die Beziehungen zwi- 
schen ihnen werden beschrieben. Mit 
den Methoden der Logik kann man aus 
den bereits bekannten Tatsachen 
(»Sokrates ist ein Mensch« UND »Men- 
schen sind sterblich«) schlußfolgern, 


»Daraus folgte wird in Prolog durch 
».-« bezeichnet. 

Eine kompliziertere Regel ist die 
folgende: »(x’*y+x"y’) ist eine 
Ableitung vonx*y, wennx’ Ableitung 
von x ist und y’ Ableitung von y.« Die 
entsprechende Prolog-Regel ist 
ableitung(X *Y,X1"Y+Y1*X):- 

ableitung(X,X1),ableitung(Y,Y1). 

Aus solchen Regeln und den oben 
beschriebenen Fakten besteht ein 
Prolog-Programm. 


Backtracking ist eine Besonder- 
heit von Prolog. Backtracking 
bedeutet »Zurückgehen und einen 
neuen Lösungsweg suchene«. Da ein 
Prologprogramm aus vielen Regeln 
besteht, kann es mehrere Möglich- 
keiten geben, für eine Variable einen 
Wert zu finden. So landet das Pro- 
logsystem auf der Suche nach einer 
Lösung möglicherweise in einer 
Sackgasse. Prolog erkennt solche 
Sackgassen und kann sie wieder 
verlassen, indem der bisher gefun- 
dene Lösungsweg bis zur letzten 
Alternative rückgängig gemacht 
wird. Nun wird eine andere Möglich- 
keit ausprobiert. Ist auch diese nicht 
erfolgreich, dann geht es weiter zur 
nächsten Alternative, bis die Lösung 
gefunden Ist. 


Ein- und Ausgabe sind nützlich, 
wenn das Programm eine »Unterhal- 
tunge mit dem Benutzer selbst 
beginnen soll. Haben wir zum Bei- 
spiel eine Datenbank programmiert, 
so muß der Computer den Benutzer 
bei jedem Schritt fragen, was als 
nächstes zu tun ist. 

Der Befehl put druckt das Zei- 
chen, dessen ASCIlI-Code in Klam- 
mern angegeben wurde. Aus »104« 
wird ein »he«, »101« wird zu »e«, »108« 
zu »ie... 
?-put(104),put(101),put(108), 
put(108),put(111). 
hello 
ist das Ergebnis des Prologsystems. 





ob neue Behauptungen ebenfalls wahr 
sind (»Sokrates ist sterblich.e«) 

Die semantischen Netze kann man 
als eine Erweiterung dieser Listen-Dar- 
stellung auffassen. Durch solche Netze 
lassen sich den einzelnen Objekten 
Eigenschaften zuordnen, zum Beispiel 
»Ein Auto hat eine Marke, zum Beispiel 
VW - es besitzt also die Eigenschaft 
Marke«. 

Diese Eigenschaft kann wiederum 
Werte haben, nämlich bestimmte Typen 
(VW 1200, VW 1300, usw.). Zusätzlich 
kann man aber auch die Eigenschaften 
näher beschreiben: 

»Die Farbe des Apfels ist im Frühsom- 
mer grün, im Herbst aber rot.« 

Darüber hinaus kann man in semanti- 
schen Netzen auch Beziehungen zwi- 
schen Objekten, Begriffen, Handlun- 
gen und anderem ausdrücken: 

»Ein Auto besteht aus Fahrgestell, 
Karosserie, Sitzen, Motor... Der Motor 
wiederum besteht aus Kolben, .. .« 

Dieses letzte Beispiel zeigt noch 
etwas: Im menschlichen Bewußtsein 
sind Autos, Sitze und andere Objekte, 
Begriffe und Konzepte keine einzelnen 
Einheiten, die einfach gesammelt wer- 
den. Menschen strukturieren ihr Wis- 
sen. Diese Einheiten sind kategorisiert 
oder in übergeordneten Einheiten 
zusammengefaßt. Ein Auto hat Sitze 
und der Motor ist zusammengesetzt 
aus Kolben und anderem. 

Das Verhältnis von einem zusammen- 
gesetzten Gegenstand und seinen Ein- 
zelteilen wird durch eine »fTeil-von«- 
Beziehung ausgedrückt: 

Eine Ist-Beziehung stellt die Zugehö- 
rigkeit zu einer Art dar: 

»ich fahre einen Käfer. Ein Käfer ist ein 
Auto. Ein Auto ist ein Fahrzeug.« 

Solche Zusammengehörigkeiten las- 
sen sich nicht nur einfach ausdrücken. 
Sie können auch ausgewertet werden, 
um Eigenschaften und Beziehungen 
zwischen einer Klasse auf ihre Spezies 
zu vererben. 

»Obst reift. Beim Reifen ändert sich oft 
die Farbe. Apfel ist Obst. 
Alsoreift ein Apfelundändert dabeinor- 
malerweise seine Farbe.« 

Dargestellt werden diese Zusammen- 
hänge, wie der Name Netz schon sagt, 
als eine Folge von Knoten und Kanten. 
Durch Knoten werden üblicherweise 
die Objekte, Konzepte oder Situationen 
in einem Wissensbereich repräsentiert. 
Hier wären das: Auto, Kolben, Karosse- 
rie. Die Kanten stellen die Beziehungen 
zwischen ihnen dar. (Ein Auto hat einen 
Motor.) 

Systeme aus semantischen Netzen 
wurden zunächst entwickelt, um psy- 
chologische Modelle darzustellen. Das 
allgemeine Ziel war es, eine Methode 
zur Verfügung zu haben, die zur Dar- 
stellung der verschiedenen Wissens- 





typen in Programmsystemen geeignet 
ist. Dann entstanden spezielle semanti- 
sche Netze, die besonders zur Sprach- 
erkennung und Spracherzeugung ein- 
gesetzt werden und sich überall dort, 
wo mit natürlicher Sprach-Ein-/Ausgabe 
gearbeitet wird, sehr bewährt haben. 
Sie sind eine sehr weit verbreitete 
Repräsentationsart von Wissen im Be- 
reich der Kl-Programmierung. 
Metaregeln 

Nachdem das Wissen dargestellt 
wurde, wird es nun angewendet. Mit 
bestimmten Methoden kann man aus 
schon Bekanntem auf Neues »schlie- 
Ben«. Die Methoden, die dabei ange- 
wandt werden, die Schlußfolgerungs- 
methoden, sind ebenfalls eine Art von 
Wissen auf einer höheren Ebene, sozu- 
sagen Metaregeln. Das Wissen dar- 
über, wie man Wissen anwendet (Meta- 
wissen), wirdinmodernen KlI-Systemen 
genauso in Netzen oder Produktionen 
dargestellt wie das Problemwissen 
selbst. Das ist eine Schwierigkeit beim 
Aufbau der Wissensbasis: Nicht nur die 
Fakten und Gesetzmäßigkeiten des 
Problembereichs müssen gesammelt, 
formalisiertt und dargestellt werden. 
Auch die Informationen darüber, wie in 
dem Bereich Probleme gelöst werden - 
das Wissen über die Methodik des Pro- 
blemlösens - muß erfaßt werden. Und 
dies macht manchmal den schwierig- 
sten Teil der Arbeit aus. Nehmen wir das 
Beispiel Automatisches Beweisen - 
eins der ersten Probleme der Kl. Das 
Wissen sind die Gesetze der Logik. 
Diese zusammenzufassen, ist kein Pro- 
blem. Man muß nur ein entsprechendes 
Mathematiklehrbuch aufschlagen und 
hat sie schon gesammelt vorliegen. 
Aber wie beweist man nun einen mathe- 
matischen Satz aufgrund dieser logi- 
schen Gesetze? Die Strategien, nach 
denen man den Beweis füreinen mathe- 
matischen Satz suchen soll - also das 
Metawissen für dieses Problem - sind 
noch zu wenig bekannt. 

Die Kl-Forschung steht also noch 
ziemlich am Anfang, solange so grund- 
legende Probleme nicht gelöst sind. 
Aber die Entwicklung schreitet schnell 
voran, und wer weiß - vielleicht sitze ich 
1991 wirklich vor einem Modell mit 
Namen Com-Pu-Ta, made in Japan... 

(cg) 
Literatur: 
Kl allgemein: 
»Gödel, Escher, Bach«, Hofstadter, Douglas R. 
Vintage Books. New York, 1980 
ıThe Handbook of Artificial Intelligence, Volume 1-4« 
Pitman Books Lim., London, 1981 
»ıMethoden und Anwendungen der Künsatlichen Intelligenz«, 
Radig. RB; Dreschler-Fischer, L. Schachter-Radig, M.-J., Mac 
Graw Hill (erscheint Herbst 1986) 
Lisp: 
ıLISP«, Winston, P; Horn. B., Addison Wesley, Reading, Massa- 
chusetts, 1981 
»Principles of Artificial Intelligence«, Nilsson, Nils J. 
Palo Alto, 1982 
Prolog: 


»Programming in Prolog«, Clocksin und Mellish, Springer Verlag. 
Berlin, Heidelberg, New York. 1985. ISBN 3-540-11048-1 
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ie gesagt, inzwischen sind 
Ihnen Sprachen wie Forth 
oder C kein Buch mit sieben 
Siegeln mehr. Vielleicht haben Sie ja 
auch aufgrund unseres Sonderheftes 
die Sprache Ihres Herzens - sprich die- 
jenige, die Ihren Verwendungszwecken 
am besten entgegenkommt - bereits 
gefunden. Wir haben hier nun eine 
Marktübersicht zusammengestellt, die 
Ihnen bei der Auswahl Ihrer Program- 
miersprache - ob Sie nun einen C 64, 
Atari, Apple, QL oder Schneider besit- 
zen - helfen soll. Jeder gängige Com- 
putertyp und jede geläufige Program- 
miersprache wurde berücksichtigt. 
Außerdem finden Sie in der Aufstellung 
die Angabe der Hardware, ohne die Sie 
mit der jeweiligen Sprache nicht arbei- 


Apple Il 


Art der Sprache 


Nach der Lektüre dieses Sonder- 
heftes kennen Sie mehr als nur 
Basic. Unsere Übersicht will 
Ihnen die Auswahl der Sprache 
Ihres Geschmacks erleichtern. 


ten können. Für den Geldbeutel fällt 
dieses Kriterium sicherlich ins Gewicht. 
Wer seinen Computer noch nicht zu 
hundert Prozent kennt, dem möchten 
wir raten, einen Blick auf die letzte 
Tabellenspalte zu werfen, die Angaben 
über die mitgelieferten Handbücher 
macht. Denn es ist von großem Vorteil, 
wenn ein Handbuch sowohl umfang- 
reich als auch in deutscher Sprache 
verfaßt ist, undnicht nur magere 20 Sei- 
ten englisches Fachvokabular bietet. 


Hardware-Voraussetizungen 


Bezugs- 

















Ada, Basic, Cobol — ein ABC 
für den Programmierer 


Obwohl unsere Marktübersicht einen 
recht opulenten Eindruck macht, 
erhebt sie keinerlei Anspruch auf Voll- 
ständigkeit. Das Angebot ist einfach zu 
groß, um voll erfaßt zu werden. 

Die beiden Tabellen mit CP/M-Soft- 
ware beinhalten nur unsere (aus dem 
Hause Markt & Technik) unter CP/M lau- 
fenden Programmiersprachen. Die Ab- 
kürzungen in der Spalte »Datenträger« 
bedeuten D = Diskette, K = Kassette, 
M = Modul und MD = Microdrive. Inder 
Spalte »Handbuch« weist (d) daraufhin, 
daß das Handbuch in Deutsch, (e), daß 
es in Englisch geschrieben ist. Alle 
Daten beruhen auf Angaben der Her- 
steller beziehungsweise Anbieter. 


(wg/hi) 


Hersteller 


Handbuch-Umlang 





Programmname Datenträger! 

Preis (Mark) 
Aztec C D: 1630,- Compiler 
Aztec C 65 D: 895,- Compiler 


ZBO-Karte, PAN 
2 Disketten-Laufwerke 


Disketten-Laufwerk BRA 


Manx Software zirka 300 Seiten (e) 


Manx Software 150 Seiten (e) 


Basic implementiert Interpreter keine APP Apple zirka 60 Seiten (d) 


Basic-80-Compiler 


D: 1585,- 


Compiler 


Disketten-Laufwerk, 


Microsoft zirka 200 Seiten (e) 





Forth 
Fortran-80 


D: 79,- 


Compiler 
Compiler 


Z8BO-Karte, CP/M 
Disketten-Laufwerk 
Disketten-Laufwerk, 


HOF 


Hofacker 
Microsoft 


zirka 400 Seiten (d) 
zirka 500 Seiten (e) 





Logo D: 387 ,- 


Interpreter 


ZBO-Karte, CP/M 


IWT Logo D: 395,- Interpreter Disketten-Laufwerk, 64 KByte PAN IWT 150 Seiten (d) 
Kyan Pascal D: 198,- Compiler Disketten-Laufwerk, 64 KByte PAN Kyan Software 106 Seiten (6) 
LisPAS D: 298,- Interpreter Disketten-Laufwerk, 64 KByte PAN Tommy Software 36 Seiten (d) 


Disketten-Laufwerk, PAN 
80-Zeichen-Karte 


Apple 300 Seiten (e) 


Microsoft Cobol D: 2489,- Compiler ZBO-Karte, CP/M, 2 Laufwerke PAN Microsoft zirka 400 Seiten (e) 
Micro-Dynamo D: 980,- (*) 2 Laufwerke PAN Addison-Wesley zirka 200 Seiten (a) 


Micro-Prolog D: 435,- Interpreter Disketten-Laufwerk BRA 

Mulisp/Mustar D: 769.- Interpreter/ Disketten-Laufwerk, PAN 
Compller Z80-Karte, CP/M 

Mumath/Muaimp D: 959,- Compreter Disketten-Laufwerk PAN 

Nevada Basic D: 139,- Interpreter Disketten-Laufwerk, PAN 
64 KByte, CP/M 

Nevada Cobol D: 139,- Compiler Disketten-Laufwerk, PAN 
ZBO-Karte, CP/M 

Nevada Fortran D: 139,- Compiler Disketten-Laufwerk, PAN 
ZBO-Karte, CP/M 

Nevada Pascal D: 139,- Compiler Disketten-Laufwerk, PAN 
64 KByte, CP/M 

Nevada Pilot D: 139,- Compiler Disketten-Laufwerk, PAN 
Z80-Karte, CP/M 

Pascal D: 955,- Compiler Disketten-Laufwerk APP 

Pascal D: 948.- p-machine Disketten-Laufwerk, 64 KByte PAN 

Prolog Z D: 149 - Compller Disketten-Laufwerk, Z80-Karte HOF 


Turbo Pascal 


Compiler 


Disketten-Laufwerk, 


PAN, HEI 


Logic Programming 240 Seiten (e) plus 
Ass. Prolog-Buch 


Microsoft zirka 200 Seiten (e) 
Microsoft zirka 200 Selten (e) 
Ellis 220 Seiten {e) 

Ellis zirka 150 Seiten (e) 
Ellis 174 Seiten (e) 

Ellis 184 Seiten (e) 

Ellis zirka 150 Seiten (e) 
Apple (d) 

Apple zirka 800 Seiten (e) 
Holacker 100 Seiten (d) 


Borland 300 Seiten (d) 





(*) Simulationssprache 
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Z8O-Karte, CP/M 























Atari BIO0OXL/130XE 


Programmname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezuge- Hersteller Handbuch-Umlang 





Preis (Mark) quelle 
Action! M: 298,- Compller keine co OSS (e; d in Vorbereitung) 


M 
Assembler-Editor M: 105,- Assembler keine COM Atari zirka 80 Selten (e) 
Atmas Il D: 49,- Assembler Disketten-Laufwerk COM PFP zirka 50 Seiten (d) 





Basic XE(*) M: 298,- Interpreter 128 KByte RAM COM OSS zirka 200 Seiten (e) 
(d in Vorbereitung) 

Basic XL M: 298,- Interpreter keine COM OSS zirka 300 Selten (e) 
(d In Vorbereitung) 

Forth D: 79,- Compiler Disketten-Laufwerk HOF Elcomp zirka 400 Seiten (d) 

Kyan Macroassem- D: 298,- Assembler Disketten-Laufwerk Kyan Software zirka 200 Seiten (e) 

bler, zum Kyan (d In Vorbereitung) 

Pascal 

Kyan Pascal Compiler Disketten-Laufwerk, Kyan Software zirka 100 Seiten (e) 

32 KByte RAM (d in Vorbereitung) 
Lern Forth D: 49,- Compiler Disketten-Laufwerk HOF Hofacker/Elcomp 400 Seiten (d) 
Mac 66 M: 298,- Assembler keine COM OSS (6; d in Vorbereitung) 


(*) nur Atari 130 XE 


Pregrammname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umfang 





Preis (Mark) quelle 


Assembler D: 198,- Assembler k.A. HIL Metacomco k.A. 
Basic D: liegt bei Interpreter keine ATA Digital Research 300 Selten (d) 
A 


Basic D: K.A. Interpreter keine ATA Metacomco k.A. 

Cc D: 969,- (*) Compiler keine ATA Digital Research zirka 500 Selten 
(dund e) 

C D: ca. 60 Pfund Compller keine ATA GST 160 Seiten (e) 

C-Compller D: 380,- Compiler k.A. HIL Metacomco K.A. 

(Lattice-C) 

Fortran 77- D: 560 - Compiler K.A. HIL Prospero K.A. 

Compller 





GST-Assembler Assembler 180 Seiten (e) 


Logo D: liegt bel Interpreter keine ATA Digital Research 60 Selten (d) 


Pascal Compller D: 340.- Compller k.A. HIL Metacomco k.A. 
ST Pascal D: 249 - Compiler keine ATA, HIB CCD-Meyteldt 52 Seiten (d) 


Commodore 64 





Programmname Datenträger! Art der Sprache Hardware-Voraussetizungen Bezugs- Hersteller Handbuch-Umfang 
Preis (Mark) quelle 

ADA-Trainingskurs D: 198.- Compller Disketten-Laufwerk DAB Data Becker 115 Selten (d) 

Assembler/ D: 73,90 Assembler Disketten-Laufwerk PRO Profisoft 15 Seiten (d) 

Disassembier K: 73,90 Datasette 

Assembler’ Assembler D\setten-Laufwerk PRI Profisoft 15 Selten (d) 

Disassembler K: 69,- Datasette 

C-Compller D: 298.- Compiler Disketten-Laufwerk DAB Data Becker 273 Selten (d) 


Forth D: 69,- Compiler Disketten-Laufwerk HOF Elcomp zirka 400 Selten (d) 








Forth K: 62,90 Complier Datasette PRO Romik 64 Selten (e) 
Machine Lightning D: 159,90, Assembler Disketten-Laufwerk, Datasette THO 160 Selten (e) 
K: 119,90 

Oxford Pascal D: 197,90 Compiler Disketten-Laufwerk DRE Limbic Systems 100 Seiten (e) 
Oxford Pascal D: 198,- Compiler Disketten-Laufwerk PRO Limbic Systems 86 Seiten (e) 
Oxtord Pascal D: 199.-, K: 79,90 _ Compller Disketten-Laufwerk, Datasette PRI, RUS Limbic Systems (d) 

Power Assembler D: 99,- Assembler Disketten-Laufwerk PRI K.A. (d) 

Profimat D: 99,- Assembler Disketten-Laufwerk DAB Data Becker 40 Seiten (d) 
Profi Pascal D: 198- Compiler Disketten-Laufwerk DAB Data Becker 325 Selten (d) 
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Programmname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umlang 





Preis (Mark) quelle 
Prolog 84 D: 289,- Interpreter Disketten-Laufwerk BRA Brainware 70 Seiten (d) 
Strukto 64 D: 99 - Interpreter Disketten-Laufwerk DAB Data Becker 78 Seiten (d) 
White Lightning K: 84,90 Compreter Datasette PRO Oasis Software 191 Seiten (e) 
(Forth-Compller) 
White Lightning K: 76.- Compreter Datasette PRI Oasis Software 191 Seiten (e) 
(Forth-Compller) 





White Lightning D: 119,90, K: 79,90 Compreter Disketten-Laufwerk, Datasette THO Oasis Software 130 Selten (e) 


Programmname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umlang 


Preis (Mark) quelle 


Profi-C 128 D: 198,- Compiler Disketten-Laulwerk DAB Data Becker zirka 300 Seiten (d) 
Small C D: 148,- - Compiler Disketten-Laufwerk/CP/M MAR Markt & Technik 200 Selten (d) 








Topass D: 148,- Assembler Disketten-Laufwerk MAR Markt & Technik 100 Seiten (d) 

MSX-Computer 

Programmname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umfang 
Preis (Mark) quelle 

Basic integriert Interpreter keine JOL Microsoft/ASC Il zirka 200 Selten (d) 

Basic integriert Interpreter keine PHI, SAY Microsoft 170 Seiten (d) 


Basic Integriert Interpreter keine Microsoft/Sony zirka 300 Seiten (d) 


SON 
Forth K: 119,- Compller keine PRI k.A. (e) 
Forth kk. A.: 139,- Compiler keine RUS K.A. (e) 


Logo M: K.A. Interpreter K.A. PHI LCFI, Montreal 150 Seiten (d) 
Logo Turtle Interpreter PRI, RUS K.A. (e) 


Graphics 
MSX-Disk-Basic Interpreter ‚A. PHI Microsoft 50 Seiten (d) 


MSX-Forth K: k.A. Compiler k.A. 120 Selten (d) 





A PHI RVS 
MSX-Macro K: kA. k.A. K.A. PHI RVS 100 Seiten (d) 
Turbo-Pascal D: K.A Compiler K.A. PHI, HEI Borland 150 Seiten (d) 


Zen K: 69,- Assembler keine PRI K.A. (e) 


Programmname Datenträger/ Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umflang 





Preis (Mark) quelle 
Assembler k.A.: 120,- Assembler k.A. HIL Metacomco k.A. 
Assembler k.A.: 120,- Assembler k.A HIL Computer One k.A 


Assembler Deve- MD: 159.- Assembler keine PRI k.A. (e) 
lopment Kit 


Cc k.A.: 318,- Compiler KA. HIL Metacomco K.A. 

Interpreter k.A. Metacomco K.A. 
Pascal k.A.: 175,- Compller k.A. HIL Computer One K.A. 
Pascal k.A.: 298 .- Compiler k.A. 





Metacomco 


A HIL k.A. 

Supercharge Basic kK.A.: 218,- Compiler k.A. HIL Digital Precision k.A. 
UCSD Fortran 77 k.A.: 560,- Compiler k.A HIL TDI Software K.A. 
k.A. k.A 


UCSD Pascal k.A.: 560.- Compiler HIL TDI Software 
o 
Schneider CPC 464 
Programmname Datenträger] Art der Sprache Hardware-Vorausseizungen Bezugs- Harsialler Handbuch-Umflang 
Preis (Mark) quelle 


Basic-Compiler D: 79,-, K: 69,- Compiler Disketten-Laufwerk, keine PRI, RUS Data Media (d) 














C D: 189.- Compiler Disketten-Laufwerk, ADL Software Toolworks 48 Seiten (e) 
ggf. Vortex-Erweit. 
Cobol D: 129.- Compiler Disketten-Laufwerk ADL Ellis 185 Seiten (e) 
Cogo K: 59,90 Compreter keine RUS kK.A. (e) 
DEVPAC D: 145,-, K: 129,- Assembler Disketten-Laufwerk, keine Schneider 60 Seiten (d) 
Dr. Logo D: auf System- Interpreter Disketten-Laufwerk CPC Schneider zirka 25 Seiten (d) 
diskette 
Fig Forth K: 33,90 Compiler keine PRI KA. (e) 
Forth K: 69.- Compiler keine PRI, RUS K.A. (e) 
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Programmname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umfang 











Preis (Mark) quelle 

Forth K: 78,90 Compiler keine THO Kuma 120 Seiten (e) 

Forth D: 198,- Compiler Disketten-Laufwerk SDA Abersoft/Amstrad 60 Seiten (e) 

Fortran Compiler Disketten-Laufwerk, 214 Selten (e) 
gg!. Vortex-Erweit. 

Fortran D: 189,- Compiler Disketten-Laufwerk SDA Ellis 214 Seiten (e) 

Interpreter Disketten-Laufwerk, A. 36 Seiten (e) 

gg. Vortex-Erweit. 

Modula 2 D: 499,- Compiler 1 MByte-Laufwerk, ADL Hochstrasser (e) 
Vortex-Erweiterung Computing 





Compiler Disketten-Laufwerk, 
ogl. Vortex-Erweit. 


D: 215,-, K: 199,- Compiler Disketten-Lauflwerk, keine 


PC Hisoft 96 Seiten (d) 


C 
Pascal D: 159,- Compiler Disketten-Laufwerk ADL Hisoft 80 Seiten (e) 
Pascal 80 D: 159,90 Compller Disketten-Laufwerk PRO Hisoft 90 Seiten (e) 
MAR 


Small C D: 148.- Compiler Disketten-Laufwerk A Markt & Technik 200 Selten (d) 
64 KByte-Erweiterung 
Superpack 80 D: 141,90, Assembler Disketten-Laufwerk, keine PRO Profisoft 19 Seiten (d) 
K: 128,90 
The Code Machine K: 79,90 Assembler keine THO Picturesque 68 Seiten (e) 
Turbo-Pascal D: 226,- Compiler Disketten-Laufwerk MAR, HEI Borland (d) 





Turtie Graphic D: 49.-, K: 49,- Interpreter Disketten-Laufwerk, keine GEPO Soft 15 Seiten (d) 
zen K: 79,- Assembler keine PRI k.A. (e) 


Schneider CPC 664 


Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- 
Preis (Mark) quelle 












Hersteller Handbuch-Umfang 


Programmname 





Basic-Compller D: 79,90 Compiler keine RUS K.A. (d) 

Cc D: 159,90 Compiler keine PRO Hisoft (e) 

C D: 169,- Compller keine ADL Hisoft 120 Selten (e) 
C D: 189,- Compiler g9f. Vortex-Erweit. ADL Software Toolworks 48 Seiten (e) 
CBasic D: 199,50 Compller keine SDA Digital Research 350 Selten (e) 
Cobol D: 129,- Compller keine ADL Ellis 185 Seiten (e) 
Cobol D: 189,- Compiler keine SDA Ellis 185 Seiten (e) 
DEVPAC D: 145.-, K: 129,- Assembler keine CPC Schneider 60 Selten (d) 
Dr. Logo D: liegt bei Interpreter keine CPC Schneider zirka 25 Selten (d) 
Fortran D: 129,- Compiler ggf. Vortex-Erweit. ADL Ellis 214 Seiten (e) 
Fortran D: 189,- Compiler keine SDA Ellis 214 Selten (e) 





Interpreter ggf. Vortex-Erweit. ‚A. 36 Selten (e) 

Modula 2 D: 499,- Compiler 1 MByte-Laufwerk, ADL Hochstrasser (e) 
Vortex-Erweiterung Computing 
Pascal D: 99,- Compiler gof. Vortex-Erweit. ADL Ellis (e) 
Pascal D: 215,-, K: 199,- Compiler keine CPC Hisoft 96 Selten (d) 
Pascal D: 159,- Compiler keine ADL Hisoft 80 Seiten (e) 
Pascal 80 D: 159,90 Compller keine PRO Hisoft 90 Selten (e) 
Superpack 80 D: 141,90 Assembler keine PRO Profisoft 19 Selten (d) 
Turtle Graphic D: 49,- Interpreter keine GEP GEPO Soft 15 Seiten (d) 
Schneider CPC 6128 
Programmname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umflang 
Preis (Mark) quelle 
Basic integriert Interpreter keine CPC Schneider zirka 400 Seiten (d) 
Basic-Compiler D: 79,90 Compller keine RUS KA. (d) 
C D: 159,90 Compller keine PRO Hisoft (6) 
C D: 169,- Compiler keine ADL Hisoft 120 Seiten (e) 
C D: 189,- Compller ggf. Vortex-Erweit. ADL Software Toolworks 48 Seiten (e) 
C-Compller D: 199,- Compiler Disketten-Laulwerk GEP GEPO Soft 200 Seiten (d) 
mit 128, RAM 64 KB. 

CBasic D: 199,50 Compiler keine SDA Digital Research 350 Selten (e) 
Cobol D: 129,- Compiler keine ADL Ellis 185 Selten (e) 
Cobol D: 189.- Compiler keine SDA Ellis 165 Seiten (e) 
CP/M Pascal- D: 158,90 Compiler keine DRE Hisoft zirka 100 Seiten (e) 
Compiler 
CP/M-C-Compller D: 158,90 Compller keine DRE Hisoft 100 Seiten (e) 
Dr. Logo D: liegt bei Interpreter keine CPC Schneider zirka 25 Selten (d) 
DEVPAC D: 145,-, K: 129,- Assembier keine CPC Schneider 80 Selten (d) 





„alla A  - SONDERHEFT 5186 





























Forth D: 189,- Compiler keine SDA Abersoft/Amstrad 60 Seiten (e) 


Fortran D: 129 - Compiler ggf. Vortex-Erweit. ADL Ellis 214 Seiten (e) 
Fortran D: 189,- Compiler keine SDA Ellis 214 Seiten (e) 
Liep D: 189.- Interpreter ggf. Vortex-Erwelit. ADL - 36 Seiten (e) 
Oxford Pascal D: 149,- Compiler keine RUS Oxford Computer (d) 
Systems 

Pascal D: 215,-, K: 199 - Compller keine CPC Hisoft 96 Seiten (d) 
Pascal D: 159,- Compllier keine ADL Hisoft 80 Seiten (e) 
Pascal 80 D: 159,90 Compller keine PRO Hisoft 90 Seiten (e) 
Pascal MT+ D: 199,50 Compller keine SDA Digital Research 270 Selten (e) 
Small C D: 148,.- Compiler keine MAR Markt & Technik 200 Seiten (d) 
Superpack BO D: 141,90 Assembler keine PRO Profisoft 19 Seiten (d) 
Turbo Pascal D: 226 - Compiler keine MAR, HEI Borland (d) 

Turtle Graphic D: 49,- Interpreter keine GEP GEPO Soft 15 Seiten (d) 





Programmname Datenträger! Art der Sprache Hardware-Vorausseizungen Bezugse-- Hersteller Handbuch-Umfang 
Preis (Mark) quelle 

CBasic D: 199,50 Compiler keine SDA Digital Research 350 Seiten (e) 

Cobol D: 189,- Compiler keine SDA Ellis 165 Selten (e) 

Mallard-Basic D: liegt bei Interpreter keine CPC Schneider zirka 400 Seiten (d) 

Turbo Pascal D: 226.- Compiler keine MAR, HEI Borland (d) 

Programmname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umfang 





Preis (Mark) quelle 
Aspect K: 27,90 Assembler keine THO Bug-Byte 9 Seiten (e) 
Blast K: 98,90 Compiler K.A. THO Oxford Computer 31 Seiten (e) 
Systems 


K: 98,- bis 100.- Compiler 48 KByte 78 Seiten (e) 





Editor/Assembler K: 32,- bis 34.- Assembler PRO, PRI Profisoft 34 Seiten (d) 


Fith K: 39,90 Interpreter keine PR! K.A. (e) 





M-Coder K: 33.- Assembler KA. PRI K.A. (e) 

Pascal 4T K: 79.- Compiler 48 KByte ACC Hisoft 98 Seiten (d) 
Pascal K: 74,90 Compiler 48 KByte DRE Hisoft zirka 80 Seiten (e) 
Pascal K: 99.- Compller 48 KByte PRI, RUS Hisott zirka 60 Seiten (e) 


Pascal K: 99,90 Compller k.A. THO Hisoft 79 Seiten (e) 
SPDE K: 23,90 Disassembler K.A. THO Campbell Systems 1 Seite (e) 
k.A 


Tne Colt K: 49,90 Compller THO Hisoft 33 Seiten (e) 
White Lightning K: 59,90 bis 83,90 Compreter 48 KByte PRO, Oasis Software 132 Seiten (e) 
(Forth-Compiler) THO 

Bezugsquellen HIL Philgerma, Ungererstr. 42, 8000 München 40 

ACC Computer Accessoires, Jägerweg 10, 8012 Ottobrunn HOF Hofacker Verlag, Tegernseer Str. 18, 8150 Holzkirchen 
ADL Adler-Computertechnik, Elisabethstr. 5a, 5800 Hagen 1 JOL Jöllenbeck, Im Dorf 5, 2730 Weertzen 

APP Apple, Ingolstädter Str. 20, 8000 München 45 MAR Markt & Technik, Hans-Pinsel-Str. 2, 8013 Haar 

ATA Atari Corporation, Frankfurter Str. 89 - 91, 6096 Raunheim PAN Pandasoft, Uhlandstr. 195, 1000 Berlin 12 

BRA Brainware, Kirchgasse 24, 6200 Wiesbaden PHI Philips, Mönckebergstr. 7, 2000 Hamburg 1 

CPC Schneider Computer Division, Silvastr. 1, 8939 Türkheim PRI Printadress, Postfach 15 - 73, 3548 Arolsen 

COM _Compy-Shop, Gneisenaustr. 29, 4330 Mülheim/Ruhr PRO Profisoft, Sutthauser Str. 50 - 52, 4500 Osnabrück 

DAB Data Becker, Merowingerstr. 30, 4000 Düsseldorf RUS Rushware, An der Gümpgesbrücke 24, 4044 Kaarst 2 
DRE HG. Dreeser, Im Rosenhag 6, 5300 Bonn 1 SAY Sanyo Büroelectronic, Truderinger Str. 13, 8000 München BO 
GEP GEPO Soft, Gertrudenstr. 31, 4220 Dinslaken SDA Schneider Data, Rindermarkt 8, 8050 Freising 

HEI Heimsoeth Software, Frankfurterstr. 13, 8000 München 5 SON Sony Deutschland, Hugo-Eckener-Str. 20, 5000 Köln 30 
HIB HIB-Computerladen, Postfach 21 01 25, 8500 Nürnberg 21 THO Thomas Wagner, Postfach 112243, 8900 Augsburg 
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Turbo-Pascal 3.0 
C-Basic-Compiler 


Small-C-Entwicklungssystem 


Pascal/MT 
Turbo-Lader-Grundpaket 
Turbo-Lader-Business 
Turbo-Lader-Science 


Turbo-Pascal-3.0 grafikunterstützt 


Turbo-Grafik 
Turbo-Toolbox 
Hisoft-C-Compiler 


Programmiersprachen unter CPIM-80 
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1815,- 





Diskette 
Diskette 
Diskette 
Diskette 
Diskette 
Diskette 
Diskette 
Diskette 
Diskette 
Diskette 
Diskette 


Diskette 


Compiler 
Compiler 
Compiler 
Compiler 


Compiler 





































ADA-Compiler 1162,80 Diskette Compiler 80 Markt &Technik 
C Basic 1881,- Diskette P-Code Interpreter Markt &Technik 
C Basic 564,30 Diskette Compiler Markt &Technik 
MS Basic 1615,38 Diskette Interpreter Markt &Technik 
MS Basic 1429,56 Diskette Compiler Markt & Technik 
BDS-C 564,30 Diskette Compiler Markt & Technik 
Supersoft C-80 1356,60 Diskette Compiler Markt & Technik 
Cobol Level Il 3846,36 Diskette Compiler Markt & Technik 
MS Cobol 2859,12 Diskette Compiler Markt & Technik 
RM Cobol 2793,- Diskette Compiler Markt & Technik 
Forth 8080 855,- Diskette Interpreter Markt & Technik 
Forth Z80 855,- Diskette Interpreter Markt & Technik 
Fortran 80SS 1647,30 Diskette Compiler Markt & Technik 
MS Fortran 80 2045,16 Diskette Compiler Markt & Technik 
MS Multisp 818,52 Diskette - Markt & Technik 















Compiler 


Markt &Technik 
Markt &Technik 
Markt & Technik 
Markt &Technik 
Markt & Technik 
Markt & Technik 
Markt & Technik 
Markt &Technik 
Markt & Technik 
Markt &Technik 
Markt 8& Technik 


Markt & Technik 


Schnelligkeit ist Trumpf! 
PT TEN TB IT NT) WET NT PT RT] LT 75 


mit dem 64’er-Sonderheft: 


»Assembler«: 





Ein grundlegender, umfassender Assembler-Kurs und ein zweiter über 
offekat eklives mmieren mit Assembler helfen auf 100 Seiten allen 
Anfängern und Fortgeschrittenen nach Basic nun auch in Maschinensprache 
Fuß zu fassen. 

Alle, die keinen Assembler- oder Maschinensprache-Monitor besitzen, 
finden te »Werkzeugsätze« für Hypra-Ass, SMON und einen 
Hypra-Ass-kompatiblen Reassembler. Mit diesem Programmpaket lösen 
Sie jede noch so knifflige in Maschinensprache optimal. 

Viele Tips& Tricks zeigen, wie man mit Assembler arbeitet. 

Zu allen Listings sind die dokumentierten Quellcodes angegeben. 

Und als Top-Punkt zum Schluß eine Zusammenfassung der 

wichtigsten Tabellen: Befehlssatz des 6510, ROM-Routinen in eigenen 
Be ‚ die Codes des C64, Befehlsliste zu Hypra-Ass, Reass 


Schon lange nach diesen 


Informationen gesucht? 


Dunn bestellen Sie das große 64’er-Sonderheft »Assembler« 
(8/85) mit der im vorliegenden Sonderheft eingehefteten 
Zahlkarte (Happy-Computer-Vertrieb, Leser-Service).. 
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I.Löke/P Luke 


Turbo-Pascal 
1986, 200 Selten 


Daa vorliegende Buch lat eine nach 
didaktischen Geaichtapunkten aufge- 
baute Einführung In sämtliche Veraio- 
nen (einschl 3.0) auf allen verfügbaren 
Betriebaayatemen (CP/M., CP/M-86, 
MS-DOS). Ea bietet nicht nur eine Ein- 
führung in die Sprache, sondern auch In 
das reichhaltige Repertoire an Zuaatz- 
funktionen (auch für Grafik, Farbe, 
Sound und Window-Technik sowie lür 
direkten Speicherzugriff) und Zusatzbi- 
biiotheken (Turbo-Toolbox. Turbo-Lader). 
Basi.-Nr. MT 90160 

ISBN 3-A0080-160-8 DM 49,- 


Jd. Purdum/T. Lsalle/A. Stegemöller 


Die C-Programmbiblothek 
1.Quartal| 1986, 361 Sellen 


Dieses Buch erspart dem C-Program- 
mierer Stunden mühseliger Kleinarbeit 
und hilft, effizientere Programme zu 
schreiben. Der erate Teil zeigt, wie man 
zu universellen Bibliotheksfunktionen 
kommt und gibt Tips, wie C noch wir- 
kungsvoller eingesetzt werden kann. 
Der zweite Teil enthält eine Reihe aus- 
tührlich erklärter C-Funktionen ala wert- 
volle Ergänzung Ihrer Pragrammbiblio- 
thak. Dazu gehören unler anderem ein 
Terminalinstallationaprogramm. meh- 
rere Sortier-Algoriihmen und ein Satz 
ISAM-Funktionen. Um die Anwendung 
der Funktionen zu verdeutlichen, ent- 
hält daa Buch einige Programm- 
beiapiele. 

e Die Programmbibliothek wendet sich 
an Laaer mit Grundkenntnissen von C. 
Die gezeigten Programme und Funktio- 
nen sind so gehalten, daß sale rachner- 
und complierunabhängig eingeselzi 
werden können. 
Besi.-Nr. MT 90133 aM 
ISBN 3-88090-133 DM 69,- 


Markt & Technik-Fachbücher 
erhalten Sie bei Ihrem Buchhändler. 


(ED 


Markt&fTechnik 


Unernenmansberesch Buchwertag 
Hang-Pinsel-Iiraße 2, 8013 Haaı bei Munchan 

















Tragen Sie Ihre auf eine Postkarte ein 


und schicken diese an einen Depothändier in Ihrer Nähe 


oder an Ihren Buchhandier. 


Buchhandlung Herdar, Kurfürstendamm 68 

1000 Barlin 16, Tel. (030) AA36002, 

BTX '821782« 

Compınzra Fachbuahhandlung. Kalthatraßa 18 

1000 Barlın 30, Tal (030] 2 1380 21 

Thalla Buchhaua, Qraßa Blaichen 18 

2000 Hamburg 36. Tal. (0401| 30080 80 

Baysan + Maaach,. Harmannatıaßa 31 

2000 Hamburg 1, Tel. 1040) 300 50 BA 

Elactra-Data, Wilhalm-Haldaiak Sıraßa 1 

2180 Cuuhaven. Tel. (047211 61288 

Buchhandlung Muehlau. Holtenauar Straße 118 

2300 Kiel, Tal. (0431) 86086 

BCL. Norderatraßea 94-98 

2390 Fienaburg. Tal. (0461) 28181 

Buchhandlung Walland, Känigatraße 78 

2400 Lübeck, Tal. (04 61) 74008-08 

Buchhandlung Btoem, Langenatraße 10 

2800 Bremen I, Tal. (04 21) 32 1623 

Buchhandlung Lahna -Eisaing. Marktatraße 38 

2940 Wilhelmahaven., Tal. (044 21] 4 1887 

@uchhandlung Sahmarl u. v. Baafald. Bahnhafatraße 13 

3000 Hannover 1, Tal. (06 11} 32 7861 

Buchhandlung Grafl. Neue Straße 23 

3300 Braunachwalg. Tal. (0631) 482 71 

Dauarlich'aahe Buahhandlung. Waendar Straße 33 

3400 Qättingen. Tal. (0861| 68808 

Buchhandlung an dar Hachachula, Holländlache Straße 22 

3800 Kaasal. Tal (OB@1] AIAO? 

Biaen Verlag, Friedrichstraße 24-28 

4000 Düaaaldaril, Tal. (02 111 37 3033 

Buchhandlung Baadakar, Kattwiger Stıraßa 33-38 

4300 Eaaan I, Tal. (0201| 22 1381 

Raganabarg'sche Buchhandlung. Alter Steinweg I 
O0 Münataı, Tal. (02 611 408 41-6 

Buchhandlung Actar, Jahanniaatraße B1 

4800 Oanabrück. Tal. (0641) 28488 

Buchhandlung Braohmeyar, Quaranburger Höhe 281/Unicantar 

4830 Bochum. Tal. (0234| 70 1380 

Buchhandlung Mala: + Weber, Warburgar Straßa 88 

4700 Padarbarn, Tel. (062 811 831 72 

Buchhandlung Phäönia AmbH, Obarntarwall 26 

4800 Bialelald 1. Tel. (0621) EAIOA 38 

Buchhandlung Gonskl, Neumarkt 24 

8000 Käin I, Tel (02 211 210628 

Mayar'sche Buchhandlung. Uraulineratraße 17-18 

8100 Aachen, Tal. (0241147 77-0 

Buchhandlung Bahrandt. Am Hot 6a 

8300 Bonn I, Tel. (02 281 868021 

Buchhandlung Cuaanua. Schloßstraße 12 

6400 Koblanz. Tal. (0281) 38239 

Akad. Buchhandlung Interbooh, Fieischatraße 81-88 

6800 Trier. Tai. (08 81} 4 38 98 

Buchhandlung W. Finke. Kipdaort 32 

@800 Wuppertal 1. Tel. (0202) 484220 

Buchhandlung Balagh, Sandatraßa 1 

6800 Siagan, Tal. (02 711 662048 

Buchhandlung Naacher. Steinweg 3 

8000 Frankfurt 1, Tal. (0881 2880 80 

Buahihandlung Wellnitz, Lautanachlägerstraße 4 

@100 Darmatadı. Tal. (O@1 E1I 74648 

Buchhandlung Faller + Gaahe, Friedrichatraße 31 

@200 Wieabaden. Tel. (081 21) 3048 11 

Parker sche UNI Buchhandlung. Saelteraweg 83 

8300 Gießan, Tel. (0881) 12001 

So alalwiasanachaftliche Fachhuchhandlung. Friedrichatraße 24 

8400 Fulda, Tel. (0@81) 760 77 

Gutenberg Buchhandlung. Große Bleicha 28 

@800 Mainz, Tal. (081 31) 370 11 

Buchhandlung Bock + Balp, Futteratraße 2 

@800 Saarbruchen, Tal. (06811 308679 

Buchhandlung Wiähelm Holmann, Bismarckstraße 88 

6700 Ludwigahalen. Tal (08211 61 6001 

Buchhandlung Loefller. B 1,6 

6800 Mannheim 1. Tel I(0@21) 28812 

Buchhandlung Stahn, Bahnholatraße 13 

7000 Stuttgart 80, Tal. (07 111 88 14 78 

Buchhandlung am Martini, Krıamatraße & 

7100 Hallb:onn. Tal. (07131) aaa 82 

UNI Buchhandlung Kallnar + Maasanar. Kalaarstıaßa 18 

7800 Karlaruhe, el. (0721) 08 14 38 

Buchhandlung Rolh, Hauptatraße 48 

7800 Oflenburg. Tel. (07811 22087 

Rombach Canıtes, Berthaldatraße 10 

7800 Freiburg. Tel 1071) 48091 

Fachbuchhandlung Hofmann, Hirachatraße 4 

7800 Ulm. Tel (07 311 80848 

Schautisa Elehtranik, Bachatraße A2 

7980 Aavenaburg. Tel. (07 61] 261 38 

Buchhandlung Hugendubel. Marienplatz 

8000 München 2, Tel. (0881 2388-1 

Computerhücher am Oballak, Bareratrale 32-34 

8000 München 2, Tal. (0880| 282383 

Psla’a Compwterbüchere. Schillerstraße 17 

8000 Münchan 2, Tel. (088) 88582208 

Universkätsbuahhandlung Lachner. Therasianatraßa 43 

8000 München 2, Tal. (088) 62 1340 

Buchhandlung Scohänhuber, Therasienatıale ® 

8070 Ingolatadı. Tel. (0841) 33148,/47 

Compunerstudio Gertrud Friedeleh. Ludwigstraße 3 

8220 Traunstein. Tel. (0881) 14707 

Buchhandlung Pustat, Ki. Exarzierplarz 4 

8380 Paasau, Tal. (0861 68946 

Buchhandlung Pustei. Qesandtanatraße 8 

8400 Reganaburg, Tel (084116 30 @1 

Buchhandlung De. Bonner. Adieratiaßa 10-12 

8800 Nürnberg. Tal. (O8 11) 232318 

Campasna: -Cantar -Burges, Laimitzar Straße 11-13 

8670 Hot, Tel. (082 811 40076 

Banimanta- u. Bahnhafabucahh. J. Brrykawakl, Bahnhalplaız 4 

3700 Würzburg. Tel (OB311 6438 

Buchhandlung Punta, Grortenau 4 

ABAQ Augshurg. Tal. (08211 364 37 

Kamptanar Fachsortiment, Salzatraße 30 

8980 Kamptan, Tal. (0831) 144 13 

Beigten: 

Eicher Micra & Paraanal Camputes, Hünningan 68-88 

B-4780 Sı. Vieh, Tal. (0801 227303 

Lusamburg: 

Libsatrta Proamoaufure, 14, rue Duchscher (Pi. de Paria) 

L 1011 Lunembourg-Gare, Tai. 4AOGB1, Talen 31 12 

Bchwalz: 

Buchhandlung Matsaner. Bahnhafatraße 41 

8000 Aarau. Tai. (084) 24 71 61 

RBüche: Balmee, Nauganaa 12 

@300 Zug. Tel. (042) 21 41 41 

Buchhandlung Enge. Bieicherwag 58 

8002 Zürlch, Tal. (O1) 201 2078 

Buchhandlung Orall Füsall. Palikanatraßea 10 

8022 Zurich. Tai {O1} 2 1180 11 


Fıalhala« AQ. Wissenschaftliche Buchhandlung. Univaraitätaate. 11 


8033 Zürich, Tel. (01) 3834282 
Buchhandlung am RAdälhar, Webaerganaa 6 
8001 St.Gallen. Tel. (0711 2287 2% 
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Ihrem Wes 


zum professionellen 
Computer- Anwender 


Das aktuelle Fachmagazın für Personal Computer. 


2 Wenn Sie jetzt den Schritt vom Heim-Computer zur 
professionellen Anwendung eines Personal Computers 
planen ® Wenn Sie beruflich oder privat bereits einen 
Personal Computer benutzen ® Wenn Sie selbst profes- 
sionellprogrammieren ® Wenn Sie regelmäßig Informa- 
tionen über das breite Produktangebot auf dem Personal 
Computer-Markt benötigen Ül Wenn Sie professionelle 
Hard- und Softwaretests suchen ® Wenn Sie Ihr eigenes 
System möglichst effizient einsetzen wollen, dann ist 
»Computer persönlich« genau Ihre Zeitschrift. 


Die konsequente Ausrichtung auf professionelle Anwen- 
dungen bietet Ihnen alle wichtigen Informationen. 


Und das alle 14 Tage, mittwochs bei Ihrem Zeitschriften- 
händler oder im Computer-Fachgeschäft. EB 


„== auf diese 
beiden 








Zur 

Anforderung 

Ihres kostenlosen 
Probeexemplares einfach den 
nebenstehenden Gutschein ausfüllen, 
ausschneiden, auf eine Postkarte 
kleben oder in ein Kuvert 
stecken und einsenden an: 
Markı& Technik, 

Verlag Aktiengesellschaft, 
Vertrieb, Postfach 1304, 

8013 Haar bei München. 
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Die einzige Wochenzeitung ausschließlich für Personal 
Computer ım IBM-Standard. 


EI wenn Sie an aktuellen und umfassenden Informatio- 
nen über IBM-PCs und kompatible Systeme interessiert 
sind ® Wenn Sie stets über die neuesten und effektivsten 
Anwendungen für den professionellen und privaten Be- 
reich informiert sein wollen Wenn Sie sich für Markt- 
übersichten und ausführliche Testberichte über Hard- 
und Software interessieren ”" Wenn Sie sich mit 
CAD/CAM, Netzwerken und der Anbindung von PCs 
an Groß-EDV-Anlagen beschäftigen, dann ist »PC 
Magazın« genau auf Ihre Bedürfnisse zugeschnitten. 


Die Spezialisierung auf IBM-PCs und Kompatible er- 
möglicht eine gezielte Berichterstattung und bietet genü- 
gend Raum, um auf Anwenderprobleme spezifisch einge- 
hen zu können. 


»PC Magazin« — jeden Mittwoch neu bei Ihrem Zeit- 
schriftenhändler oder im Computer-Fachgeschäft. 


Computer-Zeitschriften stoßen: 


GUTSCHEIN 


für ein kostenloses Probeexemplar 





Senden Sie mir die neueste Ausgabe der van mir angekreuzten Zeitschrift kostenlos als Prabeexemplar. 


Wenn mir »Computer persönlich« zusagt 

undich es regelmäßig weiterbeziehen möch- 
te, brauche ich nichts zu tun: Ich erhalte »Compu- 
ter persönlich« dann regelmäßig alle 14 Tage per 
Post freı Haus geliefert und bezahle pro Jahr nur 
DM 98,- statı DM 143,- Einzelverkaufspreis. Zu- 
stellung und Postgebühren übernimmt der Verlag. 
Dieses Angebot gilt nur in der Bundesrepublik 
Deutschland einschließlich West-Berlin. Das 
Abonnement verlängert sich nur dann zu den 
dann jeweils gültigen Bedingungen, wenn es nicht 
2 Monate vor Ablauf schriftlich gekündigt wird. 


Name, Vorname 


Wenn mir das »PC Magazin« zusagt und 

ich es regelmäßig weiterbeziehen möchte, 
brauche ıch nichts zu tun: Ich erhalte mein »PC 
Magazın« dann regelmäßig jede Woche per Post 
frei Haus geliefert und bezahle pro Jahr nur DM 
155,- statt DM 229,50 Einzelverkaufspreis. Zustel- 
lung und Postgebuhren übernimmi der Verlag. 
Dieses Angebot gilt nur in der Bundesrepublik 
Deuischland einschließlich West-Berlin. Das 
Abonnement verlängert sich nur dann zu den 
dann jeweils gültigen Bedingungen, wenn es nicht 
2 Monate vor Ablauf schriftlich gekündigt wird. 





Datum l. Unterschrift 


Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerrufen kann. 
Zur Wahrung der Frist genügt die rechtzeitige Absendung des Widerrufs. Ich bestätige dies durch meine 


2. Unterschrift. 


Datum 2 Untonchrin 
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Die Profi-Textverarbeitung im 128er-Modus mit vollautomatischer Silbentrennung, integrierter 
Tabellenkalkulation und Zusatzprogramm zum Überprüfen der Rechtschreibung. 


PROTEXT ist ein leicht bedienbares Textprogramm mit hoher Leistungs- 
fähigkeit. Eingebaute Hilfefunktionen ermöglichen eine schnelle Einarbeitung. 
Mit PROTEXT sind daher auch Anfänger in der Lage, alle Vorteile eines profes- 
sionellen Textprogramms zu nutzen. 


Was PROTEXT alles kann: 


e Farbkombination für Hintergrund und Schrift (Vordergrund) frei wählbar; 

e formatierte Ausgabe auf Bildschirm und Drucker mit programmierbaren Hal- 
tepunkten über serielle, V24- oder zwei Software-Centronics-Schnitt- 
stellen; 

© vielfältige Formatanweisungen: linker/rechter Rand, vollautomatische Sil- 
bentrennung, Kopf-/Fußzeilen, Fußnoten, Zentrieren usw. 

e schnelle selbstlernende Textkorrektur mit deutschem (ca. 25000 Worte) 
Grundwortschatz sowie neun Kundenbibliotheken, die in Text umgewan- 
delt, bearbeitet, ergänzt, sortiert und ausdruckbar sind; 


TOPASS - 


Der ASE-Maaoassembler 
für den Commodore 128 PC 


meh integriertem Editor, 


Monitor und Linker. 











Dieser 6502-Macroassembler setzt neue Maß- 

stäbe. Seine Leistungsfähigkeit wird auch den ver- 

wöhnten Maschinenprogrammierer überzeugen: 

® integrierter Editor, der schon bei der Eingabe 
des Quelltextes eine Syntaxüberprüfung vor- 
nimmt; 

@ integrierter Linker, mit dem quellgesteuertes 
Linken von relokatiolen Modulen möglich ist: 

@ assemblereigene schnelle und gleichzeitig 
sehr leistungsfähige Integerarithmetik; 


Diese Markt &Technik-Softwareprodukte erhalten 
Sie in den Fachabteilungen der Kaufhäuser 
und in Computershops. 


Wenn Sie direkt beim Markt &Technik Verlag 
bestellen wollen: 

Nur gegen Vorauskasse, Verrechnungsscheck 
oder mit der eingedruckten Zahlkarte. 





Markt &fechnik 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 





© Textübertragung per DFÜ mit Space-Optimierung und automatischer Feh- 
lerkorrektur; 

® leistungsfähige Rechenmöglichkeiten mit Zeilenmarkierung (Rechentabu- 
lator), Kolonnenverarbeitung, programmierter Tabellenkalkulation und 
Taschenrechner. 


Hardwaraanforderung: 

e C 128 oder C 128D 

e 80-Zeichen-Monitor 

e Commodore-Drucker oder Drucker 
mit Centronics-Schnittstelle 


Best.-Nr. MD 254A 











"inkl. MwSt. 
Unverbindliche Preisempfehlung 





@e iiber 2000 Labels können gleichzeitig verwaltet 
werden, das heißt Maschinenprogramme bis zu 
einer Länge von ca. 25 KByte Objektcode kön- 
nen bei Bedarf in einem Rutsch assembliert 
werden; 

e Macros mit beliebig vielen Parametern, Macro- 
bibliotheken, Minimacs, bedingte Assemblie- 
rung, Labeleingabe im Dialog, Ausgabe forma- 
tierter Assemblerlistings, Ausgabe sortierter 
Symboltabellen und vieles andere mehr. 


Außerdem wird der ASE-Macroassembler von 
einem sehr quten Monitor und einem Relativiader 
unterstützt, der relokatible Module an beliebige 
Speicheradressen laden kann und endlich Schluß 
macht mit den Dutzenden Maschinenprogrammen 
auf Diskette, die sich nur durch ihre Startadresse 
unterscheiden! 


Lernen Sie es kennen, 
das TOPASS Assembler-Entwicklungssystem! 
Es lohnt sich! 





Best.-Nr. MD 253A 
„155 990") 

g<isfr. 79,16 

Für nur pm? 
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Bestellungen im Ausland bitte an 
untenstehende Adressen: 


Schweiz: Markt& Technik Vertriebs AG, 
Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 


Österreich: Veberreuter Media Handels- 
und Verlagsges. mbH, Alser Str. 24, 
A-1091 Wien, Tel. 0222/481538-0 





